vandan2 Posted July 25, 2011 Share Posted July 25, 2011 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] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 25, 2011 Share Posted July 25, 2011 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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.