Fehler beim verkaufen

07/29/2009 13:30 HardCore.1337#1
Hi, ich habe vorhins meinen Bot hier hochgeladen
([Only registered and activated users can see links. Click Here To Register...]

Nun möchte ich ihn natürlich erweitern, weil er ist ja doch noch ziemlich einfach
Natürlich darf da eine Verkaufsfunction nicht fehlen.
Doch da kommt bei mir bloß eine Fehlermeldung.

Also erstmal der Code:
Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Markus S.

 Script Function:
	Nebo-Terasse Bot

#ce ----------------------------------------------------------------------------

HotKeySet("{ESC}", "Terminate")
HotKeySet("{PAUSE}", "TogglePause")


Func Terminate()
    Exit 0
EndFunc
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc




$Anzahl = InputBox ("Runden", "Wie viele Runden soll der Bot laufen?", "10")

$VK = InputBox ("Verkaufen", "Nach wie viele Runden soll verkauft werden?", "10")
Local $i


For $i = 1 to $Anzahl
WinWait ("Guild Wars")
WinWaitActive ("Guild Wars")
sleep (2000)
WinActive ("Guild Wars")
ToolTip ($i + "Runs", 50, 80)
;Rausgehen Prozedure beginnen

sleep (2000)
send ("O")
sleep (500)
send ("{Space}")
sleep (12000)
Send("{S down}")
sleep(700)
Send("{S Up}")
sleep(1000)
Send("{Q down}")
sleep(1000)
Send("{Q Up}")
sleep(1000)
send ("{D Down}")
sleep(280)
send ("{D Up}")
sleep(1000)
Send("{W down}")
sleep(3500)
Send("{W Up}")

sleep (12000)

;Fight Prozedure
send ("8")
sleep (3000)
send ("7")
sleep(3000)
send("6")
sleep(3000)
send ("5")
sleep(3000)
send ("4")
sleep(5000)

send ("1")
sleep(1500)
send ("2")
sleep(500)
send ("{W down}")
sleep(1000)
send ("{W up}")
send ("{Tab}")
sleep(500)
send ("{Space}")
sleep(12000)
send ("1")
send ("2")
sleep(5000)
send ("3")
sleep(13000)
send ("1")
send ("2")
sleep(7000)

;Gegenstände aufheben
send ("O")
send ("{Space}")
sleep(2000)
send ("O")
send ("{Space}")
sleep(2000)
send ("O")
send ("{Space}")
sleep(2000)
send ("O")
send ("{Space}")
sleep(2000)

;Zurück
sleep(3000)
send ("{Enter}")
send ("/Resign")
send ("{Enter}")
sleep(2000)

;Resign Button drücken
sleep(1500)
MouseMove (832, 546)
sleep(500)
MouseClick ("Left", 832, 546)
sleep(3000)



if $i = $VK Then            ; Ab hier verkaufen
	send ("{a down}")
	sleep (1000)
	send ("{a up}")
	sleep(1000)
	send ("{W down}")
	sleep (2500)
	send ("{W up}")
	sleep(500)
	send ("{d down}")
	sleep (650)
	send ("{d up}")
	sleep(500)
	send ("{W down}")
	sleep (3500)
	send ("{W up}")

	sleep(500)
	send ("{V}")
	send ("{Space}")
	sleep (5000)
	MouseMove (955, 92)
	MouseClick ("Left", 955, 92)
	sleep(500)
	MouseMove(1310, 968)
	sleep(1000)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)
	MouseClick ("Left" 1310, 968)

	MouseMove  (1426, 968)
	MouseClick ("Left", 1426, 968)
EndIf


Next

Danke für eure Hilfe
07/29/2009 13:50 InToxic#2
Ich seh deinen ING - Namen...
07/29/2009 13:52 Rosemarie Lein#3
Einen Tipp, starte den Bot nicht durch doppelklicken auf die Datei sondern im Editor durch F5 drücken. Dann werden dann mehr Fehler angezeigt.
Edit: Dann siehst du auch das du z.B. bei den Mausklicks ein Komma vergessen hast;)
07/29/2009 13:55 [.ToyGun.]#4
der aggro monhc oder so xD
07/29/2009 14:04 HardCore.1337#5
Ok, danke...daran lags.
Is schlimm wenn ihr meinen Ingame Namen seht?
07/29/2009 14:22 in MIND#6
wenn du den account noch n bisschen behalten möchtest wärs besser, wenn man ihn nich sehen würde
07/29/2009 16:38 Rosemarie Lein#7
Ich find den Bot irgendwie nett. Ausnahmsweise mal kein Funktionen zusammenkopieren + MoveTo sondern so wie es aussieht mühsam selbst geschrieben.:) Teilweise zwar etwas wirr, aber das kommt mit der Zeit.
07/29/2009 16:42 in MIND#8
dito
und auch mal einer, der gleich den code reinstellt
07/29/2009 17:15 emtec22#9
als nächste stufe schau dir mal control send an dann läuft das ganze inaktiv damit du surfen kannst dabei
07/29/2009 20:04 HardCore.1337#10
Ok, mal ne neue Frage.
Wenn ich will das der Bot aller 20 Runs verkauft wie mache ich das da? komm grade gar ni weiter...:confused:

ich müsste doch da theoretisch ne schleife in der schleife haben..:confused:
hab gar keine Ahnung grade.

muss ja i-wie so oder:

Code:
func Runs ()
For $i =1 to $Anzahl 
...
;Resign Button drücken
sleep(1500)
MouseMove (832, 546)
sleep(500)
MouseClick ("Left", 832, 546)
sleep(3000)
EndFunc
Next
oder so. hab wirklich keine Ahnung
07/29/2009 22:33 De Michel#11
falls ich an dieser Stelle mal einfach hier hin verweisen darf, [Only registered and activated users can see links. Click Here To Register...].
hab es jetzt erstmal so geändert, damit er läuft.
PHP Code:
;-Start Identifizieren
Opt("MouseClickDelay", 100)

$IdentX = 40
$IdentY = 285

ControlSend($hwnd,"","","{.}")
Sleep(1000)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",36,82, 1, 80)
Sleep(200)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",74,82, 1, 80)
Sleep(200)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",112,82, 1, 80)
Sleep(200)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",151,82, 1, 80)
Sleep(200)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",185,82, 1, 80)
Sleep(200)
ControlClick($hwnd, "", "", "left", 2, $IdentX, $IdentY)
Sleep(200)
_MouseClick($hwnd, "left",36,132, 1, 80) 
usw.

leider mus hierfür GW wieder in den Vordergrund geholt werden, was leider noch nicht ganz funktioniert.
PHP Code:


;-Start Identkit verkaufen und neues kaufen
ControlSend($hWnd,"","","{PGDN}")
Sleep(1000)
MouseClickDrag("left",36,315,43,108)
Sleep(1000)
ControlClick($hWnd,"","","left",1,500,40)
Sleep(1000)
ControlClick($hWnd,"","","left",1,640,525)
Sleep(1000)
ControlClick($hWnd,"","","left",1,426,40)
Sleep(1000)
ControlClick($hWnd,"","","left",2,472,230)
Sleep(1000)
MouseClickDrag("left",43,108,43,315)
Sleep(1000)
ControlSend($hWnd,"","","{PGUP}")
;-Ende Identkit verkaufen und neues kaufen 
hab schon paar ideen was noch dazu kommen könnte wie ne GUI und so
aber im moment keine zeit und die probleme müssen erst beseitigt werden.
07/29/2009 22:47 HardCore.1337#12
Also ne GUI hab ich.
Ich will erstmal den Bot ohne Control send hinbekommen.

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

Will erstmal wissen wie ich das machen kann, das ich sagen kann verkaufe aller x Runden und nicht nur einmal halt, sondern z.B. aller 10 Runden.
07/29/2009 22:56 InToxic#13
Quote:
Originally Posted by General Desert View Post
Also ne GUI hab ich.
Ich will erstmal den Bot ohne Control send hinbekommen.

Will erstmal wissen wie ich das machen kann, das ich sagen kann verkaufe aller x Runden und nicht nur einmal halt, sondern z.B. aller 10 Runden.
Beispielsweise mit ner Variable...

PHP Code:
$Rounds = 0

Func Main()
If $Rounds = 20 Then
    Verkaufen()
    $Rounds = 0
Else
    Farmen()
    $Rounds += 1
EndIf
EndFunc