running two random sleep loops at one time?

[Bobm]

I was attempting to run two different functions simultaneously, at first i was just using two different scripts, but they seem to conflict with each other too often. i did some digging and found the following.

https://www.autoitscript.com/forum/topic/19521-running-2-loops-at-the-same-time/

the only problem is im having issues getting this to use a sleep(random) to go with my script.

  Reveal hidden contents

expandcollapse popup

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "_F2a_Func")
HotKeySet("{F3}", "_F3a_Func")
HotKeySet("{F4}", "_F4a_Func")
HotKeySet("{F5}", "Pause")

Local $word[5] = ["random1", "random2", "random3", "random4", "random5"]

Func _F2a_Func()
While 1
    If $Timer1 = '' Or TimerDiff($Timer1) > $Delay1 Then
        $Timer1 = TimerInit()
        _F3a_Func()
    EndIf
    If $Timer2 = '' Or TimerDiff($Timer2) > $Delay2 Then
        $Timer2 = TimerInit()
        _F4a_Func()
    EndIf
; Briefly pause to avoid excessive CPU usage
    Sleep(100)
WEnd
EndFunc

Func _F3a_Func()
Send($word[Random(0, UBound($word) -1, 1)] & "{ENTER}")
Sleep(Random(3000, 5000, 1))
EndFunc

Func _F4a_Func()
Send("function two")
Sleep(Random(60000, 90000, 1))
EndFunc

Func Pause()
    While 1
        Sleep(50)
    WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc

While 1
    Sleep(10);idle around
WEnd

 

if anyone can help me solve this, it would be much appreciated.

 

edit:

second failed example of trying to code it in

  Reveal hidden contents

expandcollapse popup

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "_F2a_Func")
HotKeySet("{F3}", "_F3a_Func")
HotKeySet("{F4}", "_F4a_Func")
HotKeySet("{F5}", "Pause")

Local $word[5] = ["random1", "random2", "random3", "random4", "random5"]

Func _F2a_Func()

Local $Timer1, $Delay1 = Sleep(Random(1000, 1100, 1))
Local $Timer2, $Delay2 = Sleep(Random(30000, 31000, 1))

While 1
    If $Timer1 = '' Or TimerDiff($Timer1) > $Delay1 Then
        $Timer1 = TimerInit()
        _F3a_Func()
    EndIf
    If $Timer2 = '' Or TimerDiff($Timer2) > $Delay2 Then
        $Timer2 = TimerInit()
        _F4a_Func()
    EndIf
; Briefly pause to avoid excessive CPU usage
    Sleep(100)
WEnd
EndFunc

Func _F3a_Func()
Send($word[Random(0, UBound($word) -1, 1)] & "{ENTER}")
EndFunc

Func _F4a_Func()
Send("function two")
EndFunc

Func Pause()
    While 1
        Sleep(50)
    WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc

While 1
    Sleep(10);idle around
WEnd

 

it waits until timer two's delay finishes, then just infinitely spams.

Edited July 20, 2018 by Bobm
added second failed example of my code

[careca]

What is the problem, exactly?

Try setting the random prior to the sleep, have the random in a variable and place the variable in the sleep, see if it makes any difference.

[Bobm]

  On 7/19/2018 at 5:55 PM, careca said:

What is the problem, exactly?

Try setting the random prior to the sleep, have the random in a variable and place the variable in the sleep, see if it makes any difference.

Expand  

so far when ive tried to add

Local $Timer1, $Delay1 = sleep(random)

it seems to wait until it reaches that time, then just infinitely spams

what im trying to have it do, is to repeatedly do the random sleep of f3 until its time for it to do f4, but so far when ive tried it seems to just be spamming both repeatedly without the properly sleep times

[FrancescoDiMuro]

Hi @Bobm, and welcome to the AutoIt forum
Post the code you are working on, so we can see what you've tried so far

Best Regards.

[BrewManNH]

You  can't run 2 Sleeps at the same time, the whole script will pause for the first sleep time, and then continue.

Use timers and not sleep.

[careca]

What i meant for you to try:

$var = Random(3000, 5000, 1)
Sleep($var)

Now that i think of it, shouldn't make a difference.

Edited July 20, 2018 by careca

[Bobm]

  On 7/20/2018 at 3:36 PM, BrewManNH said:

You  can't run 2 Sleeps at the same time, the whole script will pause for the first sleep time, and then continue.

Use timers and not sleep.

Expand  

thats what im attempting to figure out, is how to get the 2 random sleeps to work as random timers or vice versa, however it works.

 

  On 7/20/2018 at 3:25 PM, FrancescoDiMuro said:

Hi @Bobm, and welcome to the AutoIt forum
Post the code you are working on, so we can see what you've tried so far

Best Regards.

Expand  

its in the spoiler in my first post

[careca]

Things i dont get: $Delay1 is never defined, how can the script check TimerDiff($Timer1) > $Delay1 if it doesn't know what the delay is?

And i didn't get the point of all this

 

[FrancescoDiMuro]

As @BrewManNH explained in his post, and as it is explained in the Microsoft Documentation, the Sleep() function pauses the current thread, and, since AutoIt is not multi-thread, it will pause the entire script.

@Bobm You can't run two Sleep() functions at the same time.

 

Best Regards.

[water]

Can you please explain the problem you want to solve?
So we can understand if two functions need to run at the same time or if another solution fits your needs.

[Bobm]

  On 7/20/2018 at 8:11 PM, water said:

Can you please explain the problem you want to solve?
So we can understand if two functions need to run at the same time or if another solution fits your needs.

Expand  

yes, trying to get both function f3 and function f4 to work at the same time essentially, but i want them to both be running on random sleep times / delays. i want f3 to run continuously until its time for f4 to happen, pausing f3 until f4 finishes, and then return to f3 until its time for f4 again.

[careca]

2 things:

1 - Dont quote a post directly above, it's anoying.

2 - That is not "running 2 functions simultaneously", that is alternating between 2 functions.

expandcollapse popup

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "OnOff")
;=============================================================================
Local $Timer1, $RdmTime
Local $On = 0
;=============================================================================
Func OnOff()
    If $On = 1 Then
        $On = 0
    Else
        $On = 1
    EndIf
EndFunc   ;==>OnOff
;=============================================================================
Func _F3a_Func()
    ConsoleWrite('_F3a_Func - ' & @MSEC & @CRLF)
EndFunc   ;==>_F3a_Func
;=============================================================================
Func _F4a_Func()
    ConsoleWrite('_F4a_Func - ' & @MSEC & @CRLF)
EndFunc   ;==>_F4a_Func
;=============================================================================
While 1
    If $On = 1 Then
        ;=============================================================================
        $RdmTime = Random(1000, 4000, 1)
        $Timer1 = TimerInit()
        Do
            If $On = 0 Then
            ExitLoop
            EndIf
            _F3a_Func()
            Sleep(100)
        Until TimerDiff($Timer1) > $RdmTime
        _F4a_Func()
        ;=============================================================================
    EndIf
    Sleep(100)
WEnd
;=============================================================================
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
;=============================================================================

 

[water]

  On 7/20/2018 at 10:24 PM, Bobm said:

yes, trying to get both function f3 and function f4 to work at the same time essentially, but i want them to both be running on random sleep times / delays. i want f3 to run continuously until its time for f4 to happen, pausing f3 until f4 finishes, and then return to f3 until its time for f4 again.

Expand  

You do not explain the problem, you explain the solution you try to implement.

Explaining the problem would be like:
"I have a script that runs application x. Sometimes a popup gets displayed. I need a function to wait for this popup and click a button"

[Bobm]

@careca this seems to be almost perfect, plenty better than what i had. i notice that hitting the pause still has f4 go off, is this unavoidable?

i apologize, im not the best at explaining things. but you appear to understand what i was attempting to say. i really appreciate the help you have given.

@water

apologies, properly explaining things isn't one of my strengths. but i briefly mentioned in my original under the edit, and my first reply, of the problem being it was infinitely spamming. it seems i didnt quite make the issue of it quite clear. but it was spamming without any delay, and i was trying to get it to have proper delays.

Edited July 21, 2018 by Bobm
to make water happy. excuse my failed attempt to use the quotes for directing my response.

[water]

We do not expect a PERFECT explanation, but we do expect that you TRY to explain your PROBLEM.

  Quote

Dont quote a post directly above, it's anoying.

Expand  

What do you do in your next post?  You quote the post again

As it seems you do not read our replies and just keep repeating your initial post I'm out now!

[Earthshine]

News Flash. It's not multi threaded this is never going to work as you want it to

Edited July 21, 2018 by Earthshine

[careca]

  On 7/21/2018 at 6:41 AM, Bobm said:

@careca  i notice that hitting the pause still has f4 go off, is this unavoidable?

Expand  

Hi, No. Try this one:

expandcollapse popup

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "OnOff")
;=============================================================================
Local $Timer1, $RdmTime
Local $On = 0
;=============================================================================
Func OnOff()
    If $On = 1 Then
        $On = 0
    Else
        $On = 1
    EndIf
EndFunc   ;==>OnOff
;=============================================================================
Func _F3a_Func()
    ConsoleWrite('_F3a_Func - ' & @MSEC & @CRLF)
EndFunc   ;==>_F3a_Func
;=============================================================================
Func _F4a_Func()
    ConsoleWrite('_F4a_Func - ' & @MSEC & @CRLF)
EndFunc   ;==>_F4a_Func
;=============================================================================
While 1
    If $On = 1 Then
        ;=============================================================================
        $RdmTime = Random(1000, 4000, 1)
        $Timer1 = TimerInit()
        Do
            _F3a_Func()
            Sleep(100)
        Until TimerDiff($Timer1) > $RdmTime Or $On = 0
        If $On = 1 Then
        _F4a_Func()
        EndIf
        ;=============================================================================
    EndIf
    Sleep(100)
WEnd
;=============================================================================
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
;=============================================================================

 

[Bobm]

@careca yes that worked, thank you. I think if i add another OnOff in there, i could perhaps pause f3 but keep f4 to continue after yes? or vice versa. i will attempt this when i get some time later.

im still very much a noob as they say. i used to know a bit more, but i havent done anything with coding in so long i have forgotten things.

 

Edited July 22, 2018 by Bobm