Auto clicker

[thenewkid]

i made this script for a game i play that you have to click a lot and found it has a few more uses and i found a few on the net what you have to buy so heres a free one

things added

hotkey added for faster exit

all feedback wecome

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>
Global $pos[2]

HotKeySet("{Esc}","_Exit")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autoclicker", 253, 136, 193, 115)
$Label1 = GUICtrlCreateLabel("How meny times to click", 16, 16, 118, 17)
$Label2 = GUICtrlCreateLabel("Where to click", 16, 40, 73, 17)
$Input_cks = GUICtrlCreateInput("", 152, 8, 41, 21)
$Input_X = GUICtrlCreateInput("", 152, 32, 41, 21)
$Input_Y = GUICtrlCreateInput("", 200, 32, 41, 21)
$Label3 = GUICtrlCreateLabel("What button to click", 16, 64, 100, 17)
$Radio_lt = GUICtrlCreateRadio("Left", 152, 64, 41, 17)
$Radio_rt = GUICtrlCreateRadio("Right", 200, 64, 49, 17)
$Button_whereck = GUICtrlCreateButton("Find where to click", 152, 88, 99, 17, 0)
$Button_go = GUICtrlCreateButton("Go", 48, 112, 51, 17, 0)
$Button_exit = GUICtrlCreateButton("Exit", 96, 112, 51, 17, 0)
GUICtrlSetState($Radio_lt, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func Wheretoclick()
$dll = DllOpen("user32.dll")
While 1
    Sleep ( 250 )
    If _IsPressed("01", $dll) Then
$pos = MouseGetPos()
GUICtrlSetData($Input_X,$pos[0])
GUICtrlSetData($Input_Y,$pos[1])
ExitLoop
EndIf
WEnd
EndFunc

func gogo()
$sidelt = GUICtrlRead($Radio_lt)
$sidert = GUICtrlRead($Radio_rt)
if $sidelt = "1" Then
$side = "left"
EndIf
If $sidert = "1" Then
    $side = "right"
EndIf
$clicks =   GUICtrlRead($Input_cks)
$loop = "0"
GUISetState(@SW_HIDE)
While 1
MouseClick($side, $pos[0], $pos[1], 1)
MouseMove(0, 0, 0)
$loop += "1"
if $loop = $clicks Then
    MsgBox(0, "Autoclicker", "Finshed all clicks")
    GUISetState(@SW_SHOW)
    ExitLoop
EndIf
WEnd
EndFunc

Func _Exit()
Exit
EndFunc


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_whereck
            Wheretoclick()
        case $Button_go
            gogo()
        Case $Button_exit
            Exit
    EndSwitch
WEnd

Auto_clicker.au3

Edited April 25, 2007 by thenewkid

[BillLuvsU]

Love that func name. gogo( ) teeheehee

[_Kurt]

I like the idea of letting the user retrieve coordinates by where they click. Couple of suggestions..

Always put indents where necessary (will make script 10x easier to read)

Keep your UDF's at the bottom of the script

Also, maybe you could add in a timer to click every X seconds.. something like

$timer = TimerInit()
While 1
    If TimerDiff($timer) > GUICtrlRead($NewInputControlForDelay) Then
        MouseClick(....)
        $timer = 0
        $timer = TimerInit()
    EndIf
WEndoÝ÷ Ù.².ØZ½ëazWµÉbrFî¶Ú'uçÚº[^vÊuا¶¬{hÊ«BºÚ"µÍÕRPÝÙ]Ý]J  ÌÍÔY[×Û    ÌÍÑÕRWÐÒPÒÑQ

Kurt

[thenewkid]

thanks for the feebback ive edited it a littie bit so now it wont send all the clicks in at the 1 time now it will send a click then move then send the click agen

[relight]

I think you should add a hotkey for termination...

I just got stuck a min again when testing this script.

[thenewkid]

ok thanks

[Generator]

Why MouseMove back to 0,0. I don't get it.

[thenewkid]

Why MouseMove back to 0,0. I don't get it.

i know that there is a few way of doing it but i found this way easyer to do its to slow down the time it takes to send the clicks

Edited April 25, 2007 by thenewkid

[Jos]

Seems you still haven't read our forum rules.

So this is the second time I close a thread you create or post in.

Third will not be without consequences.

Jos

EDIT: I see you were able to delete your post just before I locked it.

Edited February 6, 2015 by Jos