Одновременная работа цикла и программы - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - Одновременная работа цикла и программы (http://forum.oszone.net/showthread.php?t=182863)

Одновременная работа цикла и программы

Вызов функций в проге производится опросом:
case "abc"
func1
case"amg"
func2
case"adm"
func3
если вызвать функцию2, то опрос останавливается, пока не выполнит эту фунцию2, а функц2 это бесконецный цикл:
while 1
msgbox(0,"","message")
wend
Как заставить работать прогу параллельно с циклом

ShogenOFF, не уверен, но, возможно, реализовать как отдельный скрипт и запускать его из основного?

А нет других вариантов? Ехе'шник, желательно, должен быть один. Если это что-то меняет, то цикл do...until.

ShogenOFF,
Попробуйте так:

Код:

While 1

    $ahCallBack_1 = _CallBack_Init("My_Func_1", 5555)

    $ahCallBack_2 = _CallBack_Init("My_Func_2", 2222)

    My_Func_3()

WEnd



Func My_Func_1()

    Local $iX = Random(1, @DesktopWidth - 50, 1), $iY = Random(1, @DesktopHeight - 50, 1)

    MouseMove($iX, $iY)

EndFunc   ;==>My_Func_1



Func My_Func_2()

    SoundPlay(@WindowsDir & "\media\tada.wav")

EndFunc   ;==>My_Func_2



Func My_Func_3()

    While 1

        MsgBox(0, "", "Будут работать все 3 функции, пока не нажмешь OK")

        ExitLoop

    WEnd

    _CallBack_Free($ahCallBack_1)

    _CallBack_Free($ahCallBack_2)

    Exit

EndFunc   ;==>My_Func_3



Func _CallBack_Init($sFuncName, $iTime, $sParam = "")

    Local $hCallBack = DllCallbackRegister($sFuncName, "int", $sParam)

    Local $aTimer = DllCall("user32.dll", "uint", "SetTimer", _

            "hwnd", 0, "uint", 0, "int", $iTime, "ptr", DllCallbackGetPtr($hCallBack))

    Local $ahCallBack[2] = [$hCallBack, $aTimer[0]]

    Return $ahCallBack

EndFunc   ;==>_CallBack_Init



Func _CallBack_Free($ahCallBack)

    If $ahCallBack[0] <> -1 Then DllCallbackFree($ahCallBack[0])

    If $ahCallBack[1] <> -1 Then DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $ahCallBack[1])

EndFunc   ;==>_CallBack_Free

Спасибо, madmasles. Но....ради цикла мсгбокса не хочу так заморачиваться. Думал, есть какая-нить стандартная ф-ия.