[Ex] AutoClicker
Posté : dim. 03 mai 2009 15:55
Bonjour à tous, je viens récemment de créer un AutoClicker, SlyAC. D3V!LM33 m'a énormément aidé, c'est mon 1er programme UTILE basé sur l'AutoIt.
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=D:\Users\Jules Penuchot\Desktop\SlyAC\Partie Form.kxf
$SALUT = GUICreate("SlyAC", 506, 106, 214, 160, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER))
$LABEL1 = GUICtrlCreateLabel("Démarrer l'autoclicker : CTRL + Shift + F5", 24, 16, 200, 17)
$LABEL2 = GUICtrlCreateLabel("Arrêter l'autoclicker : CTRL + Shift + F6", 24, 32, 188, 17)
$LABEL3 = GUICtrlCreateLabel("Délai avant un click (En millisecondes) :", 24, 72, 191, 17)
$DELAI = GUICtrlCreateInput("Délai avant click", 216, 64, 177, 21)
$BUTTON1 = GUICtrlCreateButton("Valider", 408, 64, 89, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $BUTTON1
$DELAIDEFRAPPE = GUICtrlRead($DELAI)
EndSwitch
If _ISPRESSED("11") And _ISPRESSED("10") And _ISPRESSED("74") Then
While 1
Sleep($DELAIDEFRAPPE)
MouseClick("left")
If _ISPRESSED("11") And _ISPRESSED("10") And _ISPRESSED("75") Then
ExitLoop
EndIf
WEnd
EndIf
WEnd
!