[Ex] AutoClicker

[Slymayer]

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

[timmalos]

Pas mal:

Un truc a faire attention, Y'a des Includes qui servent a rien, ca alourdit le code pour rien.



—> Misc.au3
—> ButtonConstants.au3
—> EditConstants.au3
—> FontConstants.au3
—> GUIConstantsEx.au3
—> MemoryConstants.au3
—> StaticConstants.au3
—> StructureConstants.au3
—> WindowsConstants.au3



ALors que

#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>

Suffit

[Slymayer]

Ben, après, je m'y connais mal, c'est mon premier script qui a une fonction autre qu'un HelloWorld en AutoIt, donc merci du renseignement !