Also noch einen kleinen Tipp. Nach dem laden noch ein sleep von 4000 setzen. Die ID wird zu früh angezeigt.
Und damit der Bot sich nicht aufhängt würde ich Do Until benutzen.
Und damit der Bot sich nicht aufhängt würde ich Do Until benutzen.
wie meinste das? woo soll ich das hinpacken?Quote:
Also noch einen kleinen Tipp. Nach dem laden noch ein sleep von 4000 setzen. Die ID wird zu früh angezeigt.
Und damit der Bot sich nicht aufhängt würde ich Do Until benutzen.
haste das auch im bot eingestellt das, dass fenster GW1 heißt? warschein aber schonQuote:
Super - jetzt schon eine prima Arbeit! Hab ihn gerade auch getestet - läuft (ohne Verkauf) schon klasse!!!
In mehreren Fenstern funzt er leider noch nicht ... kann man mit dem MultiClient mit einem Acc testen, einfach Bot im GW1 Fenster starten. Bei mir bewegt sich der Char dann kurz, läuft nicht los und das wars. ;)
While _memoryread($death,$hprocess,'int')<>1
Dim $deathcheck = _memoryread($death,$hprocess,'int')
WEnd
Do
farmen()
giveup() --> hier gibt er /giveup ein soo das $deathcheck ja auch 1 wird
Until $deathcheck = 1
resign() --> jetzt klickt er auf den resignbutton
soo das geht also nicht.... wie kann ich den ne exe beenden?Quote:
PHP Code:While _memoryread($death,$hprocess,'int')<>1
Dim $deathcheck = _memoryread($death,$hprocess,'int')
WEnd
Do
farmen()
giveup() --> hier gibt er /giveup ein soo das $deathcheck ja auch 1 wird
Until $deathcheck = 1
resign() --> jetzt klickt er auf den resignbutton
ShellExecute("fight.exe")
While _memoryread($death,$hprocess,'int')=1
ProcessClose("fight.exe")
WEnd
resign1()
Func _RESIGN()
Send("{ENTER}")
Sleep(Random(500, 700))
$GIVEUP_STRING = "/|g|i|v|e|u|p"
$GIVEUP_STRING_SPLIT = StringSplit($GIVEUP_STRING, '|')
For $i = 1 To UBound($GIVEUP_STRING_SPLIT) - 1
Opt("SendKeyDelay", Random(50, 200))
Opt("SendKeyDownDelay", Random(100,200))
Send($GIVEUP_STRING_SPLIT[$i])
Next
Sleep(Random(1000, 1200))
Send("{ENTER}")
$T_INIT = TimerInit()
Do
$T_DIFF = TimerDiff($T_INIT)
$DEATH_CHECK = _memoryread($death,$hprocess,'int')
Until ($DEATH_CHECK = 1) Or ($T_DIFF > 8000)
Sleep(Random(500, 700))
MouseClick("left", Random(531, 745), Random(528, 547), 1) ;<--- Klick auf resign
EndFunc ;==>_RESIGN
$exe = WinGetHandle("...")
If WinExists($exe) Then WinKill($exe)
Endif
$exe = WinGetHandle("...")
If WinExists($exe) Then WinClose($exe) ;-