AutoIt Français

Code : Tout sélectionner

#include <Misc.au3>
Dim $charset[7][2] = [["I","i"], ["M","m"], ["A", "a"], ["W", "w"], ["E", "e"], ["S", "s"], ["O", "o"]]
HotKeySet ("{F2}", "_go")
Local $hDLL = DllOpen("user32.dll")

While 1
    Sleep (20)
WEnd

Func _go()
    While 1
        Send ($charset[0][Random (0,2)])
        Send ("'")
        Send ($charset[1][Random (0,2)])
        Send ("{SPACE}")
        Send ($charset[2][Random (0,2)])
        Send ($charset[3][Random (0,2)])
        Send ($charset[4][Random (0,2)])
        Send ($charset[5][Random (0,2)])
        Send ($charset[6][Random (0,2)])
        Send ($charset[1][Random (0,2)])
        Send ($charset[4][Random (0,2)])
        Send ("{SPACE}")
        If _IsPressed("72", $hDLL) Then
            DllClose($hDLL)
            Exit
        EndIf
    WEnd
EndFunc