Chestrun bot

Page 1 of 2 1 2
06/14/2008 15:53 emtec22#1
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

[Only registered and activated users can see links. Click Here To Register...]
Scanned by [Only registered and activated users can see links. Click Here To Register...]

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
06/14/2008 16:07 kknb#2
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.
06/14/2008 16:13 blackWorkx#3
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 :D )
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 :D

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") 
06/14/2008 17:22 emtec22#4
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 :D

Alos bei mir nun 4 h und kein Fehler dabei, bisher
06/14/2008 18:10 kknb#5
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.
06/14/2008 19:58 emtec22#6
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
06/14/2008 21:02 -Anthrax-#7
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")
06/16/2008 07:50 XCygon#8
can you translate please?
06/16/2008 10:02 emtec22#9
The Bot runs in Boreal Station in Eye of the North

all files included
06/16/2008 10:52 solos#10
Gibts noch Infos ala wieviel Truhen pro Stunde oder sowas?
06/16/2008 12:10 emtec22#11
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
06/16/2008 13:44 emtec22#12
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 :D
06/16/2008 13:48 blackWorkx#13
ja sry war in eile und habe das halt verpeilt xD
06/17/2008 19:48 longsome#14
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ß
06/17/2008 22:37 kknb#15
aus der minimap.au3 einfach den teil mit texmod entfernen, dann funktioniert die auch.
Page 1 of 2 1 2