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