Bonjour, je vous présente mon premier bot :D
Vous pouvez donner votre avis, s'il vous plait?
Lien du téléchargement de la v0.1
Lien du téléchargement de la v0.2
Code source
Cliquez pour révéler
Cliquez pour masquer
Code de la v0.1:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\favicon.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1 = GUICreate("WakBot v0.1 By Fleoward(thom123)", 615, 438, 192, 124)
Global $Label1 = GUICtrlCreateLabel("WakBot v0.1", 16, 16, 383, 47)
GUICtrlSetFont(-1, 26, 400, 0, "Wide Latin")
Global $Group1 = GUICtrlCreateGroup("Lancer WakBot", 56, 248, 497, 129)
Global $Button1 = GUICtrlCreateButton("WakBot", 88, 272, 433, 81)
GUICtrlSetFont(-1, 18, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("WakBot 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")
While 1
Sleep(100)
$nmsg=GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0, "WakBot", "Bienvenue sur WakBot!")
MsgBox(0, "WakBot", "Ouvrez Wakfu, mais ne le mettez pas en plein écran. Ensuite, trouvez un endroit tranquille dans un champs de blé...")
MsgBox(0, "Wakbot", "C'est partit!")
WinActivate("WAKFU")
WinMove("WAKFU", "", 0, 0, 800, 600)
sleep(750)
$pos=PixelSearch(0,0,700,500,13666324,3)
While IsArray($pos)=1
$pos=PixelSearch(0,0,700,500,13666324,3)
MouseClick("right", $pos[0], $pos[1])
MouseClick("left", $pos[0]-10, $pos[1]-30)
sleep(7500)
Wend
MsgBox(64, "WakBot", "Aucune ressource trouvée...")
EndSwitch
WEnd
Func Quitter()
MsgBox(0, "WakBot", "Bye!")
Exit 0
EndFunc
Code de la v0.2:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\favicon.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1 = GUICreate("WakBot v0.2 By Fleoward(thom123)", 900, 550, 192, 124)
Global $Label1 = GUICtrlCreateLabel("WakBot v0.2", 16, 16, 383, 47)
GUICtrlSetFont(-1, 26, 400, 0, "Wide Latin")
Global $Group1 = GUICtrlCreateGroup("Paysan", 69, 305, 612, 159)
Global $Button1 = GUICtrlCreateButton("WakBot Paysan", 108, 335, 533, 99)
GUICtrlSetFont(-1, 18, 400, 0, "Palatino Linotype")
Global $Group2 = GUICtrlCreateGroup("Flood", 73, 135, 612, 159)
Global $Button2 = GUICtrlCreateButton("WakBot Flood", 112, 165, 533, 99)
GUICtrlSetFont(-1, 17, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label3 = GUICtrlCreateLabel("@Fleoward(thom123)", 632, 24, 224, 35)
GUICtrlSetFont(-1, 14, 400, 0, "Matura MT Script Capitals")
Global $Group3 = GUICtrlCreateGroup("Combat", 704, 136, 153, 329)
Global $Button3 = GUICtrlCreateButton("WakBot Combat", 715, 167, 125, 275)
GUICtrlSetFont(-1, 9, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Label2 = GUICtrlCreateLabel("WakBot 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")
While 1
Sleep(100)
$nmsg=GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0, "WakBot", "Bienvenue sur WakBot Paysan!")
MsgBox(0, "WakBot", "Ouvrez Wakfu, mais ne le mettez pas en plein écran. Ensuite, trouvez un endroit tranquille dans un champs de blé...")
MsgBox(0, "Wakbot", "C'est partit!")
WinActivate("WAKFU")
WinMove("WAKFU", "", 0, 0, 800, 600)
sleep(750)
$pos=PixelSearch(0,0,700,500,13666324,3)
While IsArray($pos)=1
$pos=PixelSearch(0,0,700,500,13666324,3)
MouseClick("right", $pos[0], $pos[1])
MouseClick("left", $pos[0]-10, $pos[1]-30)
sleep(7500)
Wend
MsgBox(64, "WakBot", "Aucune ressource trouvée...")
Case $Button2
MsgBox(0, "WakBot", "Bienvenue sur WakBot Flood!")
MsgBox(0, "WakBot", "Ouvrez Wakfu, mais ne le mettez pas en plein écran. Ensuite, placez votre personnage à l'endroit désiré pour flooder.")
$phflood=InputBox("Wakbot", "Quel phrase voulez vous flooder?")
sleep(30)
$kik=0
$nbrph=InputBox("WakBot", "Combien de fois voulez vous envoyer ce message?")
sleep(30)
MsgBox(0, "WakBot", "La fenêtre de Wakfu va s'ouvrir et vous n'aurez plus qu'à placer votre souris sur la barre de Chat et attendre quelques secondes.")
WinActivate("WAKFU")
WinMove("WAKFU", "", 0, 0, 800, 600)
Sleep(7000)
$pos=MouseGetPos()
Sleep(3000)
While $kik <= $nbrph
MouseClick("Right", $pos[0], $pos[1])
send($phflood)
send($kik)
send("{ENTER}")
$kik=$kik+1
Sleep(5000)
Wend
MsgBox(64, "WakBot", "La phrase à bien été flooder.")
EndSwitch
WEnd
Func Quitter()
Exit 0
EndFunc
VirusTotal (v0.1): ICI
Voila, les fonctions de la v0.2:
Il fauche le blé et uniquement le blé
Il peut faire flooder une phrase(ou un texte)
Faut pas être trops sévere, c'est mon premier bot :P
Et la v0.3 fera apparaitre le système de combat :)
Le screen arrive...