Sleep Command help

[Rewl 0]

Hey guys so I'm making a script, and I want it so if i MouseClick("right") Then script sleeps for 2 seconds.

I've tried everything though.. even the following.. And it doesn't work, can you guys help me?

$right = MpuseClick("right")

also you might need this to understand what $click is

Dim $click = False

Func startpause()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc

While True
    If $click = True Then
    MouseClick("left")
EndIf
sleep(20)
WEnd

and this is the code that I tried to use and it doesn't work

If $right Then
    $click = False
        sleep(2000)
Else
    $click = True
EndIf

[iamtheky 570]

check the help for _ispressed

[Rewl 0]

check the help for _ispressed

thanks for your help iamtheky!

so this is what I have, and it still doesn't work

IF _IsPressed("02") Then
    Sleep(2000)
EndIf

I've also tried

IF _IsPressed("02" , $dll) Then
    Sleep(2000)
EndIf
DllClose($dll)

Edited November 17, 2010 by Rewl

[wakillon 391]

have you try like this ?

#include <Misc.au3>

While 1
    If _IsPressed ( "02" ) = 1 Then 
        ConsoleWrite ( "Sleep ( 2000 )" & @Crlf )
        Sleep ( 2000 ) 
    EndIf   
    Sleep ( 10 )
WEnd

Edited November 17, 2010 by wakillon

[Rewl 0]

have you try like this ?

#include <Misc.au3>

While 1
    If _IsPressed ( "02" ) = 1 Then 
        ConsoleWrite ( "Sleep ( 2000 )" & @Crlf )
        Sleep ( 2000 ) 
    EndIf   
    Sleep ( 10 )
WEnd

just did it and it still doesn't work :/

[wakillon 391]

just did it and it still doesn't work :/

"02" is the right click mouse button, so try with another

But for me it works fine !

[Rewl 0]

hmm, show me your whole source?

[iamtheky 570]

How about? You show us your whole source, and we will show you why its not making with the right click sleep action.

[Rewl 0]

How about? You show us your whole source, and we will show you why its not making with the right click sleep action.

expandcollapse popup

#include<IE.au3>
HotKeySet("{ESC}" , "close")
HotKeySet("{SPACE}" , "startpause")

Dim $click = False
$dll = DllOpen("user32.dll")


MsgBox(64, "Rewl's XXXX v1.0" , "Thank-you for using Auto Clicker, Press ""ESC"" to close the program and ""G"" to pause the clicker and SpaceBar to start it.")

Func close()
    $iE = _IECreate()
    $m = MsgBox(4 , "Rewl's XXXXX v1.0" , "Thank-you for trying the program, Press yes to visit Auto-IT Thread.")
    IF $m = 6 Then
        _IENavigate($iE , "")
    EndIf
    Exit
EndFunc

Func startpause()
   If $click = False Then
      $click = True
      ToolTip("Rewl XXXXXX v1.0 Running." , 0 , 0)
   Else
      $click = False
      ToolTip("Rewl XXXXXX v1.0 Paused." , 0 , 0)
   EndIf
EndFunc
    
While True
    If $click = True Then
    MouseClick("left")
EndIf
sleep(20)
WEnd
#include <Misc.au3>

While 1
    If _IsPressed ( "02" ) = 1 Then 
        ConsoleWrite ( "Sleep ( 2000 )" & @Crlf )
        Sleep ( 2000 ) 
    EndIf   
    Sleep ( 10 )
WEnd

[iamtheky 570]

multiple whiles is teh ugly

expandcollapse popup

#include<IE.au3>
#include <Misc.au3>


HotKeySet("{ESC}" , "close")
HotKeySet("{SPACE}" , "startpause")

Dim $click = False
$dll = DllOpen("user32.dll")


MsgBox(64, "Rewl's XXXX v1.0" , "Thank-you for using Auto Clicker, Press ""ESC"" to close the program and ""G"" to pause the clicker and SpaceBar to start it.")

Func close()
    $iE = _IECreate()
    $m = MsgBox(4 , "Rewl's XXXXX v1.0" , "Thank-you for trying the program, Press yes to visit Auto-IT Thread.")
    IF $m = 6 Then
        _IENavigate($iE , "")
    EndIf
    Exit
EndFunc

Func startpause()
   If $click = False Then
      $click = True
      ToolTip("Rewl XXXXXX v1.0 Running." , 0 , 0)
   Else
      $click = False
      ToolTip("Rewl XXXXXX v1.0 Paused." , 0 , 0)
   EndIf
EndFunc


While 1
    If _IsPressed ( "02" ) = 1 Then
        ConsoleWrite ( "Sleep ( 2000 )" & @Crlf )
        Sleep ( 2000 )
    EndIf

   If $click = True Then
    ConsoleWrite ( "TRUE" & @Crlf )
EndIf
sleep(20)

WEnd

[Rewl 0]

so now after i right click it doesnt start clicking again, ill fix it. thanks

[Rewl 0]

Nvm I fixed it .