Help me with loop script

[PhuongDuy]

Hi all,

Im completely newbie here. I have a problem with script that really need your help.

I want: When I press right mouse, number 2 will be pressed and it will loop per 5s. And it only stop ( I mean stop/script but not close it)  when I press enter key. Here is my script:

While 1
    If _ispressed("2") Then
        While _ispressed("2")
                Send("62")
                    Sleep(50)
        WEnd
    EndIf
WEnd
Func if _ispressed("2") Then
            Send("62")
            Sleep(5000)
EndFunc

Func TogglePause(0D) 
EndFunc

Thank very much!!

 

[SadBunny]

This script has so many problems, I don't know where to start. Try reading some example scripts and searching for all the errors you get running this script, so you can at least either provide a version without the syntax errors, or ask about the specific errors you don't know how to fix.

Also, this is a strangely specific to want to automate. What application are you automating? There is probably a much better way to accomplish what you are trying to do.

Edited December 29, 2016 by SadBunny
tpyo

[careca]

I got a feeling this is gonna be locked soon.

[Jos]

1 hour ago, careca said:

I got a feeling this is gonna be locked soon.

No need for any suggestive remarks and just let the thread run its course.

Jos

[PhuongDuy]

Thank you mod! 

[PhuongDuy]

13 hours ago, SadBunny said:

This script has so many problems, I don't know where to start. Try reading some example scripts and searching for all the errors you get running this script, so you can at least either provide a version without the syntax errors, or ask about the specific errors you don't know how to fix.

Also, this is a strangely specific to want to automate. What application are you automating? There is probably a much better way to accomplish what you are trying to do.

Thanks SadBunny. I find the first script on internet and it work good.

While 1
    If _ispressed("2") Then
        While _ispressed("2")
                Send("62")
                    Sleep(50)
        WEnd
    EndIf
WEnd

But I want more for my requirement so I change some on it which you see . 

If you feel hard to fix it, so pls you can help me write a new script? I thanks alot.

I use "Editor SciTE4" to edit the script.

[genius257]

14 hours ago, PhuongDuy said:

Hi all,

Im completely newbie here. I have a problem with script that really need your help.

I want: When I press right mouse, number 2 will be pressed and it will loop per 5s. And it only stop ( I mean stop/script but not close it)  when I press enter key. Here is my script:

While 1
    If _ispressed("2") Then
        While _ispressed("2")
                Send("62")
                    Sleep(50)
        WEnd
    EndIf
WEnd
Func if _ispressed("2") Then
            Send("62")
            Sleep(5000)
EndFunc

Func TogglePause(0D) 
EndFunc

Thank very much!!

 

Please use when posting code.

I would suggest:

• a low level mouse hook for the mouse events here is a thread with some example code
• AdlibRegister for the loop you need to repeat every 5 seconds
• maybe a low level keyboard hook for the enter key, but it might be overkill, so a simpler implementation would be HotKeySet

[PhuongDuy]

51 minutes ago, genius257 said:

Please use when posting code.

I would suggest:

• a low level mouse hook for the mouse events here is a thread with some example code
• AdlibRegister for the loop you need to repeat every 5 seconds
• maybe a low level keyboard hook for the enter key, but it might be overkill, so a simpler implementation would be HotKeySet

OK, will notice it genius257.

I wish i can understand all your link...Im COMPLETELY NUMBER ZERO KNOWLEDGE on experience at coding scripts ~~!!!

[Subz]

Maybe something like this, haven't really tested, but might give you something to work from.

#include <Misc.au3>

Global $bSTOP = False

HotKeySet('{Esc}', '_FNC_EXIT')
HotKeySet('{Enter}', '_FNC_STOP')

While 1
    If _IsPressed('02') Then _FNC_TIME()
    Sleep(50)
WEnd

Func _FNC_STOP()
    If $bSTOP = False Then
        $bSTOP = True
    Else
        $bSTOP = False
    EndIf
EndFunc

Func _FNC_TIME()
    $bSTOP = False
    Send('{ALT}')
    Local $hTIME = TimerInit(), $hDIFF = 0
    While 1
        Send('{NUMPAD2}')
        $hDIFF = TimerDiff($hTIME)
        If $hDIFF >= 5000 Then $bSTOP = True
        If $bSTOP = True Then ExitLoop
        Sleep(50)
    WEnd
EndFunc

Func _FNC_EXIT()
    Exit
EndFunc

 

[PhuongDuy]

Hi Subz,

I just run your script. It work with no error debug found. But it seem not like what i need. When i press right mouse, script do 22222222222222222222222222 (may be in 5s) and stop. I mean "press" is "click" (not press and hold mouse in 5s :D). Pls help me fix it. Here is my expectation for script:

1. When click right mouse

2. Script do number 2 and stop in 5s. Then do number 2 and stop in 5s again.. and repeat this loop...

3. Script will just stop (not exit)  when I click enter. If I click right mouse again, script will start running

Thanks alot!

[Subz]

You mean something like this?

expandcollapse popup

#include <Misc.au3>

Global $bSTOP = False

HotKeySet('{Esc}', '_FNC_EXIT')
HotKeySet('{Enter}', '_FNC_STOP')

While 1
    If _IsPressed('02') Then _FNC_TIME()
    Sleep(50)
WEnd

Func _FNC_STOP()
    If $bSTOP = False Then
        $bSTOP = True
    Else
        $bSTOP = False
    EndIf
EndFunc

Func _FNC_TIME()
    $bSTOP = False
    Local $hTIME = TimerInit(), $hDIFF = 0
    Send('{NUMPAD2}')
    While 1
        $hDIFF = TimerDiff($hTIME)
        If $hDIFF >= 5000 Then
            Send('{NUMPAD2}')
            $hTIME = TimerInit()
        EndIf
        If $bSTOP = True Then ExitLoop
        Sleep(50)
    WEnd
EndFunc

Func _FNC_EXIT()
    Exit
EndFunc

 

[PhuongDuy]

Hi Subz,

Its awesome. That is what i expect. Thank you very much

But later, if I change "Right Mouse" to " PgUp" key and "Enter" key to "PgDn" key, how should i do?

[PhuongDuy]

I found it. I change "02" to "21" and "Enter" to PgDn" then it resolved. 

I appreciate you, Subz