Was mach ich falsch?

03/03/2010 04:30 Flasher2#1
Also versuche grade ein PickUp Bot mit Buttons zu erstellen :)

Es geht auch :)
Nur kann ich ihn nicht Pausieren oder Beenden :(

Guckt euch das mal an vllt. wisst ihr was das Problem ist :)

Code:
#RequireAdmin

GuiCreate("Metin2 PickUpBot",275,537,341,0)
$button1=GuiCtrlCreateButton("Start",96,35,90,50)
$button2=GuiCtrlCreateButton("Pause",93,111,90,50)
$button3=GuiCtrlCreateButton("End",92,194,90,50)
$button4=GuiCtrlCreateButton("Elitepvpers",9,513,90,17)
$button5=GuiCtrlCreateButton("My Homepage",125,514,90,17)
GuiSetState()

While 1
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
If $msg=$button5 Then button5()
Wend


Func button1()
Sleep (5000)
while 1 
Send ("y")
sleep(100)
wend;
EndFunc

Func button2()
Sleep (99999999999999999999999999999999999999999999999999)	
EndFunc

Func button3()
Exit
EndFunc

Func button4()
EndFunc

Func button5()
EndFunc
Und?

Achja undwürde noch gerne wissen wie ich das mache das wenn ich z.b. Button elitepvpers klicke sich elitepvpers.com öffnet?

Freue mich über Antworten
03/03/2010 16:06 .nAno#2
Quote:
Originally Posted by Flasher2 View Post

Achja undwürde noch gerne wissen wie ich das mache das wenn ich z.b. Button elitepvpers klicke sich elitepvpers.com öffnet?
IENavigate (IE.au3) ;)
03/03/2010 16:11 KDeluxe#3
Oder
PHP Code:
ShellExecute("http://www.elitepvpers.com/forum/") 
03/03/2010 20:14 Flasher2#4
lol soll ich dann einfach bei dem button
Code:
ShellExecute("http://www.elitepvpers.com/forum/")
machen oder was? check ich net :P

:p habs ma ausprobiert geht THX :)

Und why kann ich ihn nicht pausieren oder beenden?
03/03/2010 21:37 Wissom#5
Das Problem ist das Dein Script innerhalb des Ablaufes gefangen ist und nicht mehr dazukommt die Buttons abzufragen. Deswegen reagiert der Bot nicht mehr wenn er einmal läuft.
Um das zu ändern habe ich nach jedem Durchlauf eine neue Abfrage eingefügt und einige Sicherheitsabfragen dazu um Bugs aus dem Weg zugehen.

Viel spaß


Code:
#RequireAdmin

GuiCreate("Metin2 PickUpBot",275,537,341,0)
$button1=GuiCtrlCreateButton("Start",96,35,90,50)
$button2=GuiCtrlCreateButton("Pause",93,111,90,50)
$button3=GuiCtrlCreateButton("End",92,194,90,50)
$button4=GuiCtrlCreateButton("Elitepvpers",9,513,90,17)
$button5=GuiCtrlCreateButton("My Homepage",125,514,90,17)
GuiSetState()

;Variablen
;Die Variable $Pause schaut ob der Bot momentan am laufen ist oder ob er pausiert
;Die Variable $OnOff schaut ob der Bot bereits läuft 
$Pause = 0
$OnOff = 0

;Starte Funktion Check in einer Schleife
while 1
Check()
Wend

;Funktion Check überprüft ob ein Button gedrückt wurde
Func Check()
$msg=GuiGetMsg()
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
If $msg=$button4 Then button4()
If $msg=$button5 Then button5()
EndFunc

;Funktion button1 Prüft ob der Bot läuft und ändert darauf hin Variable $OnOff
;Führt dannach den Bot aus und checkt am ende die Buttons mit der Funktion Check
;Läuft der Bot bereits springt er direkt zum ende der Funktion
Func button1()
if $OnOff == 0	then
	$OnOff = 1		
	Sleep (5000)
	while 1
	Send ("y")
	sleep(100)
	Check()
	WEnd
else
EndIf
EndFunc

;Funktion button2 hält das Script in einer Schleife gefangen bis Button 1 oder 2 erneut gedrückt werden
;oder Button 3 das Script beendet
Func button2()
$Pause = 0
While $Pause == 0
	$msg=guiGetMsg()
	If $msg=$button1 Then $Pause = 1
	If $msg=$button2 Then $Pause = 1
	If $msg=$button3  Then Exit
Wend
	
EndFunc
;Funktion button 3 beendet das Script
Func button3()
Exit
EndFunc

;Funktion button 4 ruft die Internetseite auf
Func button4()
ShellExecute("http://www.elitepvpers.com/forum/") 	
EndFunc

;Funktion button5 hat keine Funktion
Func button5()
EndFunc
03/04/2010 02:21 Flasher2#6
großes THx an dich klappt perfekt. =)))))))))))))))))))))))))))))