run time error 5

@radlif · Регистрация: 18.12.2011

Студворк — интернет-сервис помощи студентам

На моём компьютере работает всё нормально, на другом же ошибка run time error 5
И у меня и у подруги стоит вин7.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Private Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Const GW_HWNDNEXT = 2:
Private Const GW_CHILD = 5
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
 
Dim buff As String
Dim hwnds As Long 'õåíäåë îêíà
Dim kontrq As Long 'õåíäåë îêíà
Dim Knopka As Long 'õåíäåë îêíà
Dim Vxod As Long 'õåíäåë îêíà
Dim Vixod As Long 'õåíäåë îêíà
 
Private Function Hstr(HenTek) As String
    Dim buffz$
    buffz = Space$(50):
    SendMessage HenTek, &HD, 40, ByVal buffz
    buffz = Trim(buffz)
    buffz = Left(buffz, Len(buffz) - 1)
    Hstr = buffz
End Function
 
Private Sub SkanOkon()
    Dim HenTek As Long ' ïîëó÷èì äåñêðèïòîð ñëåäóþùåãî îêíà â Z-order
    HenTek = GetWindow(hwnds, GW_CHILD)  'ïîëó÷àåì äåñêðèïòîð äî÷åðíåãî îêíà
    Do
        If HenTek <> 0 Then   ' íå èñïîëüçóéòå ôëàæêè, åñëè íèêàêîãî òàêîãî îêíà íå ñóùåñòâóåò
            If Len(Hstr(HenTek)) <> 0 Then
                buff = Hstr(HenTek)
                If buff = "Îòêëþ÷èòü" Then
                    Knopka = HenTek
                    Exit Do
                End If
                If buff = "Ïîäêëþ÷èòü" Then
                    Knopka = HenTek
                    Exit Do
                End If
                buff = Right(buff, 4)
                If buff = "kbps" Then
                    If Vxod = 0 Then
                        Vxod = HenTek
                    Else
                        Vixod = HenTek
                    End If
                End If
            End If
            'Ïðîâåðêà íà äåòåé-------------------------------------------
            kontrq = GetWindow(HenTek, GW_CHILD) 'ïîëó÷àåì äåñêðèïòîð äî÷åðíåãî îêíà
            If kontrq <> 0 Then 'Åñëè íåòó äèòÿ ïðîïóñêàåì ýòîò øàã
                hwnds = HenTek 'ïåðåäà¸ì õåíäåë â ðåêóðñèþ
                Call SkanOkon
            End If
        End If
        HenTek = GetWindow(HenTek, GW_HWNDNEXT) 'ïîëó÷àåì äåñêðèïòîð ñëåäóþùåãî îêíà
    Loop While HenTek <> 0
End Sub
 
Private Sub Command1_Click()
    If Command1.Caption = "Ïóñê" Then
        Timer2.Enabled = True
        Command1.Caption = "Ñòîï"
    Else
        Timer2.Enabled = False
        Command1.Caption = "Ïóñê"
    End If
End Sub
 
Private Sub Form_Load()
    hwnds = FindWindow(vbNullString, "ÌåãàÔîí Èíòåðíåò")
    Call SkanOkon
    Timer1.Interval = 200
    Timer2.Interval = 10000
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Hstr(Vixod)
    Label2.Caption = Hstr(Vxod)
    Label3.Caption = Hstr(Knopka)
End Sub
 
Private Sub Timer2_Timer()
    If Hstr(Knopka) = "Ïîäêëþ÷èòü" Then
        SendMessage Knopka, WM_LBUTTONDOWN, 0, ByVal 327680
        SendMessage Knopka, WM_LBUTTONUP, 0, ByVal 327680
    End If
    
    If Len(Hstr(Vixod)) <> 0 Then
        buff = Left(Hstr(Vixod), 4)
        If buff = "0.00" Then
            SendMessage Knopka, WM_LBUTTONDOWN, 0, ByVal 327680
            SendMessage Knopka, WM_LBUTTONUP, 0, ByVal 327680
        End If
    End If
End Sub

на форме 3 Label кнопка и 2 таймера

@The trick · 31.08.2013, 16:03

Беглый просмотр, говорит об этом:

Visual Basic
1
2
3
4
5
6
7
8
9
 
Private Function Hstr(HenTek) As String
    Dim buffz$
    buffz = Space$(50):
    SendMessage HenTek, &HD, 40, ByVal buffz
    buffz = Trim(buffz)
    If Len(buffz) > 1 Then buffz = Left(buffz, Len(buffz) - 1)
    Hstr = buffz
End Function

@radlif · 31.08.2013, 16:08 **[ТС]**

Тогда почему у меня всё работает?)

morgann55 · 31.08.2013, 16:51

Сообщение от radlif

Тогда почему у меня всё работает?)

У неё не может быть какого-то отличия в окнах "Мегафона" ??

@radlif · 31.08.2013, 16:52 **[ТС]**

Эта программа не выдаст ошибки даже если мегафон не запущен.
А так да у меня таже самая версия что и у неё.

dev.Free · 31.08.2013, 18:16

№ English language Русский язык
3 Return without GoSub Оператор Return без GoSub
5 Invalid procedure call Неверный вызов процедуры
6 Overflow Переполнение
7 Out of memory Не хватает памяти
9 Subscript out of range Индекс массива вышел за допусти--мые пределы
10 This array is fixed or temporarily locked Массив зафиксирован или временно недоступен
11 Division by zero Деление на ноль
13 Type mismatch Неверный тип
14 Out of string space Нет места для строки
16 Expression too complex Выражение слишком сложное
17 Can't perform requested operation Не могу выполнить запрашиваемую операцию
18 User interrupt occurred Произошло прерывание по указу пользователя
20 Resume without error Оператор Resume без ошибки
28 Out of stack space Нет места для стека
35 Sub, Function, or Property not defined Процедура, функция или свойство не определено
47 Too many DLL application clients Слишком много клиентов DLL приложения
48 Error in loading DLL Ошибка при загрузке DLL
49 Bad DLL calling convention Неверный вызов DLL
51 Internal error Внутренняя ошибка
52 Bad file name or number Неверное имя файла или неверный номер
53 File not found Файл не найден
54 Bad file mode Неверный тип доступа к файлу
55 File already open Файл уже открыт
57 Device I/O error Ошибка устройства ввода вывода
58 File already exists Файл уже существует
59 Bad record length Неверный размер записи
61 Disk full Диск переполнен
62 Input past end of file Чтение файла не возможно, т.к. достигнут его конец
63 Bad record number Неверный номер записи
67 Too many files Слишком много файлов
68 Device unavailable Устройство не доступно
70 Permission denied Доступ запрещён
71 Disk not ready Диск не готов
74 Can't rename with different drive Нельзя переименовать файл на другой носитель (т.е. оператором Name)
75 Path/File access error Ошибка доступа к файлу или каталогу
76 Path not found Каталог не найден
91 Object variable or With block variable not set Ссылка на объект или блок оператора With не установлен
92 For loop not initialized Не найдено начало цикла
93 Invalid pattern string Неверная маска
94 Invalid use of Null Неверное использование Null
97 Can't call Friend procedure on an object that is not an instance of the defining class Не могу вызывать процедуру Friend не являющуюся экземпляром класса
98 A property or method call cannot include a reference to a private object, either as an argument or as a return value (Error 98) Обращение к свойство или методу не может включать ссылку на Private объект. Этот объект также не может быть в качестве аргумента или возвращаемого значения.
298 System DLL could not be loaded Системная DLL не может быть загружена
320 Can't use character device names in specified file names Не могу использовать в качестве имени файла название порта
321 Invalid file format Неверный формат файла
322 Can’t create necessary temporary file Не могу создать необходимый временный файл
325 Invalid format in resource file Неверный формат файла ресурсов
327 Data value named not found Значение не можен быть найдено
328 Illegal parameter; can't write arrays Недопустимый параметр; не могу записать массив
335 Could not access system registry Не могу получить доступ к реестру
336 ActiveX component not correctly registered ActiveX компонент неправильно зарегистрирован
337 ActiveX component not found ActiveX компонент не найден
338 ActiveX component did not run correctly ActiveX компонент не правильно запущен (?)
360 Object already loaded Объект уже загружен
361 Can't load or unload this object Не могу загрузить или выгрузить объект
363 ActiveX control specified not found ActiveX компонент не найден
364 Object was unloaded Объект был выгружен
365 Unable to unload within this context В данном случае невозможно выгрузить объект
368 The specified file is out of date. This program requires a later version Данный файл устарел. Эта программа требует более новой версии
371 The specified object can't be used as an owner form for Show Данный объект не может быть использован как родитель формы для её показа
380 Invalid property value Неверное значение свойства
381 Invalid property-array index Неверный индекс свойства-массива
382 Property Set can't be executed at run time Процедура установки свойства не может быть запущена во время работы программы
383 Property Set can't be used with a read-only property Процедура установки свойства не может быть использована для свойств, доступных только для чтения
385 Need property-array index Необходим индекс для свойства-массива
387 Property Set not permitted Процедура установки свойства не разрешена
393 Property Get can't be executed at run time Процедура чтения свойства не может быть запущена во время работы программы
394 Property Get can't be executed on write-only property Процедура чтения свойства не может быть использована для свойств, доступных только для записи
400 Form already displayed; can't show modally Форма уже показана; не могу показать форму модально
402 Code must close topmost modal form first Код должен сначала закрыть модальную форму самого высшего уровня
419 Permission to use object denied Запрещено использование данного объекта
422 Property not found Свойство не найдено
423 Property or method not found Свойство или метод не найден
424 Object required Необходим объект
425 Invalid object use Неверное использование объекта
429 ActiveX component can't create object or return reference to this object ActiveX компонент не может создать объект или возвратить ссылку на этот объект
430 Class doesn't support Automation Класс не поддерживает технологию Automation
432 File name or class name not found during Automation operation Имя файла или класса не найдено в процессе операции Automation
438 Object doesn't support this property or method Объект не поддерживает данное свойство или метод
440 Automation error Ошибка Automation
442 Connection to type library or object library for remote process has been lost Связь с библиотекой типов или библиотекой объектов для удалённого процесса была утеряна
443 Automation object doesn't have a default value Automation объект не имеет значения по умолчанию
445 Object doesn't support this action Объект не поддерживает данную операцию
446 Object doesn't support named arguments Объект не поддерживает названные аргументы
447 Object doesn't support current locale setting Объект не поддерживает текущие локальные настройки
448 Named argument not found Названный аргумент не найден
449 Argument not optional or invalid property assignment Аргумент обязателен или неверное присваивание свойству
450 Wrong number of arguments or invalid property assignment Неверное количество аргументов или неверное присваивание свойству
451 Object not a collection Объект - это вам не коллекция

452 Invalid ordinal Неверное числительное
453 Specified DLL function not found Данная функция DLL не найдена
454 Code resource not found Ошибка для макинтошей (это такие компы разноцветные)
457 This key is already associated with an element of this collection Этот ключ уже ассоциирован с элементом коллекции
458 Variable uses a type not supported in Visual Basic Переменная использует неподдер-живаемый Visual Basic'ом тип
459 This component doesn't support the set pf events Единственный раз в жизни я увидел опечатку в Microsoft'овской документации! Слева вместо pf должно стоять of! А ошибка переводится примерно так: Не для всех компонентов можно использовать оператор WithEvevents и Implements.
460 Invalid Clipboard format Неверный формат буфера обмена
461 Specified format doesn't match format of data Данный фармат не совпадает с форматом данных
480 Can't create AutoRedraw image Не могу создать AutoRedraw изображение
481 Invalid picture Неверное изображение
482 Printer error Ошибка принтера
483 Printer driver does not support specified property Драйвер принтер не поддерживает данное свойство
484 Problem getting printer information from the system. Make sure the printer is set up correctly Проблема при чтении информации принтера в системе. Убедитесь, что принтер правильно установлен
485 Invalid picture type Неверный тип изображения
486 Can't print form image to this type of printer Не могу распечатать изображение формы на таком типе принтера
520 Can't empty Clipboard Не могу очистить буфер обмена
521 Can't open Clipboard Не могу открыть буфер обмена
735 Can't save file to TEMP directory Не могу сохранить файл в директорию TEMP (временную)
744 Search text not found Искомый текст не найден
746 Replacements too long Текст для замещение слишком длинный
31001 Out of memory Не хватает памяти
31004 No object Нет объекта
31018 Class is not set Класс не установлен
31027 Unable to activate object Не могу активизировать объект
31032 Unable to create embedded object Не могу создать внедрённый объект
31036 Error saving to file Ошибка записи в файл
31037 Error loading from file Ошибка чтения из файла

Вот список ошибок и их расшифровка.

@The trick · 31.08.2013, 20:19

Сообщение от radlif

Тогда почему у меня всё работает?)

Это может быть если длина buffz = 0 или 1

@radlif · 31.08.2013, 20:21 **[ТС]**

Спасибо уже исправлена ошибка, как раз была в том месте которое ты указал)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	31.08.2013, 16:08 [ТС]
	Тогда почему у меня всё работает?) 0

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	31.08.2013, 16:52 [ТС]
	Эта программа не выдаст ошибки даже если мегафон не запущен. А так да у меня таже самая версия что и у неё. 0

@radlif 44 / 44 / 3 Регистрация: 18.12.2011 Сообщений: 577
	31.08.2013, 20:21 [ТС]
	Спасибо уже исправлена ошибка, как раз была в том месте которое ты указал) 0

run time error 5

Решение