Oldst
23-07-2009, 19:29
Всем привет! Пытаюсь использовать ф-цию "CreateThread" из Win API. Проблема в том что скрипт мой вылетает. Подскажите пожалуйста где у меня ошибка.
Вот мой код:
$do=DllOpen('kernel32.dll')
$thread_reg=DLLCallbackRegister ("_thread1", "ptr", "")
Func _thread1()
While 1
Beep(1000,500)
Sleep(500)
WEnd
EndFunc
$dk=DllCall($do, 'int', 'CreateThread', 'int', 0, 'int', 0,'ptr', DllCallbackGetPtr($thread_reg), 'int',0, 'int', 0, 'int',0)
GUICreate('',100,50)
$lb=GUICtrlCreateLabel (@SEC,20,20,50,10)
GUISetState()
For $i=1 To 10
GUICtrlSetData ($lb,@SEC)
Sleep(1000)
Next
Описание ф-ции "CreateThread" здесь (http://www.vsokovikov.narod.ru/New_MSDN_API/Process_thread/fn_createthread.htm)
Вот мой код:
$do=DllOpen('kernel32.dll')
$thread_reg=DLLCallbackRegister ("_thread1", "ptr", "")
Func _thread1()
While 1
Beep(1000,500)
Sleep(500)
WEnd
EndFunc
$dk=DllCall($do, 'int', 'CreateThread', 'int', 0, 'int', 0,'ptr', DllCallbackGetPtr($thread_reg), 'int',0, 'int', 0, 'int',0)
GUICreate('',100,50)
$lb=GUICtrlCreateLabel (@SEC,20,20,50,10)
GUISetState()
For $i=1 To 10
GUICtrlSetData ($lb,@SEC)
Sleep(1000)
Next
Описание ф-ции "CreateThread" здесь (http://www.vsokovikov.narod.ru/New_MSDN_API/Process_thread/fn_createthread.htm)