Поочередное выполнение нескольких функций

[.me]

Всем привет, подскажите, пожалуйста

есть несколько команд

1 -

#NoTrayIcon

While 1
Sleep(1000)
$sProcName = "mysoft.exe"
WEnd

2 -

$sec = 300
While 1
    $sData = InetRead("https://site.ru/ping.php")
    $nBytesRead = @extended

    Sleep($sec*1000)
WEnd

AutoItWinSetTitle(@ScriptName)

While 1
    Do
        Sleep(1000)
    Until Not ProcessExists($sProcName)
    Run ("check.bat", "", @SW_HIDE)
WEnd

как сделать так, что бы не компилировать сразу 3 кода, а сделать это все в один, он работает, но только 1 раз при запуске, т.е 2 код должен стучать на сервер после N-го кол-ва времени, ну и естественно, он этого не делает

 

[InnI]

.me

сделать это все в один

Спойлер

#NoTrayIcon

Global $sProcName = "mysoft.exe"
Global $iSec = 300

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

AdlibRegister("CheckPing", 1000 * $iSec)

While ProcessExists($sProcName)
  Sleep(1000)
WEnd

Run("check.bat", "", @SW_HIDE)

Func CheckPing()
  $sData = InetRead("https://site.ru/ping.php")
  $nBytesRead = @extended
EndFunc

 

[.me]

InnI, спасибо