Code:
AutoIt Version: 3.2.12.1 Author: Dunham Farmort: UW² Klasse: A/E Skillung: OwZTkY/85hH6KQGAgUBPS6rzAA Energie: ~55 Auflösung: Vollbild - 1280 x 1024 Interface: Größer (Standart) Besonderheiten: Gruppenfenster rechts oben! Funktionen: Farmen (Verkaufs-Funktion fehlt) Danke NBA und alle andern die mir geholfen haben!!

PHP Code:
#cs
AutoIt Version: 3.2.12.1
Author: Dunham
Farmort: UW²
Klasse: A/E
Skillung: OwZTkY/85hH6KQGAgUBPS6rzAA
Energie: ~55
Auflösung: Vollbild - 1280 x 1024
Interface: Größer (Standart)
Besonderheiten: Gruppenfenster rechts oben!
Funktionen: Farmen (Verkaufs-Funktion fehlt)
Danke NBA für die Hilfe!!
#ce
HotKeySet("{End}","end")
Func end()
Exit
EndFunc
GuiCreate("UW² Ecto Bot v1 by Dunham",242,202,387,200)
$button1=GuiCtrlCreateButton("Bot starten",-2,-2,246,109)
$button2=GuiCtrlCreateButton("Exit",-3,104,247,78)
$input1=GuiCtrlCreateInput("OwZTkY/85hH6KQGAAAAPS6rzAA",90,182,138,20)
$label1=GuiCtrlCreateLabel("A/E Skillung:",3,186,70,15)
GuiSetState()
$Runden = Inputbox("UW² Ecto Bot v1","Geb hier ein wieviel Runden du farmen willst")
$i = 0
While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
Wend
Func button1()
Call("start")
EndFunc
Func button2()
Exit
EndFunc
Func RS($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc
Func sf()
While 1
$pixel1 = PixelChecksum(868, 953,928, 1013)
if $pixel1 = 167713478 Then
Send("6")
RS(100,200)
Send("7")
RS(500,900)
Send("8")
ExitLoop
Else
$schattenform = 0
EndIf
WEnd
EndFunc
Func Target1()
While 1
$pixel2 = PixelChecksum(535, 38,633, 46)
if $pixel2 = 1387931340 Then
Send(" ")
ExitLoop
Else
Send("{tab}")
RS(10,60)
EndIf
WEnd
EndFunc
Func sr()
While 1
$pixel3 = PixelChecksum(342,952,401,1013)
if $pixel3 = 2115857573 Then
RS(1,1000)
Send("3")
RS(900,1200)
Send("1")
RS(3000,4000)
Send("2")
ExitLoop
Else
$splitter = 0
EndIf
WEnd
EndFunc
Func loot()
For $i = 10 to 1 step -1
Send("o")
RS(100,200)
$pixel4 = PixelChecksum(783, 34,794, 47)
if $pixel4 = 3006085956 Then
RS(100,200)
Send("{space}")
RS(10,20)
Send("{space}")
RS(1400,1800)
Send(",")
RS(10,100)
Else
RS(1000,1200)
Call("resign")
ExitLoop
EndIf
Next
Call("resign")
EndFunc
Func resign()
send("-")
sleep(400)
send("resign")
sleep(700)
send("{enter}")
RS(2000,3000)
Mouseclick("left",623,543)
EndFunc
Func check()
While 1
$pixel2 = PixelChecksum(535, 38,633, 46)
if $pixel2 = 1387931340 Then
Send(" ")
ExitLoop
Else
Call("Target1")
RS(10,60)
EndIf
WEnd
EndFunc
Func uw()
Call("sf")
RS(2500,3500)
Send("r")
RS(5900,6000)
Send("{d down}")
RS(900,1000)
Send("{d up}")
RS(3000,3100)
Send("{a down}")
RS(800,900)
Send("{a up}")
RS(2100,2250)
Send("{a down}")
RS(500,600)
Send("{a up}")
RS(3300,3600)
Send("{a down}")
RS(300,350)
Send("{a up}")
RS(2700,3200)
Send("r")
Call("Target1")
RS(1000,1500)
Call("sf")
RS(1200,1500)
Call("sr")
RS(9000,12000)
Call("check")
Sleep(100)
Call("sf")
RS(1200,1500)
Call("sr")
RS(9000,12000)
Call("check")
Sleep(100)
Call("sf")
RS(1300,1500)
Send(",")
RS(100,200)
Call("sr")
RS(10000,11000)
Call("loot")
EndFunc
Func HM()
Mouseclick("left",1064, 67)
RS(200,300)
EndFunc
Func weg()
send("o")
RS(0,2000)
send("{space}")
Sleep(3000)
EndFunc
Func farm()
RS(1,1000)
While 1
$check = PixelChecksum(356, 926,425, 936)
if $check = 2943090078 Then
Call("weg")
ExitLoop
Else
$wait1 = 1
EndIf
WEnd
While 1
$check = PixelChecksum(868, 953,928, 1013)
if $check = 167713478 Then
Call("uw")
ExitLoop
Else
$wait2 = 0
EndIf
WEnd
EndFunc
Func start()
Winactivate("Guild Wars")
Winwaitactive("Guild Wars")
RS(1000,2000)
Call("HM")
For $i = $Runden to 1 step -1
Call("farm")
Next
EndFunc
Quote:
Ich adde mal den Antivirus Report nach, wenn das OK ist
Antivir: Nichts gefunden
ArcaVir: Nichts gefunden
Avast: Nichts gefunden
AVG: Nichts gefunden
BitDefender: Nichts gefunden
F-Prot: Nichts gefunden
Norman: Nichts gefunden
Rising: Nichts gefunden
VirusBlokAda32: Nichts gefunden
VirusBuster: Nichts gefunden
Überprüft von
~ Maaan
Der Bot geht nicht mehr!






