|
You last visited: Today at 17:59
Advertisement
Brauche Hilfe [GUI]
Discussion on Brauche Hilfe [GUI] within the AutoIt forum part of the Coders Den category.
02/26/2012, 20:06
|
#1
|
elite*gold: 0 
Join Date: Mar 2010
Posts: 91
Received Thanks: 3
|
[GUI|Timer|Sleep(?)] Bräuchte Hilfe :)
Code:
#include <GUIConstants.au3>
#RequireAdmin
Global $Pause, $counter = 0, $pcounter = 0
GUICreate("NosBot")
Opt("GUICoordMode",2)
$BotStart = GUICtrlCreateButton ("Starte Bot", 10, 30, 100)
$BotPause = GUICtrlCreateButton ("Pause", 0, -1)
$BotEnde = GUICtrlCreateButton("Beenden",0, -1)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $BotStart
$pcounter = 0
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Sleep(225)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Sleep(210)
Send("{Space}")
Sleep(224)
Case $msg = $BotPause
ToolTip("Pausiert", 0, 0, 0, 2)
Sleep(1000)
Case $msg = $BotEnde
Exit
EndSelect
Wend
Ich hoffe ihr könnt mir weiterhelfen 
Ich wollte wissen, wie ich das machen muss, dass wenn ich den Starten Button drücke und dann der Bot läuft und dann den Pause Button drück der auf Pause Springt und nich bei Starten bleibt.
|
|
|
|
02/26/2012, 20:21
|
#2
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
Quote:
Originally Posted by piper332
Code:
#include <GUIConstants.au3>
#RequireAdmin
Global $Pause, $counter = 0, $pcounter = 0
GUICreate("NosBot")
Opt("GUICoordMode",2)
$BotStart = GUICtrlCreateButton ("Starte Bot", 10, 30, 100)
$BotPause = GUICtrlCreateButton ("Pause", 0, -1)
$BotEnde = GUICtrlCreateButton("Beenden",0, -1)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $BotStart
$pcounter = 0
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Sleep(225)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Sleep(210)
Send("{Space}")
Sleep(224)
Case $msg = $BotPause
ToolTip("Pausiert", 0, 0, 0, 2)
Sleep(1000)
Case $msg = $BotEnde
Exit
EndSelect
Wend
Ich hoffe ihr könnt mir weiterhelfen
Ich wollte wissen, wie ich das machen muss, dass wenn ich den Starten Button drücke und dann der Bot läuft und dann den Pause Button drück der auf Pause Springt und nich bei Starten bleibt. |
arbeite ohne sleeps. diese blockieren dein script, und verhindern, das deine gui commands überhaupt erkannt werden können
|
|
|
|
|
02/26/2012, 20:29
|
#3
|
elite*gold: 0
Join Date: Mar 2010
Posts: 91
Received Thanks: 3
|
Okay so komme ich schonmal bei mehrmaligen drücken vom starten in die pause, aber kann man das nicht noch besser lösen, weil der soll ja nicht 50 mal oder öfter in einer sekunde die leertaste drücken und es sollte ja reibungslos in den pausezustand gehen also ohne mehrmaligen drücken
Bis jetzt hab ich das dann so:
Code:
#include <GUIConstants.au3>
#RequireAdmin
Global $Pause, $counter = 0, $pcounter = 0
GUICreate("NosBot")
Opt("GUICoordMode",2)
$BotStart = GUICtrlCreateButton ("Starte Bot", 10, 30, 100)
$BotPause = GUICtrlCreateButton ("Pause", 0, -1)
$BotEnde = GUICtrlCreateButton("Beenden",0, -1)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $BotStart
$pcounter = 0
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
Case $msg = $BotPause
ToolTip("Pausiert", 0, 0, 0, 2)
Case $msg = $BotEnde
Exit
EndSelect
Wend
|
|
|
|
|
02/26/2012, 20:37
|
#4
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
für die verzögerungen gibt es timer.
du hast in deinem script ja schon einen $pause zustand eingebaut.
wenn du diesen jetzt noch nutzen würdest, dann würde dein script auch funktionieren.
beispiel:
Code:
Dim $pause=True
GUICreate([...])
$pauseButton = GuiCtrlCreateButton('Pause', [...])
$startButton = GuiCtrlCreateButton('Start', [...])
[...]
While True
Switch GuiGetMsg()
Case -3
Exit
Case $pauseButton
$pause = True
Case $startButton
$pause = False
[...]
EndSwitch
If Not $pause Then
<deine script commands>
EndIf
Wend
|
|
|
|
|
02/26/2012, 20:44
|
#5
|
elite*gold: 0
Join Date: Mar 2010
Posts: 91
Received Thanks: 3
|
okay ich versuchs einmal
gibt ein thx 
wenns nich klappt poste ich es hier nochmal ^^
Okay jz hab ich das so weit:
Code:
#include <GUIConstants.au3>
#RequireAdmin
Global $counter = 0, $pcounter = 0
Dim $Pause= true
GUICreate("NosBot")
Opt("GUICoordMode",2)
$BotStart = GUICtrlCreateButton ("Starte Bot", 10, 30, 100)
$BotPause = GUICtrlCreateButton ("Pause", 0, -1)
GUISetState ()
While true
Switch GUIGetMsg()
Case -3
Exit
Case $BotPause
$pause= true
Case $BotStart
$pause = False
EndSwitch
If Not $pause Then
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
EndIf
Wend
aber ich muss ja wieder voll oft drücken, bis der bot mal anhält.. geht das nicht, dass die tasten in einem gewissen abstand gedrückt werden und nicht so schnell?
Quote:
Originally Posted by lolkop
für die verzögerungen gibt es timer.
|
ist das nicht das selbe wie sleep? 
|
|
|
|
|
02/28/2012, 18:51
|
#6
|
elite*gold: 0
Join Date: Mar 2010
Posts: 91
Received Thanks: 3
|
._. kann mir denn keiner helfen?
|
|
|
|
|
02/28/2012, 19:26
|
#7
|
elite*gold: 0
Join Date: Nov 2009
Posts: 221
Received Thanks: 71
|
Wenn du einen timer verwendest wird dein Programm nicht angehalten sondern läuft weiter und führt die Aktion erst nach einer abgelaufenen Zeit aus. Das könnte dan so aussehn
Code:
#include <GUIConstants.au3>
#RequireAdmin
Global $counter = 0, $pcounter = 0 ,$sleeptime=1000
Dim $Pause= true
$timer=TimerInit()
GUICreate("NosBot")
Opt("GUICoordMode",2)
$BotStart = GUICtrlCreateButton ("Starte Bot", 10, 30, 100)
$BotPause = GUICtrlCreateButton ("Pause", 0, -1)
GUISetState ()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $BotPause
$pause= true
Case $BotStart
$pause = False
EndSwitch
If TimerDiff($timer)>=$sleeptime And Not $pause Then
$counter += 1
ToolTip('Bot "laeuft" [Esc beenden, F8 Pausieren, F10 Counter reset]', 0, 0, $counter, 1)
Send("{Space}")
$timer=TimerInit()
EndIf
Wend
€: Die Variable $sleeptime beinhaltet die Zeit in Millisekunden die gewartet werden soll
|
|
|
|
 |
Similar Threads
|
[Brauche Hilfe]Brauche Hilfe beim einfügen der neuen Rüstungen
01/04/2013 - Metin2 Private Server - 3 Replies
Brauche Hilfe!
Hallo epvp.
Ich habe mal ein paar Rüstungen gemoddet und dann wollte ich sie einfügen.
Es hat fast alles geklappt und ich war recht "happy", weil sie für den männlichen Krieger einbandfrei funktioniert haben.
Dann wollt ich gucken wie das bei den anderen Charaktern aussieht.
Ich habe mir die Rüstungen gerufen. Die icons der Rüstungen sind für den Ninja und den Krieger richtig. Bei der Sura und der Schami Rüstung sieht mal aber wieder die icons der Krieger und Ninja rüstung....
|
Brauche hilfe große HILFE bei den Vsro Test Server Files
09/23/2011 - SRO Private Server - 0 Replies
Bitte könnte jemand auf meinen PC kommen mit TeamViewer und mir das mal machen das der Server läuft. Installiert und entpackt ist alles so weit, jedoch schaff ich das irgentwie nicht. Habe es schon viele mahle versucht. Die tuts sind auch nicht grade übersichtlich. :(
Ich wäre sehr dankbar über jede hilfe.
mfg
Soul of Moon
|
[Hilfe]Brauche Hilfe kann mir wer beim Tool fixxen helfen
10/12/2010 - Metin2 Private Server - 3 Replies
Hallo E*pvp
Ich brauche drigend Hilfe beim Fixxen
Von dem Server hack Tool
Ich hoffe es ist jemand so nett und
hilft mir
PS: Es ist ein Root Server.
Mfg Sonnylein
|
Brauche Dringend Hilfe! Bin Metin spieler aber Brauche Hilfe
12/30/2009 - Metin2 Private Server - 0 Replies
Es gehört hier zwar nicht rein , aber ich weiß keine andere Lösung
Ich habe seit einigen Tagen ein Problem...
Microsoft Windows Search Protocol Host funktioniert nicht mehr
Die Anwendung wird Aufgrund eines Problems nicht mehr richtig Ausgeführt.
Ich weiß nicht was das ist und wie ich es loswerde.
|
All times are GMT +1. The time now is 18:00.
|
|
![Brauche Hilfe [GUI]](https://www.elitepvpers.com/forum/iconimages/autoit/brauche-hilfe-gui_ltr.gif){kind=small}
