Приветствую.
есть скрипт с несколькими функциями
функция MyAdlib
в конце скрипта
естественно и про AdlibRegister не забыл
автозагрузка
при запуске все хорошо работает, перезагружаю пк, ехе в котором все эти функции есть запускается, но, сами функции не работают, где я допустил ошибку?
есть скрипт с несколькими функциями
Код:
Func checkproc()
Select
Case ProcessExists("procces1.exe")
ContinueCase
Case ProcessExists("procces2.exe")
ContinueCase
Case ProcessExists("procces3.exe")
ContinueCase
Case ProcessExists("procces4.exe")
Run(@ComSpec & " /c taskkill /f /IM start.exe > NUL", @SystemDir, @SW_HIDE)
Case Else
If Not ProcessExists("start.exe") Then
MyAdlib()
EndIf
EndSelect
EndFunc
функция MyAdlib
Код:
Func MyAdlib()
Local $Idle = 10000
If _Timer_GetIdleTime() < $Idle Then
ProcessClose("start.exe")
Run(@ComSpec & ' /c ' & "start.exe param1 ", '', @SW_HIDE)
Do
Sleep(1000)
Until _Timer_GetIdleTime() > $Idle
ProcessClose("start.exe")
Run(@ComSpec & ' /c ' & "start.exe param2 ", '', @SW_HIDE)
EndIf
EndFunc
в конце скрипта
Код:
While 1
WEnd
естественно и про AdlibRegister не забыл
Код:
AdlibRegister("MyAdlib", 3000)
AdlibRegister("checkproc", 3000)
автозагрузка
Код:
$autoruns = @ScriptDir & '\myexe.exe'
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "myexe", "REG_SZ", $autoruns)
при запуске все хорошо работает, перезагружаю пк, ехе в котором все эти функции есть запускается, но, сами функции не работают, где я допустил ошибку?