ACHAT KAMAS PRIX JAMAIS VU
Place your Ad here for €1.10 per CPM (1000 impressions)!

GTA : Anti AFK

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Evaelis

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
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 :
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
Maintenant :
Il y a le 32/64 Bits des msgbox et les ajouts proposé par ricardo
 

Attachments

  • Gta Bot v1.1_64 Bits_.exe
    758.8 KB · Views: 11
ACHAT KAMAS PRIX JAMAIS VU
[Ł].أ.g.ђ.Ŧ

[Ł].أ.g.ђ.Ŧ

∂αηѕ ℓ'σмвяє...
V.I.P
Jul 7, 2010
100
0
581
=> 93 <=
Exemple de script avec :
1. HotKey *-*
2.Boucle illimiter :)
3.Pouvoir areter et reprendre la boucle :D

Qui pourait être utile pour toi .

Code: 
HotKeySet("{F1}", "play") ; F1 la Boucle commence
HotKeySet("{F2}", "pause") ; F2 la Boucl s'arette
HotKeySet("{ESC}", "quit") ; ESC le script s'arette

ToolTip("F1 > PLAY / F2 > PAUSE / ESC > QUITT", 0, 0)

Global $start

While 1


If $START Then

Sleep("10000") ; 10 sec
Send("Q") ; apuie sur Q
Sleep("10000") ; 10 sec
Send("Z") ; apui sur Z
Sleep("10000") ; 10 sec
Send("S") ; apui sur S
Sleep("10000") ; 10 sec
Send("D") ; apui sur D
Sleep("10000") ; 10 sec
Send("{ENTER}") ; apui sur ENTER
Send("t/heal") ; apui sur t/heal
Send("{ENTER}") ; apui sur ENTER

EndIf
Wend

Func play()
	ToolTip("Bot Actif / Pause > F2", 0, 0)
    $start = 1
EndFunc ; Commence/repren la Boucle

Func pause()
	ToolTip("Pause ... / Play > F1", 0, 0)
    $start = 0
EndFunc ; Stop la Boucle

Func quit()
	Exit
EndFunc ; Quitte le Script

j'éspère que ça t'aidera
 
Votre publicité ici !
You must log in or register to reply here.
Top Bottom