WizzBot v2 (TouchOnWeb's Emu)
Mise à jour suite à la nouvelle version de l'émulateur ! Les liens ont étaient modifié ! (ainsi que le code)
Information :
Après la sortie de mon première bot DofusTouch, je sort le petit frère, il est entièrement optimisé pour l'émulateur conçu par TouchOnWeb !
Si vous utilisez un autre émulateur il se peut qu'il ne soit pas compatible !
Sinon vous pouvez utiliser l'original : ICI
Tutoriel
Config :
- Lancer le WizzBot2 Config
- Mettez la souris sur une couleur de la ressource, puis appuyez sur la touche "C"
- Reproduisez l'étape précédente mais avec une autre couleur de la ressource
- N'oubliez pas d'appuyer sur la touche "Sauvegarder" à la fin !
WizzBot2
- Lancer WizzBot2
- Renseignez le nom de la fenêtre ou le Handle de celui-ci
- Appuyez sur le bouton "START" et laissez faire le bot :)
- Faites la touche "Echap" de votre clavier pour stopper le bot !
Fonctionnalités
Récolte de la ressource
Fermeture des Pop-up (non vérif)
Avertissement sonore lors d'un combat puis pause du bot
Explications
Ce bot est un "PixelBot", il va prendre contrôle de votre souris, et va cliquez sur les différentes couleurs sélectionnées. La création de bot me permet de m'améliorer dans la programmation en AuToit. En cas de bannissement, je ne prend aucune responsabilités.
Images
A Venir
Code Source
Voici comme promis le code des 2 programmes :
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1475779252_Settings_gear_setting_tools.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Local $Pos[2]
Local $Couleur, $Couleur2, $Couleur3, $Couleur4, $Couleur5
$Form1_1 = GUICreate("WizzBot", 383, 110, 192, 124, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Button1 = GUICtrlCreateButton("Sauvegarder", 216, 72, 75, 25)
$Button2 = GUICtrlCreateButton("Quitter", 296, 72, 75, 25)
$Button3 = GUICtrlCreateButton("Donate :D", 296, 8, 75, 25)
$Label3 = GUICtrlCreateLabel("WizzBot CONFIG", 8, 64, 185, 38)
GUICtrlSetFont(-1, 16, 800, 0, "Viner Hand ITC")
$Group1 = GUICtrlCreateGroup("", 8, 0, 281, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Placez votre souris sur le pixel de la ressource", 16, 8, 269, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("Puis appuyez sur C sur 5 couleurs différentes", 16, 32, 264, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
GUISetState(@SW_SHOW)
HotKeySet("c", "pixel")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
save()
Case $Button3
donate()
EndSwitch
WEnd
Func donate()
$ui = GUICreate("WizzBot", 1000, 800) ; on créer la GUI
$wb = _IECreateEmbedded() ; on appel le navigateur embarqué
GUICtrlCreateObj($wb, 10, 10, 980, 780) ; on le met en place ici
GUISetState() ; on montre la GUI
_IENavigate($wb, "https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=frojerome%40gmail%2ecom&lc=ZA&item_name=WizzBot&no_note=0¤cy_code=EUR&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHostedGuest", 1) ; l'adresse de votre messagerie
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
GUIDelete($ui)
ExitLoop
EndSwitch
WEnd
EndFunc
Func pixel()
$Pos = MouseGetPos()
$Couleur = PixelGetColor( $Pos[0], $Pos[1])
$Couleur = Hex($Couleur, 6)
ToolTip("Pixel Done : " & $Couleur, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel2")
EndFunc
Func pixel2()
$Pos = MouseGetPos()
$Couleur2 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur2 = Hex($Couleur2, 6)
ToolTip("Pixel Done : " & $Couleur2, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel3")
EndFunc
Func pixel3()
$Pos = MouseGetPos()
$Couleur3 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur3 = Hex($Couleur3, 6)
ToolTip("Pixel Done : " & $Couleur3, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel4")
EndFunc
Func pixel4()
$Pos = MouseGetPos()
$Couleur4 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur4 = Hex($Couleur4, 6)
ToolTip("Pixel Done : " & $Couleur4, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel5")
EndFunc
Func pixel5()
$Pos = MouseGetPos()
$Couleur5 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur5 = Hex($Couleur5, 6)
ToolTip("Pixel Done : " & $Couleur5, 0, 0)
HotKeySet("c")
Sleep(2000)
ToolTip("")
EndFunc
Func save()
FileDelete("Settings.cfg")
FileOpen("Settings.cfg")
FileWriteLine("Settings.cfg", "0x" & $Couleur)
FileWriteLine("Settings.cfg", "0x" & $Couleur2)
FileWriteLine("Settings.cfg", "0x" & $Couleur3)
FileWriteLine("Settings.cfg", "0x" & $Couleur4)
FileWriteLine("Settings.cfg", "0x" & $Couleur5)
Exit
EndFunc
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1475779252_Settings_gear_setting_tools.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Local $Pos[2]
Local $Couleur, $Couleur2, $Couleur3, $Couleur4, $Couleur5
$Form1_1 = GUICreate("WizzBot", 383, 110, 192, 124, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Button1 = GUICtrlCreateButton("Sauvegarder", 216, 72, 75, 25)
$Button2 = GUICtrlCreateButton("Quitter", 296, 72, 75, 25)
$Button3 = GUICtrlCreateButton("Donate :D", 296, 8, 75, 25)
$Label3 = GUICtrlCreateLabel("WizzBot CONFIG", 8, 64, 185, 38)
GUICtrlSetFont(-1, 16, 800, 0, "Viner Hand ITC")
$Group1 = GUICtrlCreateGroup("", 8, 0, 281, 57)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Placez votre souris sur le pixel de la ressource", 16, 8, 269, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("Puis appuyez sur C sur 5 couleurs différentes", 16, 32, 264, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
GUISetState(@SW_SHOW)
HotKeySet("c", "pixel")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
save()
Case $Button3
donate()
EndSwitch
WEnd
Func donate()
$ui = GUICreate("WizzBot", 1000, 800) ; on créer la GUI
$wb = _IECreateEmbedded() ; on appel le navigateur embarqué
GUICtrlCreateObj($wb, 10, 10, 980, 780) ; on le met en place ici
GUISetState() ; on montre la GUI
_IENavigate($wb, "https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=frojerome%40gmail%2ecom&lc=ZA&item_name=WizzBot&no_note=0¤cy_code=EUR&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHostedGuest", 1) ; l'adresse de votre messagerie
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
GUIDelete($ui)
ExitLoop
EndSwitch
WEnd
EndFunc
Func pixel()
$Pos = MouseGetPos()
$Couleur = PixelGetColor( $Pos[0], $Pos[1])
$Couleur = Hex($Couleur, 6)
ToolTip("Pixel Done : " & $Couleur, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel2")
EndFunc
Func pixel2()
$Pos = MouseGetPos()
$Couleur2 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur2 = Hex($Couleur2, 6)
ToolTip("Pixel Done : " & $Couleur2, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel3")
EndFunc
Func pixel3()
$Pos = MouseGetPos()
$Couleur3 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur3 = Hex($Couleur3, 6)
ToolTip("Pixel Done : " & $Couleur3, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel4")
EndFunc
Func pixel4()
$Pos = MouseGetPos()
$Couleur4 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur4 = Hex($Couleur4, 6)
ToolTip("Pixel Done : " & $Couleur4, 0, 0)
HotKeySet("c")
HotKeySet("c", "pixel5")
EndFunc
Func pixel5()
$Pos = MouseGetPos()
$Couleur5 = PixelGetColor( $Pos[0], $Pos[1])
$Couleur5 = Hex($Couleur5, 6)
ToolTip("Pixel Done : " & $Couleur5, 0, 0)
HotKeySet("c")
Sleep(2000)
ToolTip("")
EndFunc
Func save()
FileDelete("Settings.cfg")
FileOpen("Settings.cfg")
FileWriteLine("Settings.cfg", "0x" & $Couleur)
FileWriteLine("Settings.cfg", "0x" & $Couleur2)
FileWriteLine("Settings.cfg", "0x" & $Couleur3)
FileWriteLine("Settings.cfg", "0x" & $Couleur4)
FileWriteLine("Settings.cfg", "0x" & $Couleur5)
Exit
EndFunc
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1475791664_Alarm_Signal_Alert_Telltale.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ==== WizzBot ====
; == Includes ==
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include "Misc.au3"
$res1 = FileReadLine("Settings.cfg", 1)
$res2 = FileReadLine("Settings.cfg", 2)
$res3 = FileReadLine("Settings.cfg", 3)
$res4 = FileReadLine("Settings.cfg", 4)
$res5 = FileReadLine("Settings.cfg", 5)
$Form1_1 = GUICreate("WizzBot v2", 147, 131, 1147, 7, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$buttonDemarrer = GUICtrlCreateButton("Start", 64, 96, 75, 25)
$Label1 = GUICtrlCreateLabel("WizzBot", 8, 4, 79, 23)
GUICtrlSetFont(-1, 14, 800, 0, "Tempus Sans ITC")
$Group1 = GUICtrlCreateGroup("", 8, 24, 129, 65)
$Input1 = GUICtrlCreateInput("", 24, 56, 97, 21)
$Label2 = GUICtrlCreateLabel("Nom du Client", 40, 34, 70, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
; == Variables ==
$mode = 0
$aggro = 0
Global $nomProgramme = "WizzBot v2"
Global $couleurRessource = [$res1,$res2,$res3,$res4,$res5]
;~ Global $couleurBleInventaire[5] = ["0xD9A910","0xE3BA2E","0xDBA801","0xCF9B00","0xE0B630"]
Const $couleurCroix = 0xC6E453
;~ Const $couleurInventaireVide = 0x514A3C, $couleurInventairePlein = 0xA00101
;~ Const $verif = 10
Global $posDetruire[2], $posValiderDetruire[2] = [0,0]
$compteur = 0
$nbErreursCsq = 0
$popUp = 0
$recolte = 0
$i = 0
Global $botOn = 0
;~ =======================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
Case $buttonDemarrer
_verifsDemarrage()
if $botOn = 0 Then
ContinueCase
EndIf
; == Et maintenant, le coeur de la maison, la cuisine ==
While 1
_verifAggros() ; On verifie tout avant de faucher
_verifsPopups()
if $botOn = 1 Then ; Si tout va bien on y va
_recolte()
Else ; Sinon on arrete le bot
ContinueCase
EndIf
WEnd
EndSwitch
WEnd
;~ ========================================
Func _verifsDemarrage()
; -- Nom perso --
;~ $nomPerso = GUICtrlRead($inputNom) origine
$nomPerso = GUICtrlRead($Input1)
if WinExists($nomPerso) And $nomPerso <> "" Then
sleep(200)
WinSetState($nomPerso,"",@SW_MINIMIZE)
WinSetState($nomPerso,"",@SW_RESTORE)
WinMove($nomPerso, "", 0, 0, 700, 600)
EndIf
_demarrage()
EndFunc
Func _demarrage()
HotKeySet("{ESC}", "closeBotRac" )
$botOn = 1
EndFunc
Func _verifAggros()
$couleur = PixelGetColor(700, 600)
if $couleur = $couleurCroix Then ; Couleur croix = Couleur bouton Pret
_alerte()
EndIf
EndFunc
Func _alerte()
Beep (400 *3,500)
Beep (400 *3,500)
Beep (400 *3,500)
sleep(500)
Beep (400 *3,500)
Beep (400 *3,500)
Beep (400 *3,500)
stopBot("Aggression !")
EndFunc
Func stopBot($raison)
$botOn = 0
EndFunc
Func _verifsPopups()
_fermeturePopups(370, 343) ; Verif up / echange / defi
_fermeturePopups(199, 292) ; Verif invit goupe
_fermeturePopups(665, 81) ; Verif inventaire ouvert
_fermeturePopups(637, 78) ; Verif sorts
_fermeturePopups(218, 81) ; Verif caracs ouverte
_fermeturePopups(671, 67) ; Verif map ouverte
EndFunc
Func _fermeturePopups($x, $y)
$couleur = PixelGetColor($x, $y)
if $couleur = $couleurCroix Then
$popUp = $popUp + 1
MouseClick("left",$x, $y)
EndIf
EndFunc
Func _recolte()
$posRes = 0
$posRes = PixelSearch(0,0,690,500,$couleurRessource[$i],1)
if Not @error Then
$recolte = $recolte + 1
$compteur = $compteur + 1
MouseClick("left",$posRes[0], $posRes[1])
sleep(1000)
$i = Random(0,4,1)
Else
$i = Random(0,4,1)
EndIf
EndFunc
Func closeBotRac()
ToolTip("Stop",0,0)
Sleep(500)
ToolTip("")
$botOn = 0
EndFunc
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=1475791664_Alarm_Signal_Alert_Telltale.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ==== WizzBot ====
; == Includes ==
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include "Misc.au3"
$res1 = FileReadLine("Settings.cfg", 1)
$res2 = FileReadLine("Settings.cfg", 2)
$res3 = FileReadLine("Settings.cfg", 3)
$res4 = FileReadLine("Settings.cfg", 4)
$res5 = FileReadLine("Settings.cfg", 5)
$Form1_1 = GUICreate("WizzBot v2", 147, 131, 1147, 7, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$buttonDemarrer = GUICtrlCreateButton("Start", 64, 96, 75, 25)
$Label1 = GUICtrlCreateLabel("WizzBot", 8, 4, 79, 23)
GUICtrlSetFont(-1, 14, 800, 0, "Tempus Sans ITC")
$Group1 = GUICtrlCreateGroup("", 8, 24, 129, 65)
$Input1 = GUICtrlCreateInput("", 24, 56, 97, 21)
$Label2 = GUICtrlCreateLabel("Nom du Client", 40, 34, 70, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
; == Variables ==
$mode = 0
$aggro = 0
Global $nomProgramme = "WizzBot v2"
Global $couleurRessource = [$res1,$res2,$res3,$res4,$res5]
;~ Global $couleurBleInventaire[5] = ["0xD9A910","0xE3BA2E","0xDBA801","0xCF9B00","0xE0B630"]
Const $couleurCroix = 0xC6E453
;~ Const $couleurInventaireVide = 0x514A3C, $couleurInventairePlein = 0xA00101
;~ Const $verif = 10
Global $posDetruire[2], $posValiderDetruire[2] = [0,0]
$compteur = 0
$nbErreursCsq = 0
$popUp = 0
$recolte = 0
$i = 0
Global $botOn = 0
;~ =======================================
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
Case $buttonDemarrer
_verifsDemarrage()
if $botOn = 0 Then
ContinueCase
EndIf
; == Et maintenant, le coeur de la maison, la cuisine ==
While 1
_verifAggros() ; On verifie tout avant de faucher
_verifsPopups()
if $botOn = 1 Then ; Si tout va bien on y va
_recolte()
Else ; Sinon on arrete le bot
ContinueCase
EndIf
WEnd
EndSwitch
WEnd
;~ ========================================
Func _verifsDemarrage()
; -- Nom perso --
;~ $nomPerso = GUICtrlRead($inputNom) origine
$nomPerso = GUICtrlRead($Input1)
if WinExists($nomPerso) And $nomPerso <> "" Then
sleep(200)
WinSetState($nomPerso,"",@SW_MINIMIZE)
WinSetState($nomPerso,"",@SW_RESTORE)
WinMove($nomPerso, "", 0, 0, 700, 600)
EndIf
_demarrage()
EndFunc
Func _demarrage()
HotKeySet("{ESC}", "closeBotRac" )
$botOn = 1
EndFunc
Func _verifAggros()
$couleur = PixelGetColor(700, 600)
if $couleur = $couleurCroix Then ; Couleur croix = Couleur bouton Pret
_alerte()
EndIf
EndFunc
Func _alerte()
Beep (400 *3,500)
Beep (400 *3,500)
Beep (400 *3,500)
sleep(500)
Beep (400 *3,500)
Beep (400 *3,500)
Beep (400 *3,500)
stopBot("Aggression !")
EndFunc
Func stopBot($raison)
$botOn = 0
EndFunc
Func _verifsPopups()
_fermeturePopups(370, 343) ; Verif up / echange / defi
_fermeturePopups(199, 292) ; Verif invit goupe
_fermeturePopups(665, 81) ; Verif inventaire ouvert
_fermeturePopups(637, 78) ; Verif sorts
_fermeturePopups(218, 81) ; Verif caracs ouverte
_fermeturePopups(671, 67) ; Verif map ouverte
EndFunc
Func _fermeturePopups($x, $y)
$couleur = PixelGetColor($x, $y)
if $couleur = $couleurCroix Then
$popUp = $popUp + 1
MouseClick("left",$x, $y)
EndIf
EndFunc
Func _recolte()
$posRes = 0
$posRes = PixelSearch(0,0,690,500,$couleurRessource[$i],1)
if Not @error Then
$recolte = $recolte + 1
$compteur = $compteur + 1
MouseClick("left",$posRes[0], $posRes[1])
sleep(1000)
$i = Random(0,4,1)
Else
$i = Random(0,4,1)
EndIf
EndFunc
Func closeBotRac()
ToolTip("Stop",0,0)
Sleep(500)
ToolTip("")
$botOn = 0
EndFunc
Téléchargement :
WizzBot v2 : 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!
VirusScan : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Last edited: