Multi-Loop, Cycle

[Casablanca0s]

Hi guys!

Help me pls to join these codes into one

While 1
If  Not ProcessExists("FirstProgram.exe") Then
Run("FirstProgram.exe")
EndIf
WEnd

While 1
If @MIN = 28 Then
RunWait ("File28.exe")
EndIf
WEnd

While 1
If ProcessExists("EMAIL.exe") Then
Sleep(20000)
Else
Run("TIME.exe")
EndIf
WEnd

As you can see I need for with 1 script to monitoring 3 programs and run at different times

how can i realize that?

Thank you

[UEZ]

Try this:

 

$iSleep = TimerInit()

While Sleep(100)
    If Not ProcessExists("FirstProgram.exe") Then
        Run("FirstProgram.exe")
    EndIf
    If @MIN = 28 Then
        RunWait ("File28.exe")
    EndIf
    If Not ProcessExists("EMAIL.exe") And TimerDiff($t) > 20000 Then
        Run("TIME.exe")
        $iSleep = TimerInit()
    EndIf
WEnd

Br,

UEZ

Edited January 15, 2015 by UEZ

[Guest]

I tried to do a more elegant solution (elegant if you look at it from the outside. Inside is a different story)

'?do=embed' frameborder='0' data-embedContent>>

It works but note that it has some limitations.

Here's an example for your case:

expandcollapse popup

#include 'RegisterLoop_v2.au3'


; Press Exit to exit the script
HotKeySet('{ESC}','Exit1')
Func Exit1()
    Exit
EndFunc


RegisterLoop('loop1')

RegisterLoop('loop2')

RegisterLoop('loop3')

Func loop1()
    If  Not ProcessExists("FirstProgram.exe") Then
        Run("FirstProgram.exe")
    EndIf
EndFunc



Func loop2()
    If @MIN = 28 Then
        RunWait ("File28.exe")
    EndIf
EndFunc


Func Loop3()
    If ProcessExists("EMAIL.exe") Then
         WaitWhile('Loop3',20000)
    Else
        Run("TIME.exe")
    EndIf
EndFunc




; Main loop just to keep the script running
While 1
    Sleep(10000)
WEnd

I do not recommend you use this solution because I do not use it myself

Edited January 15, 2015 by Guest

[Bert]

I tried to do a more elegant solution (elegant if you look at it from the outside. Inside is a different story)

'?do=embed' frameborder='0' data-embedContent>>

 

It works but note that it has some limitations.

Here's an example for your case:

expandcollapse popup

#include 'RegisterLoop_v2.au3'


; Press Exit to exit the script
HotKeySet('{ESC}','Exit1')
Func Exit1()
    Exit
EndFunc


RegisterLoop('loop1')

RegisterLoop('loop2')

RegisterLoop('loop3')

Func loop1()
    If  Not ProcessExists("FirstProgram.exe") Then
        Run("FirstProgram.exe")
    EndIf
EndFunc



Func loop2()
    If @MIN = 28 Then
        RunWait ("File28.exe")
    EndIf
EndFunc


Func Loop3()
    If ProcessExists("EMAIL.exe") Then
         WaitWhile('Loop3',20000)
    Else
        Run("TIME.exe")
    EndIf
EndFunc




; Main loop just to keep the script running
While 1
    Sleep(10000)
WEnd

I do not recommend you use this solution because I do not use it myself

I'm not sure about this one. Looks to me your processor time may be real high with it.

[Casablanca0s]

 

Try this:

 

$iSleep = TimerInit()

While Sleep(100)

    If Not ProcessExists("FirstProgram.exe") Then

        Run("FirstProgram.exe")

    EndIf

    If @MIN = 28 Then

        RunWait ("File28.exe")

    EndIf

    If Not ProcessExists("EMAIL.exe") And TimerDiff($t) > 20000 Then

        Run("TIME.exe")

        $iSleep = TimerInit()

    EndIf

WEnd

 

thanks, your code working nice, but with some corrections for me 

$iSleep = TimerInit()

While Sleep(100)
    If Not ProcessExists("FirstProgram.exe") Then
        Run("FIrstProgram.exe")
    EndIf
    If @MIN = 47 Then
        RunWait ("2ndProgram.exe")
        Sleep(20000)
    EndIf
    If Not ProcessExists("Program3.exe") And TimerDiff($iSleep) > 20000 Then
        Run("Program3.exe")
        $iSleep = TimerInit()
    EndIf
WEnd