|
You last visited: Today at 11:19
Advertisement
Über GUICtrlCreateInput Variablen belegen?!
Discussion on Über GUICtrlCreateInput Variablen belegen?! within the General Coding forum part of the Coders Den category.
03/04/2009, 19:48
|
#1
|
elite*gold: 0 
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
Über GUICtrlCreateInput Variablen belegen?!
Jetzt bin versuche ich gerade die Input Felder (GUICtrlCreateInput)
auslesen zu lassen sobald jemand auf den Speicherbutton drückt...
Ich stelle hier mal den Code von dem Programm rein...
Code:
Global $Paused
; Hier wird der hotkeyset auf die 5 verschiedenen Funktionen weitergeleitet...
Hotkeyset ("^1", "Hotkey1")
Hotkeyset ("^2", "Hotkey2")
Hotkeyset ("^3", "Hotkey3")
Hotkeyset ("^4", "Hotkey4")
Hotkeyset ("^5", "Hotkey5")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;wartet Hotkey ab
While 1
Sleep(100)
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Variablen
;Hier sollen, wenn es geht die Eingaben aus dem Input Feld eingetragen werden
$ID1 = ("IDNAME") ; Hier passwort aus dem 1. Feld
$PW1 = ("PASWORT") ;PW 1. Feld
$ID2 = ;2. Feld etc...
$PW2 =
$ID3 =
$PW3 =
$ID4 =
$PW4 =
$ID5 =
$PW5 =
;Programm Anfang
;Hier gehen die Funktionen los
Func Hotkey1 ()
send $ID1 ; Hier soll nun nach Möglichkeit einfach nur noch das im Input eingetragenen Feld gesendet werden
send ("{enter}")
send $PW1 ; Mit dem Pw genauso
send ("{enter}")
EndFunc
usw.....
Hier der Teil in dem die Variablen vom Benutzer belegt werden sollen...
Code:
GUICtrlCreateLabel ("Account-ID", 80, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$ID1 = GUICtrlCreateInput ( "", 80, 33, 100, 20)
$ID2 = GUICtrlCreateInput ( "", 80, 58, 100, 20)
$ID3 = GUICtrlCreateInput ( "", 80, 83, 100, 20)
$ID4 = GUICtrlCreateInput ( "", 80, 108, 100, 20)
$ID5 = GUICtrlCreateInput ( "", 80, 133, 100, 20)
GUICtrlCreateLabeL ("Passwort", 200, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$Pw1 = GUICtrlCreateInput ( "", 200, 33, 100, 20)
$Pw2 = GUICtrlCreateInput ( "", 200, 58, 100, 20)
$Pw3 = GUICtrlCreateInput ( "", 200, 83, 100, 20)
$Pw4 = GUICtrlCreateInput ( "", 200, 108, 100, 20)
$Pw5 = GUICtrlCreateInput ( "", 200, 133, 100, 20)
Hier das Bild des GUI
So jetzt erstma die 1. Frage...
hat jemand verstanden was ich meine? 
wenn ja dann....
geht das überhaupt was ich hier realisieren möchte??!
Das ich jetzt im moment Variablen unnütz doppelt vergeben habe in den beiden Codes ist mir klar...wollte mein Problem und die Beziehungen verdeutlichen 
|
|
|
|
03/04/2009, 21:20
|
#2
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
Code:
$msg = GuiGetMsg ()
If $msg = $speichern_button Then
$accountname1 = GuiCtrlRead ($Id1)
$accountname2 = GuiCtrlRead ($Id2)
...
$passwort1 = GuiCtrlRead ($Pw1)
$passwort2 = GuiCtrlRead ($Pw2)
...
EndIf
Erklärung:
"GuiCtrlRead" in Kombination mit einem Input gibt den Inhalt des Inputs zurück
der Inhalt des Inputs "$Id1" wird also, sobald du "$speichern_button" drückst in der Variable "$accountname1" gespeichert!
|
|
|
|
|
03/04/2009, 23:00
|
#3
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
dankeseeehr
habs jetzt schon alles eingegeben, nur leider kann ich es noch nicht testen, da der mich erst garnicht auf das programm leiten will, wenn ich auf start drücke -.-
Code:
Case $Start
Starthotkeys ()
das ist die Funktion die ich hinterlegt habe...
Code:
Func Starthotkeys ()
MsgBox(64, "Tutorial", "Hello World!")
Global $Paused
; Hier wird der hotkeyset auf die 5 verschiedenen Funktionen weitergeleitet...
Hotkeyset ("^1", "Hotkey1")
Hotkeyset ("^2", "Hotkey2")
Hotkeyset ("^3", "Hotkey3")
Hotkeyset ("^4", "Hotkey4")
Hotkeyset ("^5", "Hotkey5")
und darauf soll das leiten....
Das Hello World Kästchen hab ich nur kurzfristig eingebaut, damit ich nach jeder veränderung sehen kann, ob er mir nun in die Funktion springt oder nicht...
|
|
|
|
|
03/04/2009, 23:10
|
#4
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
du bist sicher, dass $start ein GuiCtrlCreateButton ist?
|
|
|
|
|
03/04/2009, 23:37
|
#5
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
Code:
GUISetState ()
$GUI1 = GUICreate("Metin2 Hotscript", 400, 200) ; will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW) ; will display an empty dialog box
$Start = GUICtrlCreateButton ("Start Script ", 240,160)
$Beenden = GUICtrlCreateButton ("Beenden ", 325, 160)
$Hotkey = GUICTRLCREATEBUTTON ("Hotkey-Settings", 20, 160)
$Pic1 = GuiCtrlCreatePic("Banner/1.jpg", 0, 0, 400, 100)
GUICtrlSetImage($Pic1, "Banner/"".jpg")
; Run the GUI until the dialog is closed
jo bin ich mir....
hab den Fehler gefunden -.-
man darf keine Func in Func schleifen schreiben.... 0o
aber was bau ich jetzt um die Hotkeys+ Funktionen rum, damit
sie reagieren, wenn man auf Start gedrückt hat?
Ah hab zu wenig nachgedacht ^^
hab jetzt ne Func schleife einfach um die Tastenbelegung gelegt...
Jetzt tritt aber mal wieder ein problem auf, welches ich nicht so einfach beheben kann...
Der sagt mir jetzt immer, send $accountname1
^ Error
Error parsing function call
nachdem ich in den Einstellungen ein Pw + ID abgelegt habe, auf Start gedrückt habe und strg+1 drücke....
Ich schätze, das er die Variable nicht erkennt weil ich irgendwas falsch eingesetzt habe...
Hier ma die Codes wo ich mir vorstellen kann, das ich einen Fehler gemacht habe...
Hier habe ich das Auslesen des Input mit in die Schleife geschrieben und unter die Input Felder getan.....
Code:
Func _GUI3 ()
#include <GUIConstants.au3>
$GUI3 = GUICreate("Metin2 Hotscript", 400, 200) ; will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW) ; will display an empty dialog box
GUICtrlCreateLabel ("Hotkey", 10, 10)
GUICtrlSetFont (-1, 9, -1, -9)
GUICtrlCreateLabel ("Strg+1", 10, 35)
GUICtrlCreateLabel ("Strg+2", 10, 60)
GUICtrlCreateLabel ("Strg+3", 10, 85)
GUICtrlCreateLabel ("Strg+4", 10, 110)
GUICtrlCreateLabel ("Strg+5", 10, 135)
GUICtrlCreateLabel ("Account-ID", 80, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$ID1 = GUICtrlCreateInput ( "", 80, 33, 100, 20)
$ID2 = GUICtrlCreateInput ( "", 80, 58, 100, 20)
$ID3 = GUICtrlCreateInput ( "", 80, 83, 100, 20)
$ID4 = GUICtrlCreateInput ( "", 80, 108, 100, 20)
$ID5 = GUICtrlCreateInput ( "", 80, 133, 100, 20)
GUICtrlCreateLabeL ("Passwort", 200, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$Pw1 = GUICtrlCreateInput ( "", 200, 33, 100, 20)
$Pw2 = GUICtrlCreateInput ( "", 200, 58, 100, 20)
$Pw3 = GUICtrlCreateInput ( "", 200, 83, 100, 20)
$Pw4 = GUICtrlCreateInput ( "", 200, 108, 100, 20)
$Pw5 = GUICtrlCreateInput ( "", 200, 133, 100, 20)
$Speichern = GUICtrlCreateButton ("Speichern ", 10, 170)
$Abbrechen = GUICTRLCREATEBUTTON ("Abbrechen", 80, 170)
$Pic3 = GuiCtrlCreatePic("Banner/3.jpg", 308, 10, 90, 180)
GUICtrlSetImage($Pic3, "Banner/"".jpg")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Abbrechen
GUIDelete ()
Return (1)
If $msg = $Speichern Then
$accountname1 = GuiCtrlRead ($Id1)
$accountname2 = GuiCtrlRead ($Id2)
$accountname3 = GuiCtrlRead ($Id3)
$accountname4 = GuiCtrlRead ($Id4)
$accountname5 = GuiCtrlRead ($Id5)
$passwort1 = GuiCtrlRead ($Pw1)
$passwort2 = GuiCtrlRead ($Pw2)
$passwort3 = GuiCtrlRead ($Pw3)
$passwort4 = GuiCtrlRead ($Pw4)
$passwort5 = GuiCtrlRead ($Pw5)
EndIf
Case $Beenden, $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Endfunc
Und hier könnte ich mir Vorstellen, das ich die Variable nicht einfach so senden kann, wie ich mir das vorstelle...
Code:
Func Hotkey1 ()
send $accountname1
send ("{enter}")
send $passwort1
send ("{enter}")
Endfunc
|
|
|
|
|
03/05/2009, 17:21
|
#6
|
elite*gold: 0
Join Date: Oct 2008
Posts: 85
Received Thanks: 11
|
Code:
Func Hotkey1 ()
send $accountname1
send ("{enter}")
send $passwort1
send ("{enter}")
Endfunc
machs so:
PHP Code:
send($accountname1)
send("{enter}")
send($passwort1)
send("{enter}")
|
|
|
|
|
03/05/2009, 18:13
|
#7
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
Quote:
Originally Posted by Waynee
Code:
GUISetState ()
$GUI1 = GUICreate("Metin2 Hotscript", 400, 200) ; will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW) ; will display an empty dialog box
$Start = GUICtrlCreateButton ("Start Script ", 240,160)
$Beenden = GUICtrlCreateButton ("Beenden ", 325, 160)
$Hotkey = GUICTRLCREATEBUTTON ("Hotkey-Settings", 20, 160)
$Pic1 = GuiCtrlCreatePic("Banner/1.jpg", 0, 0, 400, 100)
GUICtrlSetImage($Pic1, "Banner/"".jpg")
; Run the GUI until the dialog is closed
jo bin ich mir....
hab den Fehler gefunden -.-
man darf keine Func in Func schleifen schreiben.... 0o
aber was bau ich jetzt um die Hotkeys+ Funktionen rum, damit
sie reagieren, wenn man auf Start gedrückt hat?
Ah hab zu wenig nachgedacht ^^
hab jetzt ne Func schleife einfach um die Tastenbelegung gelegt...
Jetzt tritt aber mal wieder ein problem auf, welches ich nicht so einfach beheben kann...
Der sagt mir jetzt immer, send $accountname1
^ Error
Error parsing function call
nachdem ich in den Einstellungen ein Pw + ID abgelegt habe, auf Start gedrückt habe und strg+1 drücke....
Ich schätze, das er die Variable nicht erkennt weil ich irgendwas falsch eingesetzt habe...
Hier ma die Codes wo ich mir vorstellen kann, das ich einen Fehler gemacht habe...
Hier habe ich das Auslesen des Input mit in die Schleife geschrieben und unter die Input Felder getan.....
Code:
Func _GUI3 ()
#include <GUIConstants.au3>
$GUI3 = GUICreate("Metin2 Hotscript", 400, 200) ; will create a dialog box that when displayed is centered
GUISetState (@SW_SHOW) ; will display an empty dialog box
GUICtrlCreateLabel ("Hotkey", 10, 10)
GUICtrlSetFont (-1, 9, -1, -9)
GUICtrlCreateLabel ("Strg+1", 10, 35)
GUICtrlCreateLabel ("Strg+2", 10, 60)
GUICtrlCreateLabel ("Strg+3", 10, 85)
GUICtrlCreateLabel ("Strg+4", 10, 110)
GUICtrlCreateLabel ("Strg+5", 10, 135)
GUICtrlCreateLabel ("Account-ID", 80, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$ID1 = GUICtrlCreateInput ( "", 80, 33, 100, 20)
$ID2 = GUICtrlCreateInput ( "", 80, 58, 100, 20)
$ID3 = GUICtrlCreateInput ( "", 80, 83, 100, 20)
$ID4 = GUICtrlCreateInput ( "", 80, 108, 100, 20)
$ID5 = GUICtrlCreateInput ( "", 80, 133, 100, 20)
GUICtrlCreateLabeL ("Passwort", 200, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$Pw1 = GUICtrlCreateInput ( "", 200, 33, 100, 20)
$Pw2 = GUICtrlCreateInput ( "", 200, 58, 100, 20)
$Pw3 = GUICtrlCreateInput ( "", 200, 83, 100, 20)
$Pw4 = GUICtrlCreateInput ( "", 200, 108, 100, 20)
$Pw5 = GUICtrlCreateInput ( "", 200, 133, 100, 20)
$Speichern = GUICtrlCreateButton ("Speichern ", 10, 170)
$Abbrechen = GUICTRLCREATEBUTTON ("Abbrechen", 80, 170)
$Pic3 = GuiCtrlCreatePic("Banner/3.jpg", 308, 10, 90, 180)
GUICtrlSetImage($Pic3, "Banner/"".jpg")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Abbrechen
GUIDelete ()
Return (1)
If $msg = $Speichern Then
$accountname1 = GuiCtrlRead ($Id1)
$accountname2 = GuiCtrlRead ($Id2)
$accountname3 = GuiCtrlRead ($Id3)
$accountname4 = GuiCtrlRead ($Id4)
$accountname5 = GuiCtrlRead ($Id5)
$passwort1 = GuiCtrlRead ($Pw1)
$passwort2 = GuiCtrlRead ($Pw2)
$passwort3 = GuiCtrlRead ($Pw3)
$passwort4 = GuiCtrlRead ($Pw4)
$passwort5 = GuiCtrlRead ($Pw5)
EndIf
Case $Beenden, $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Endfunc
Und hier könnte ich mir Vorstellen, das ich die Variable nicht einfach so senden kann, wie ich mir das vorstelle...
Code:
Func Hotkey1 ()
send $accountname1
send ("{enter}")
send $passwort1
send ("{enter}")
Endfunc
|
ich glaube, es liegt daran, dass du oben, wo du die variable bestimmst ein Global vor $accountname1 setzen musst
sonst wirkt sie soweit ich weiß nur in der funktion, in der sie deklariert wird!
also immer, wenn du willst, dass ne variable überall im script wirkt, ein Global vor machen
|
|
|
|
|
03/05/2009, 18:26
|
#8
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
Also wenn ich Klammern um die Variablen mache kommt leider das gleiche bei raus 
andere Vorschläge? ^^
|
|
|
|
|
03/05/2009, 18:34
|
#9
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
Also ich hab das Global jetzt ma so davor gesetzt...
Code:
If $msg = $Speichern Then
Global $accountname1 = GuiCtrlRead ($Id1)
der sagt mir aber sofort wieder das $accountname 1 den Fehler auslöst... 0o
|
|
|
|
|
03/05/2009, 18:44
|
#10
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
müsste dann schon gehen
Global $accountname1 = GUICtrlRead ($Id1)
...
Send ($accountname1)
das "Global" brauchst du!
|
|
|
|
|
03/05/2009, 19:25
|
#11
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
Hab alles so drinn und die Fehlermeldung is immer noch da 0o
Hier die Input Felder
Code:
$ID1 = GUICtrlCreateInput ( "", 80, 33, 100, 20)
$ID2 = GUICtrlCreateInput ( "", 80, 58, 100, 20)
$ID3 = GUICtrlCreateInput ( "", 80, 83, 100, 20)
$ID4 = GUICtrlCreateInput ( "", 80, 108, 100, 20)
$ID5 = GUICtrlCreateInput ( "", 80, 133, 100, 20)
GUICtrlCreateLabeL ("Passwort", 200, 10)
GUICtrlSetFont (-1, 9, -1, -9)
$Pw1 = GUICtrlCreateInput ( "", 200, 33, 100, 20)
$Pw2 = GUICtrlCreateInput ( "", 200, 58, 100, 20)
$Pw3 = GUICtrlCreateInput ( "", 200, 83, 100, 20)
$Pw4 = GUICtrlCreateInput ( "", 200, 108, 100, 20)
$Pw5 = GUICtrlCreateInput ( "", 200, 133, 100, 20)
Hier das Auslesen und schreiben in die Variable
Code:
If $msg = $Speichern Then
Global $accountname1 = GuiCtrlRead ($Id1)
Global $accountname2 = GuiCtrlRead ($Id2)
Global $accountname3 = GuiCtrlRead ($Id3)
Global $accountname4 = GuiCtrlRead ($Id4)
Global $accountname5 = GuiCtrlRead ($Id5)
Global $passwort1 = GuiCtrlRead ($Pw1)
Global $passwort2 = GuiCtrlRead ($Pw2)
Global $passwort3 = GuiCtrlRead ($Pw3)
Global $passwort4 = GuiCtrlRead ($Pw4)
Global $passwort5 = GuiCtrlRead ($Pw5)
EndIf
und hier das was er ausführen soll
Code:
Func Hotkey1 ()
send ($accountname1)
send ("{enter}")
send ($passwort1)
send ("{enter}")
Endfunc
|
|
|
|
|
03/05/2009, 19:49
|
#12
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
welche fehlermeldung genau kommt?
|
|
|
|
|
03/05/2009, 20:12
|
#13
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
send ($accountname1)
send (^ERROR
Error: Variable used without being declared.
Das ist die Fehlermeldung die immer kommt...
hab auch schonmal den Kompletten teiel rausgenommen...
dann kommt die gleiche Fehlermeldung mit der 2. Variable also
mit $passwort1
|
|
|
|
|
03/05/2009, 20:38
|
#14
|
elite*gold: 0
Join Date: Aug 2008
Posts: 820
Received Thanks: 909
|
hmmm, versuch mal ganz am anfang vom script einzufügen:
Global $accountname1 = "noch nicht eingestellt"
Global $accountname2 = "noch nicht eingestell"
...
dann im GUI
$accountname1 = GuiCtrlRead ($Id1)
...
Ohne Global
versuchs dann mal
das problem ist, dass du im script die variable $accountname1 verwendest, aber der bot sie noch überhaupt nicht erstellt hat, warum auch immer
|
|
|
|
|
03/05/2009, 20:53
|
#15
|
elite*gold: 0
Join Date: Nov 2008
Posts: 239
Received Thanks: 48
|
ok danke die Fehlermeldung kommt jetzt schonmal nicht mehr xD
aber ich denke das ich da eine kleinigkeit falsch verstanden habe....
Du sagst ich soll an den Anfang eine uneingestellte Variable stellen...
Wie mach ich das denn???
Ich hab das jetzt einfach mal so gemacht....
Code:
Global $accountname1 = ""
hierbei macht der mir nach start drücken aber einfach nur die 2 Lehrtastendrücke :P
|
|
|
|
 |
|
Similar Threads
|
[VB08]Buttons mit Hotkeys belegen
01/03/2010 - .NET Languages - 2 Replies
Hey Leute,
wie kann ich in Visual Basic 2008 , Hotkeys meinen Buttons zuweisen?
Goggle spuckt leider nichts brauchbares aus.
Danke im Vorraus.
Mfg BlackWu
|
Button mit Func belegen
04/07/2009 - General Coding - 2 Replies
Hi Leute
Ich habe hier ein Gui fenster mit koda gemacht und weiß aber nicht wie ich den Button mit einer Fuction belege kann mit das mal jmd sagen pls.
Hier der skript:
; Script Start - Add your code below here
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
|
Button mit Funktion belegen
01/06/2009 - Guild Wars - 8 Replies
Hi,
Ich stehe bei der Programierung eines Botes vor einem Problem. Ich habe eine einfache GUI erstellt, und möchte einen Button mit einer Funktion belegen.
Hier mal eine Bsp-GUI:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 511, 235, 193, 125)
$Input1 = GUICtrlCreateInput("Message", 64, 80, 385, 21)
$Button1 = GUICtrlCreateButton("Send", 200, 144, 97, 33, 0)
|
Rechte Maustaste anders belegen >.<
06/07/2008 - World of Warcraft - 6 Replies
Hi,
Von meiner Maus ist dummerweise die Rechte Maustaste Kaputt gegangen und nun versuche ich, die Rechte Maustaste anders zu belegen.Im diesen Fall ist es die Taste Space (Oder im Spiel auch Spacebar genannt - Hab Englische Vers.).Dieses Makro:
/run SetBinding("Spacebar","TURNORACTION ");
/run SaveBindings()
Funktioniert nur zur hälfte.Und zwar Geht dieses Makro nur wen ich bei Spacebar einen Buchstaben reinschreibe also z.b. ein P
/run SetBinding("p","TURNORACTION") ;
|
Andere Tasten belegen?
11/17/2005 - World of Warcraft - 2 Replies
Hi @ all!
Ich hab auf nem Screenshot gesehn, dass der ne Leiste gehabt hat unten, die auch durch andere Hotkeys aktiviert werden können. Also wenn ich zum beispiel A und 2 drücke, dass mein Mage mir dann nen Feuerball macht.
Hoffe, ihr versteht was ich meine!
mfg Fireblade
|
All times are GMT +1. The time now is 11:19.
|
|
