run time error 5

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

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

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

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

Visual Basic

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

 
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 **[ТС]**

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

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

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	31.08.2013, 16:51	4
	Сообщение от radlif Тогда почему у меня всё работает?) У неё не может быть какого-то отличия в окнах "Мегафона" ?? 0

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

~~dev.Free~~ Заблокирован
	31.08.2013, 18:16	6
	№ 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 Ошибка чтения из файла Вот список ошибок и их расшифровка. 0

@The trick Модератор 9724 / 3685 / 871 Регистрация: 22.02.2013 Сообщений: 5,530 Записей в блоге: 78
	31.08.2013, 20:19	7
	Сообщение было отмечено The trick как решение Решение Сообщение от radlif Тогда почему у меня всё работает?) Это может быть если длина buffz = 0 или 1 1

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

run time error 5

Решение