Mit GUI Bot AN/AUS schalten

Hallo, ich hab folgendes Proplem:
Ich möchte gerne für ein Metin ein Aufhebbot schreiben. Hab versucht mit Hilfe von einem GUI das Senden der Taste "y" AN/AUS bzw auf Pause zu schalten, damit man noch ganz normal chatten kann. Ist wohl schiefgegangen. Er schaltet es nicht an und aus. Bitte um Hilfe.

ich würd mal sagen das liegt da dran das du es viel zu kompliziert gemacht hast. finde eine einfachare methode herraus.wenn du nicht findest werde ich dir helfen.

Quote:

Originally Posted by S.I.D Tier Hallo, ich hab folgendes Proplem: Ich möchte gerne für ein Metin ein Aufhebbot schreiben. Hab versucht mit Hilfe von einem GUI das Senden der Taste "y" AN/AUS bzw auf Pause zu schalten, damit man noch ganz normal chatten kann. Ist wohl schiefgegangen. Er schaltet es nicht an und aus. Bitte um Hilfe. PHP Code: #include <GUIConstantsEx.au3> GUICreate("AufhebBot", 400, 100) GUICtrlCreateLabel("Wilkommen im Aufhebbot", 30, 10) $AnButton = GUICtrlCreateButton("AN", 70, 50, 60) $PauseButton = GUICtrlCreateButton( "PAUSE", 140, 50, 60) GUISetState(@SW_SHOW) ;ganz normales GUI erstellt While 1   $msg = GUIGetMsg() ;stetiges Abfragen von Ereignissen          Select         case  $msg = $ANbutton ;Das hier soll passieren wenn "AN" gedrückt wurde             Do                 send("y")             Until $msg = $PAUSEbutton ;solange bis "PAUSE" gedrückt wurde                  case $msg = $PAUSEbutton ;wenn "PAUSE" gedrückt wurde soll gewartet werden         Do             sleep(100)         Until $msg = $ANbutton ;bis "AN" gedrückt wurde, dann sollte er eig wieder          ;dem ersten case dingen anfangen...                   ExitLoop     EndSelect             WEnd

mach es über OnEvent , da reagieren dann auch die buttons , sozusagen ein kleines parallel laufen oder du machst es über SetHotKey

Quote:

Originally Posted by S.I.D Tier PHP Code: #include <GUIConstantsEx.au3> GUICreate("AufhebBot", 400, 100) GUICtrlCreateLabel("Wilkommen im Aufhebbot", 30, 10) $AnButton = GUICtrlCreateButton("AN", 70, 50, 60) $PauseButton = GUICtrlCreateButton( "PAUSE", 140, 50, 60) GUISetState(@SW_SHOW) ;ganz normales GUI erstellt While 1   $msg = GUIGetMsg() ;stetiges Abfragen von Ereignissen          Select         case  $msg = $ANbutton ;Das hier soll passieren wenn "AN" gedrückt wurde             Do                 send("y")             Until $msg = $PAUSEbutton ;solange bis "PAUSE" gedrückt wurde                  case $msg = $PAUSEbutton ;wenn "PAUSE" gedrückt wurde soll gewartet werden         Do             sleep(100)         Until $msg = $ANbutton ;bis "AN" gedrückt wurde, dann sollte er eig wieder          ;dem ersten case dingen anfangen...                   ExitLoop ; <-- was bewirkt das????     EndSelect             WEnd

Ich hab die Frage oben rein gemacht: was willst du mit dem ExitLoop denn erreichen?

erstmal danke für die antworten.

Mit hotkeyset hab ich es schon probiert, lief 1a, aber ich wollte es halt auch mal über ein GUI versuchen ;)

Quote:

Ich hab die Frage oben rein gemacht: was willst du mit dem ExitLoop denn erreichen?

hab mir sowas in der Hilfe angeguckt und da steht am ende von der Select schleifen ( ich hoffe es ist ein ) auch dieses "Exitloop" und weil es ja der messageloop modus ist hab ich gedacht, dass ich das da mal rein haue :D


Ich werde es heute abend mal mit dem OnEvent machen und dann schau ich weiter ;)

Das hab ich jetzt zustande gebracht:

Ich glaube das Proplem liegt in meine While schleife in den eweiligen Funktionen. Die werden nicht mehr Beendet bzw. ich kann keine neue Aufrufen.
Ich brauch i-wie eine bedingung die nicht mehr erfüllt ist sobald ein andere knopf gedrückt wurde.

HuHu =)

Benutze mal lieber diese Funktion als an und aus:
AdlibEnable
AdlibDisable

Und das mit der Buttons -.-...ich würde das an deiner stelle lieber mit radio machen und dann abfragen obs an und aus ist mit if bitand etc =)
dann per hotkeyset starten oder pausieren...hat viiieeell mehr bequemlichkeit und handhabung ;)

So ich hab ihn Dir einfach schnell geschrieben =)
Kannste also getrost so übernehmen..falls fehler drin sind die ich aber nicht glaube sag bescheid und ich ändere es Dir.
Kannst und solltest es an deine bedürfnisse anpassen, aber ich habs einfach mal so gemacht das eine msgbox auftaucht damit du bescheid weisst, denn das ist meines erachtens besser!
SRY aber ich kenn mich nicht mit foren aus und weiss nicht wie ich es in code setzen kann, vergebt mir ^^

hier der code:

#include <GUIConstantsEx.au3>

#Region ### START Koda GUI section ### Form=
$aufhebbot = GUICreate("Aufhebbot", 135, 78, 193, 115)
GUISetBkColor(0x800000)
$AN = GUICtrlCreateRadio("AN", 8, 16, 113, 17)
$AUS = GUICtrlCreateRadio("AUS", 8, 48, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; GOGOGOGOGOGO
; Selber entscheiden welche taste es sein soll^^
HotKeySet ("{insert}","_AN")
HotKeySet ("{del}","_AUS")
HotKeySet ("{esc}","_Exit")


Func _AN()
Sleep(50)
If BitAND(GUICtrlRead($AN),$GUI_CHECKED) = $GUI_CHECKED Then
AdlibEnable("_y", 150)
Else

If BitAND(GUICtrlRead($AUS),$GUI_CHECKED) = $GUI_CHECKED Then
MsgBox(16,"Achtung", "Nicht Aktiviert")
AdlibDisable()
EndIf
EndIf
EndFunc

Func _y()
send("y")
EndFunc

Func _AUS()
Sleep (50)
AdlibDisable()
MsgBox(48,"Achtung", "Pause!")
EndFunc

Func _Exit()
AdlibDisable()
Exit
EndFunc

While 1
Sleep(10)
WEnd

perfekt :) vielen danke

werde den code nochein paar mal durchgehen und einzelne sachen googlen, damit ich es auch genau verstehe, aber meine frage ist beatwortet :)


-closed-

Blubb

alles ist möglich, Volkswagen ?

mhh... tut mir leid marco, aber der bot funtkioniert nicht^^

die "Ende" funktion funzt nicht und man kann dieses nicht von der "an" funktion in die "pause" funtktion wechseln.

tippfehler omg ^^

Func Ende()
Ende()
Endfunc

muss so heißen

Func Ende()
Exit
Endfunc

ok das auch, funtz aber immer noch nicht :-/,

aber was ich meinte is das wenn man einmal auf " AN " geklickt hat, dass dann wenn man auf "AUS" klickt nix passiert. Man kommt also von der "AN" funktion nicht in die "AUS" funktion.