Basit Auto Click

[vandan2]

Autoit e ilk başladığımda bakmadan yazdığım ilk program.Program çok basit çalışıyor hotkey e basınca otomatik olarak tıklamaya başlıyor.Yeniler için faydalı olabilir Kodlar aşağıda...


[codebox]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Auto Clicker V 1.0", 287, 207, 192, 124)
$Button1 = GUICtrlCreateButton("Baslat/F7", 8, 120, 121, 73, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Durdur/F8", 160, 120, 113, 73, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Auto Clicker V 1.0 ", 32, 16, 220, 29)
GUICtrlSetFont(-1, 16, 800, 0, "Verdana")
$Label2 = GUICtrlCreateLabel("BETA", 112, 56, 59, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
GUISetState(@SW_SHOW)
$Button3 = GUICtrlCreateButton("Hakkında", 8, 88, 265, 25, $WS_GROUP)

HotKeySet ( "{F8}", "kapat" )
HotkeySet ("{F7}","calistir")

Func calistir ()
while 1
MouseClick ("left")
WEnd
EndFunc

Func kapat ()
while 1
Exit
WEnd
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
while 1
MouseClick ("left")
WEnd
Case $Button2
Exit
Case $Button3
MsgBox (0,"Kodlayan","Bu Program vandan2 Tarafından Kodlanmıştır")

EndSwitch
WEnd[/codebox]

[blackman12]

Daha basitleştirirsek:

[code]Global $Dur = True
$Form1 = GUICreate("Auto Clicker V 1.0", 287, 207, 192, 124)
$Button1 = GUICtrlCreateButton("Baslat/F7", 8, 120, 121, 73)
$Button2 = GUICtrlCreateButton("Durdur/F8", 160, 120, 113, 73)
$Label1 = GUICtrlCreateLabel("Auto Clicker V 1.0 ", 32, 16, 220, 29)
GUICtrlSetFont(-1, 16, 800, 0, "Verdana")
$Label2 = GUICtrlCreateLabel("BETA", 112, 56, 59, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
$Button3 = GUICtrlCreateButton("Durdur/F9", 8, 88, 265, 25)
GUISetState(@SW_SHOW)
HotKeySet ("{F8}", "kapat" )
HotkeySet ("{F7}","calistir")
HotkeySet ("{F9}","durdur")

While 1
if $Dur = False Then MouseClick ("left")
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button1
calistir()
Case $Button2
Exit
Case $Button3
durdur()
EndSwitch
WEnd

Func durdur ()
$Dur = True
EndFunc

Func calistir ()
$Dur = False
EndFunc

Func kapat ()
Exit
EndFunc[/code]