tous le monde, je vous présente un bot wakfu qui permet de flooder et récolté des recources !
soyez indulgents, c'est mon premier bot
ajout de la 0.1 :
+ Ajout de l'interface graphique
+ Ajout du system de flood
+ Ajout du system de récolte de blé
Toutes commercialisation de se script est absolument interdit sous pène de poursuite judicière.
soyez indulgents, c'est mon premier bot
ajout de la 0.1 :
+ Ajout de l'interface graphique
+ Ajout du system de flood
+ Ajout du system de récolte de blé
HTML:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\favicon.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvo ker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1 = GUICreate("FullBot v0.1 By FullLiFe", 900, 550, 192, 124)
Global $Label1 = GUICtrlCreateLabel("FullBot v0.2", 16, 16, 383, 47)
Global $Boutton1 = GUICtrlCreateButton("Wakfu Flood", 715, 167, 125, 275)
Global $Label3 = GUICtrlCreateLabel("SaVe FullLiFe", 632, 24, 224, 35)
GUICtrlSetFont(-1, 14, 400, 0, "Matura MT Script Capitals")
Global $Boutton2 = GUICtrlCreateButton("Wakfu Paysans", 108, 335, 533, 99)
Global $Boutton3 = GUICtrlCreateButton("Wakfu Combats", 108, 235, 533, 99)
if
Global $Label2 = GUICtrlCreateLabel("FullBot est en développement, il n'est donc pas encore complet. Appuyez sur 'Esc' pour quitter.", 16, 100, 306, 34)
GUISetState(@SW_SHOW)
HOTKeySet("{ESC}", "Quitter")
Func Quitter()
Exit 0
EndFunc
While 1
Sleep(100)
$nmsg=GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Boutton1
$phflood=InputBox("Flood", "Entrer une phrase ?")
sleep(30)
$kik=0
$nbrph=InputBox("Flood", "Combien de fois voulez vous envoyer cette phrase?")
MsgBox(0, "Flood", "Placer la souris sur la bar de tchat et attander quelques secondes")
Sleep(7000)
$pos=MouseGetPos()
Sleep(3000)
While $kik <= $nbrph
MouseClick("Left", $pos[0], $pos[1])
send($phflood)
send("{ENTER}")
$kik=$kik+1
Sleep(10000)
Wend
MsgBox(64, "Flood", "La phrase à bien été flooder.")
Case $Boutton2
sleep(30)
Sleep(30)
WinActivate("WAKFU")
WinMove("WAKFU", "", 0, 0, 800, 600)
$nb = 1
while $nb
$pos=PixelSearch(0,0,700,500,13666324,3)
MouseClick("right",$pos[0],$pos[1])
MouseClick("left",$pos[0]+10,$pos[1]-30)
Sleep(6000)
Wend
Case $Boutton3
MsgBox(0, "Bot Combat", "Pas encore disponible")
$pos=MouseGetPos()
EndSwitch
WEndToutes commercialisation de se script est absolument interdit sous pène de poursuite judicière.
