|
You last visited: Today at 06:37
Advertisement
2 Fragen
Discussion on 2 Fragen within the AutoIt forum part of the Coders Den category.
03/03/2010, 20:30
|
#1
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
2 Fragen
1.
Würde es gehen das wenn ich i-wo draufdrücke z.b. bei meinem pickupbot
das er dann automatisch in ein fenster wechselt und erst dann anfängt mit dem bot??
2.
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
Wisst ihr was das problem ist?
|
|
|
03/03/2010, 21:36
|
#2
|
elite*gold: 0
Join Date: Dec 2009
Posts: 351
Received Thanks: 18
|
zu 1)
Winactivate()
zu 2)
das Problem habe ich auch
|
|
|
03/03/2010, 23:02
|
#3
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
PHP 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
Global $Paused
Func button2()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
Func button3()
Exit
EndFunc
Func button4()
EndFunc
Func button5()
EndFunc
Jetzt sollte die Pause gehen (;
WEnn du wieder dann raufklickst sollte er weiter gehn
|
|
|
03/04/2010, 02:11
|
#4
|
elite*gold: 0
Join Date: Feb 2010
Posts: 714
Received Thanks: 842
|
@ Cannion Thx und das mit dem Beenden da muss man oben
einfach bei
Code:
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
Bei
If $msg=$button3 Then button3()
Ist ja bei mir ende button
So umändern
If $msg=$button3 Then Exit
dann gehts
Hab rausgefunden wie das mit der Pause geht 
-MARKS- antwort hat mir nicht wirklich weitergeholfen aber bin am ende durch ihn drauf gekommen
also thx
|
|
|
03/04/2010, 15:05
|
#5
|
elite*gold: 0
Join Date: Dec 2009
Posts: 351
Received Thanks: 18
|
Quote:
Originally Posted by Flasher2
@ Cannion Thx und das mit dem Beenden da muss man oben
einfach bei
Code:
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
Bei
If $msg=$button3 Then button3()
Ist ja bei mir ende button
So umändern
If $msg=$button3 Then Exit
dann gehts
Hab rausgefunden wie das mit der Pause geht 
-MARKS- antwort hat mir nicht wirklich weitergeholfen aber bin am ende durch ihn drauf gekommen
also thx 
|
Ja cool thx es funzt
|
|
|
03/04/2010, 15:29
|
#6
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
dis hätt ich dir auch sagen können weil das dumm aussah bloß ich dachte du hättest dir dabei was gedacht (:
bitte
|
|
|
Similar Threads
|
[Fragen]Ein paar fragen und IHR seid gefragt...
08/22/2010 - Metin2 Private Server - 5 Replies
Hab mal nen paar fragen an euch...vielleicht kann sie ja der ein oder andere beantworten
1.Wie baut man Serverside mehrere CH´s ein?möchte gerne auf 4 ch´s erweitern.
2.Wie Baut man Clientside mehr CH´s ein?(benutze neonblue seinen)
3.Wie baut man das cash -in script von saphira auf seiner HP ein?
4.wie baut man einen patcher in seinen Client ein?
|
80er Waffen ? Fragen über Fragen ô.ô
07/31/2009 - Metin2 Private Server - 15 Replies
Hey,
Ich wollte mal gerne wissen wie man eig. eine 80er Waffe bekommt? Also was muss man tun? Was braucht man? Wohin damit?Benötige ich dazu noch was?
Wäre echt neTT,wenn jmd mir des erklären könnte :)
Danke in vorraus :D
|
All times are GMT +1. The time now is 06:38.
|
|