Fonctions :
•Chaque 7 Min il presse Z , Q , S ou D
•Chaque 25 Min il envoie t/heal dans le chat
Durée : 150
Si j'arrive à comprendre les boucles je ferait une boucle illimité
Code source :
1.1
Maintenant :
Il y a le 32/64 Bits des msgbox et les ajouts proposé par ricardo
•Chaque 7 Min il presse Z , Q , S ou D
•Chaque 25 Min il envoie t/heal dans le chat
Durée : 150
Si j'arrive à comprendre les boucles je ferait une boucle illimité
Code source :
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Anti Afk Gta", 145, 44, 192, 124)
$Button1 = GUICtrlCreateButton("Lancer le script", 8, 8, 129, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ToolTip("Pour arrêter le script avant la fin des 150 minutes allez faites 'Exit Script'", 0, 0)
Send("Z")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("240000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("180000")
Send ("Z")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("60000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("360000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("300000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("120000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("120000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("300000")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("360000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("60000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("D")
Sleep("180000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Exit
EndSwitch
WEnd
1.1
Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=app.ico
#AutoIt3Wrapper_outfile=C:\Users\DXS\Desktop\AutoIt\Ma Prog\Gta Bot v1.1(62 Bits).exe
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{F1}", "play")
HotKeySet("{F2}", "pause")
HotKeySet("{ESC}", "quit")
HotKeySet("{F10}", "fixed")
HotKeySet("{F3}", "help")
MsgBox("Gta","Gta Bot" ,"Nous vous remercions d'utilisez cette version 1.1 du bot" , 5)
MsgBox("Gta","Gta Bot" ,"Ce bot est fait pour être simple et à la portée de tous" , 5)
MsgBox("GTA","Gta Bot","Commandes : " &@CRLF& "-F1 pour commencer l'utilisation" &@CRLF& "-F2 pour mettre en pause" &@CRLF& "Esc pour Quitter" &@CRLF& "F10 Pour accéder au paneau des fixed" &@CRLF& "F3 pour l'aide aux commandes")
Global $start
While 1
If $START Then
Send("Q")
Sleep("420000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("D")
Sleep("240000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("180000")
Send ("Z")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("60000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("360000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("300000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("120000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("Z")
Sleep("120000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("300000")
Send("Q")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("360000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("60000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("D")
Sleep("180000")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
Sleep("240000")
Send("Z")
Sleep("420000")
Send("S")
Sleep("420000")
Send("Q")
Sleep("420000")
Send("D")
Send("{ENTER}")
Send("t/heal")
Send("{ENTER}")
EndIf
Wend
Func play()
ToolTip("Play F2 = Pause ", 0, 0)
$start = 1
EndFunc
Func pause()
ToolTip("Pause F1 = Play ", 0, 0)
$start = 0
EndFunc
Func quit()
Exit
EndFunc
Func fixed()
MsgBox("Gta","Fixed du Gta Bot" ,"Version actuelle : 1.1" &@CRLF& "Incorporation des touches pour démarrer , arrêter , mettre en pause" &@CRLF& "Modification : Boucle infini " &@CRLF& "Incorporation des Msgbox")
EndFunc
Func help()
MsgBox("Gta","Aide du GTA Bot " ,"Touches : F1 => Play F2 =>Pause Esc => Quitter F10 => Fixed "&@CRLF&"F3 => Ici "&@CRLF& "Si vous avez des problèmes avec le bot veuillez me contactez sur cheat gam 3"&@CRLF&"Une email sera créer si des utilisateurs le souhaites")
EndFunc
Il y a le 32/64 Bits des msgbox et les ajouts proposé par ricardo