Bot Wakfu paysan (mon premier bot)

thom123 · Apr 15, 2012

WakBot v0.2: Bot Wakfu paysan/flood

Bonjour, je vous présente mon premier bot :hap:

Vous pouvez donner votre avis, :svp:

?
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Code de la v0.1:

Code:

#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:

Code:

#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: Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
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:arf:

~~Et la v0.3 fera apparaitre le système de combat:)~~
EDIT: J'ai complètement abandonné le bot, désolé :non:

Le screen arrive...

DARK-APO · Apr 16, 2012

J'ai survoler le code source, mais si tu met des msgbox il me semble que ça coupe l’exécution du bot ^^
Je dis ca à propose de :
MsgBox(64, "WakBot", "Aucune ressource trouvée...")

De plus j'ai une petite question, même si le champs est grand il va vite se faire récolter ^^
Un petit truc aussi, 7500, prévoit que si tu te bases sur une recherche de pixel de tout l'écran (700,500 si j'ai bien vu) il peut aller d'un bout à l'autre en boucle,donc 7500 ne suffirait pas à ce moment là.

Je dis ca juste au titre d'un vision pour une évolution ;) Sinon bon projet.

Prévois peut être un tableau de couleur, personnellement j'ai vu que les couleurs changent ! Du moins localement ...

thom123 · Apr 16, 2012

Merci pour les conseils, je vais voir ce que je peux faire pour l'améliorer.

cedrico85 · May 24, 2012

A quand la mise a jour ? car cher moi ton bot fonctionne une fois sur 2 il clic a cote ou il court hors du chant enfin voila

hijop2 · Jul 12, 2012

Version de l'updater: 2.16.2710
Installation en version: 1.9.80822

Bonsoir, alors moi lorsque je télécharges le l'un ou l'autres de ces logiciels, je l'ouvres et cela m'écris ''WakBot_V0.2.exe n'est pas une application win32 valide''

Je l'ai téléchargé plusieurs fois, mais sans succès.
Un peu d'aide serait apprécié :)
merci d'avance pour les réponses

Drobat · Mar 24, 2013

lien dead :/ .

4ntology · Mar 26, 2013

Liens morts.

Bot Wakfu paysan (mon premier bot)

Publicités

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

More options

thom123

Membre

DARK-APO

Membre actif

thom123

Membre

cedrico85

Nouveau membre

hijop2

Membre

Drobat

Membre actif

4ntology

Membre Banni