Chestrun bot

emtec22 · 06/14/2008, 15:53

Hallo,

so ich habe meinen ersten Autoit Bot nun fertig.

Möchte euch den zum testen mal vorstellen....

Nördliche Station (Eye of the North) dafür ist er gedacht

P.S. Nicht wundern meine Texmod datei ist recht Bunt

Quote:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=....Schatztruhe.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
HotKeySet("{END}","_exitit")

traytip("Made by ","emtec22",1000)

sleep(500)

Func _exitit()
exit 0
EndFunc

WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")

= Random(10000,11000)
Sleep ( )

= 0
Do

MouseMove(555,271)
MouseDown("right")
MouseMove(640,512)
MouseUp("right")

= true
While = true
= PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x202645)
If Not @error Then
MouseClick ( "Left", , ,2)
= false
Else
Send("a")
sleep(200)
EndIf
Wend

= Random(6000,6200)
Sleep ( )

= true
While = true
= PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x3C4683)
If Not @error Then
MouseClick ( "Left", , ,2)
= false
Else
Send("a")
Sleep(200)
EndIf
Wend

= Random(3000,3100)
Sleep ( )

= Random(6000,6100)
Sleep ( )

= true
While = true
= PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0x0B4104)
If Not @error Then
MouseClick ( "Left", , )
= false
Else
Send("a")
EndIf
Wend

= Random(5000,5100)
Sleep ( )

Send("ö{SPACE}{SPACE}ö{SPACE}")

= Random(12000,13000)
Sleep ( )

Send("dddddddddddddddwwwwwwwdddwwwwwwwwwddddwwwwww wwwwwwdddwwwwwwwwwwwwwwwwwwwwwddddwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww")

= Random(6000,6100)
Sleep ( )

Send("U")

MouseMove(1097,280)
MouseDown("left")
MouseUp("left")

;setzt die 1te Flagge
MouseMove(103,319)
MouseDown("left")
MouseUp("left")

= Random(2000,2300)
Sleep ( )

MouseClick("left",1048,839,2)
MouseMove(1087,280)
MouseDown("left")
MouseUp("left")

= Random(40000,41000)
Sleep ( )

MouseMove(140,421)
MouseDown("left")
MouseUp("left")

= Random(2000,2300)
Sleep ( )

MouseClick("left",1054,858,2)
MouseDown("left")

= Random(23000,23900)
Sleep ( )

Send("ö{SPACE}ö{SPACE}ö{SPACE}ö{SPACE}ö{SPACE}ö{SP ACE}")

Send("1")

= Random(15000,16000)
Sleep ( )

MouseMove(620,561)
MouseClick("left",616,562,2)
MouseDown("left")
MouseUp("left")

= Random(2000,2300)
Sleep ( )

Send("ö{SPACE}ö{SPACE}")

= Random(2000,2300)
Sleep ( )

Send("{ENTER}{SHIFTDOWN}7{SHIFTUP}resign{ENTER}")

Send("u")
= Random(4000,5000)
Sleep ( )

MouseMove(649,534)
MouseDown("left")
MouseMove(647,534)
MouseUp("left")

= Random(15000,16000)
Sleep ( )

= + 1

Until = 10

Minimap einstellen

Quote:

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("TexMod - GW.EXE","")
If Not WinActive("TexMod - GW.EXE","") Then WinActivate("TexMod - GW.EXE","")
WinWaitActive("TexMod - GW.EXE","")
MouseMove(787,669)
MouseDown("left")
MouseUp("left")
WinWait("Guild Wars","")
If Not WinActive("Guild Wars","") Then WinActivate("Guild Wars","")
WinWaitActive("Guild Wars","")

sleep (5000)

MouseMove(132,184)
MouseDown("left")
MouseMove(429,1023)
MouseUp("left")

Hier noch der Scan

Quote:

Antivir: Nothing found
ArcaVir: Nothing found
Avast: Nothing found
AVG: Nothing found
BitDefender: Nothing found
F-Prot: Nothing found
Norman: Nothing found
Rising: Nothing found
VirusBlokAda32: Nothing found
VirusBuster: Nothing found

Scanned by

Hier dann auch nochmal ein Upload der exen + Anleitung + Screens

Falls wer verbesserungsvorschläge hat nehm ich diese gerne an.

Am besten von Codern da ich gerade noch lerne sodass ich nachfragen kann

Was ich noch gerne jetzt schon wüsste, starten des Bots im GW Fenster über eine Taste

~~kknb~~ · 06/14/2008, 16:07

dort is keine texmod datei im archiv^^

zu deiner frage: bin zwar auch neuling in dem bereich, aber sollte ja kein problem sein das teil per hotkey zu starten. so wie es zum beispiel der hfff bot im semiauto modus macht.

blackWorkx · 06/14/2008, 16:13

Hallo,

also ich selbst brauche solch einen Bot nicht will ja Gold Sammeln und nicht verballern. Aber für die so ein Titel haben wollen is es bestimmt gut.

Da du ja ein paar verbesserungs vorschläge haben wolltest hätte ich ein paar.

Ändern:

PHP Code:



Send("dddddddddddddddwwwwwwwdddwwwwwwwwwddddwwwwww wwwwwwdddwwwwwwwwwwwwwwwwwwwwwddddwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww")

Würde dies umschreiben in keydown/up´s würde dann so aussehen.

PHP Code:



Send("d down")
Sleep oder RandomSleep(1000, 2000); Zeit musst du selber einstellen je nach dem wie lange er laufen soll
Send("d up")
;das gleiche halt mit w oder den anderen bewegungs Tasten

Die 0 kannst du hier weg lassen (danke an Bitchbi der es mir gesagt hatte )

PHP Code:



 Func _exitit()
exit
EndFunc

Sowas kannst du hier auch ändern mit keydown und sleep dazwischen!

PHP Code:



 Send("ö{SPACE}{SPACE}ö{SPACE}")

Ändern in z.B.

PHP Code:



Send("ö")
sleep(100)
Send("{Space}")
Send("ö")
sleep(100)
Send("{Space}")
Send("ö")
sleep(100)
Send("{Space}")

Hier kannst du die special key weg lassen sowas wie {Shift} etc.

PHP Code:



 Send("{ENTER}{SHIFTDOWN}7{SHIFTUP}resign{ENTER}")

Ändern in z.B.

PHP Code:



Send("{ENTER}")
sleep(30)
Send("/", 1);die 1 bewirkt das er alle special charackter der Tastatur selber erkennt
sleep(30)
Send("resign", 1)
sleep(40)
Send("{Enter}")

Das Sleep in Random kannst du auch gleich ganz für alles machen in dem du ne eigene Funktion dafür machst würde z.B. so aus sehen.

Code:

Func RandomSleep($MIN, $MAX) 
sleep(Random($MIN, $MAX))
EndFunc

Ansonsten könnte man halt noch etwas übersichtlicher machen. Aber darin bin ich selber kein meister

Mfg

EDIT:

für Code per Taste starten musste alles in eine Func machen

PHP Code:



 Func _Start()
;dein Bot zeugs der code hier rein;
endfunc

dann per HotkeySet so:

PHP Code:



HotkeySet("{F1}", "_start")

emtec22 · 06/14/2008, 17:22

SO TextMode Datei ist dabei.

Die Anmerkungen lese ich mir nun mal in Ruhe durch, danke dir

So alles gelesen und verstanden.

Werde das morgen überarbeiten, ich lass gerade den Bot laufen

Alos bei mir nun 4 h und kein Fehler dabei, bisher

~~kknb~~ · 06/14/2008, 18:10

deine minimap.exe funktioniert bei mir nicht, wäre nett wenn du mal den code dazu posten könntest.

am besten du postet mal den code von der chestrun.exe auch hier rein...der code oben ist ja anscheinend nicht komplett.

emtec22 · 06/14/2008, 19:58

minimap text ist drin. Komisch bei mir klappt die Minimap.exe ohne Probleme

Ok oben ist nicht komplett da die Variablen hier von der Boardsoftware gekillt werden.

Habe die Au3 dateien nun auch hochgeladen , minmap und chestrun

-Anthrax- · 06/14/2008, 21:02

einfach unter advanced die options weg, dann gehts:

Code:

#Region
#AutoIt3Wrapper_icon=..\..\Schatztruhe.ico
#endregion
HotKeySet("{END}", "_exitit")
TrayTip("Made by ", "emtec22", 1000)
Sleep(500)

Func _EXITIT()
    Exit 0
EndFunc

WinWait("Guild Wars", "")
If Not WinActive("Guild Wars", "") Then WinActivate("Guild Wars", "")
WinWaitActive("Guild Wars", "")
$RNDNUMBER = Random(10000, 11000)
Sleep($RNDNUMBER)
$ZZ = 0
Do
    MouseMove(555, 271)
    MouseDown("right")
    MouseMove(640, 512)
    MouseUp("right")
    $I = True
    While $I = True
        $PIXELSEARCH = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 2106949)
        If Not @error Then
            MouseClick("Left", $PIXELSEARCH[0], $PIXELSEARCH[1], 2)
            $I = False
        Else
            Send("a")
            Sleep(200)
        EndIf
    WEnd
    $RNDNUMBER = Random(6000, 6200)
    Sleep($RNDNUMBER)
    $I = True
    While $I = True
        $PIXELSEARCH = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 3950211)
        If Not @error Then
            MouseClick("Left", $PIXELSEARCH[0], $PIXELSEARCH[1], 2)
            $I = False
        Else
            Send("a")
            Sleep(200)
        EndIf
    WEnd
    $RNDNUMBER = Random(3000, 3100)
    Sleep($RNDNUMBER)
    $RNDNUMBER = Random(6000, 6100)
    Sleep($RNDNUMBER)
    $I = True
    While $I = True
        $PIXELSEARCH = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 737540)
        If Not @error Then
            MouseClick("Left", $PIXELSEARCH[0], $PIXELSEARCH[1])
            $I = False
        Else
            Send("a")
        EndIf
    WEnd
    $RNDNUMBER = Random(5000, 5100)
    Sleep($RNDNUMBER)
    Send("ö{SPACE}{SPACE}ö{SPACE}")
    $RNDNUMBER = Random(12000, 13000)
    Sleep($RNDNUMBER)
    Send("dddddddddddddddwwwwwwwdddwwwwwwwwwddddwwwwwwwwwwwwdddwwwwwwwwwwwwwwwwwwwwwddddwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww")
    $RNDNUMBER = Random(6000, 6100)
    Sleep($RNDNUMBER)
    Send("U")
    MouseMove(1097, 280)
    MouseDown("left")
    MouseUp("left")
    MouseMove(103, 319)
    MouseDown("left")
    MouseUp("left")
    $RNDNUMBER = Random(2000, 2300)
    Sleep($RNDNUMBER)
    MouseClick("left", 1048, 839, 2)
    MouseMove(1087, 280)
    MouseDown("left")
    MouseUp("left")
    $RNDNUMBER = Random(40000, 41000)
    Sleep($RNDNUMBER)
    MouseMove(140, 421)
    MouseDown("left")
    MouseUp("left")
    $RNDNUMBER = Random(2000, 2300)
    Sleep($RNDNUMBER)
    MouseClick("left", 1054, 858, 2)
    MouseDown("left")
    $RNDNUMBER = Random(23000, 23900)
    Sleep($RNDNUMBER)
    Send("ö{SPACE}ö{SPACE}ö{SPACE}ö{SPACE}ö{SPACE}ö{SPACE}")
    Send("1")
    $RNDNUMBER = Random(15000, 16000)
    Sleep($RNDNUMBER)
    MouseMove(620, 561)
    MouseClick("left", 616, 562, 2)
    MouseDown("left")
    MouseUp("left")
    $RNDNUMBER = Random(2000, 2300)
    Sleep($RNDNUMBER)
    Send("ö{SPACE}ö{SPACE}")
    $RNDNUMBER = Random(2000, 2300)
    Sleep($RNDNUMBER)
    Send("{ENTER}{SHIFTDOWN}7{SHIFTUP}resign{ENTER}")
    Send("u")
    $RNDNUMBER = Random(4000, 5000)
    Sleep($RNDNUMBER)
    MouseMove(649, 534)
    MouseDown("left")
    MouseMove(647, 534)
    MouseUp("left")
    $RNDNUMBER = Random(15000, 16000)
    Sleep($RNDNUMBER)
    $ZZ = $ZZ + 1
Until $ZZ = 10

Code:

OPT("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
WinWait("TexMod - GW.EXE", "")
If Not WinActive("TexMod - GW.EXE", "") Then WinActivate("TexMod - GW.EXE", "")
WinWaitActive("TexMod - GW.EXE", "")
MouseMove(787, 669)
MouseDown("left")
MouseUp("left")
WinWait("Guild Wars", "")
If Not WinActive("Guild Wars", "") Then WinActivate("Guild Wars", "")
WinWaitActive("Guild Wars", "")
Sleep(5000)
MouseMove(132, 184)
MouseDown("left")
MouseMove(429, 1023)
MouseUp("left")

XCygon · 06/16/2008, 07:50

can you translate please?

emtec22 · 06/16/2008, 10:02

The Bot runs in Boreal Station in Eye of the North

all files included

solos · 06/16/2008, 10:52

Gibts noch Infos ala wieviel Truhen pro Stunde oder sowas?

emtec22 · 06/16/2008, 12:10

1 run dauert 2 min , ansich ca 30 Truhen in der Stunde manchmal sind leider auch runs dabei ohne Truhe.

Habe den Bot heute nacht 70 mal laufen lassen und hatte 65 Truhen

emtec22 · 06/16/2008, 13:44

Send("d down")
Sleep oder RandomSleep(1000, 2000); Zeit musst du selber einstellen je nach dem wie lange er laufen soll
Send("d up")
;das gleiche halt mit w oder den anderen bewegungs Tasten

Für die, die dies gelesen haben , das ist leider falsch

send( " { w up} " ) muss es sein dann passt das, aber danke dir nun sieht das script besser aus

blackWorkx · 06/16/2008, 13:48

ja sry war in eile und habe das halt verpeilt xD

longsome · 06/17/2008, 19:48

hoi, ich habs mal probiert... allerdings hab ich keine ahnung von scripten und sowas

und leider hats bei mir schon an der minimap.exe gescheitert... hab ich gestartet, vorher alles so eingestellt wies sein soll und nix passiert, hab auch mal die delay zeit zu verändern aber daran lags nicht und sehr viel mehr sagt mir das alles dann auch nicht ^^
vll hast du ja mal zeit und kannst mir sagen worans liegt, wäre sehr dankbar.

gruß

~~kknb~~ · 06/17/2008, 22:37

aus der minimap.au3 einfach den teil mit texmod entfernen, dann funktioniert die auch.