Button mit Funktion belegen

[Gorn92]

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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Wie ihr seht habe ich dort ein Input-Feld und einen Button. Der Button soll jetzt den Inhalt des Input-Feldes senden. z.B.:

	Run("notepad.exe")
	WinWait("Unbenannt")
	Controlsend("Unbenannt", "", "", $Input1)

Ich habe jetzt schon einiges darüber gelesen, es aber noch nicht geschafft, diese Funktion an den Button zu binden.

Wie macht man das?

MfG,

Gorn

[aLasca]

PHP Code:

#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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg = $Button1
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func _x()

Run("notepad.exe")
    WinWait("Unbenannt")
    Controlsend("Unbenannt", "", "", $Input1)
EndFunc

$Button1 = Call("_x") 


so müsste es gehen

[Gorn92]

Danke für die schnelle Antwort, aber leider will es nohc nicht so. Wenn ich jetzt auf den Button klicke, beendet sich das Script und macht nichts... leider

[NBA]

Wenn du das Input auslesen willst, kannst du das mit GuiCtrlRead($Input1) machen.

z.B.

#include <GuiConstants.au3>
GuiCreate("Fernlehrgang")
$input1 = GuiCtrlCreateInput("Hier den Text",10,10)
$button1 = GUICtrlCreateButton("Auslesen",10,40)
GuiSetState(@SW_SHOW)

Func _x()

Run("notepad.exe")
    WinWait("Unbenannt")
    Controlsend("Unbenannt", "", "", $Auslesen)
EndFunc 

While 1
	$msg = GUIGetMsg()
	If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	If $msg	= $button1 Then
		$Auslesen =  GUICtrlRead($input1)
		_x()
	EndIf
WEnd

Schoen ist es zwar nicht, aber es funzt!

[Gorn92]

So gehts Danke!

[NBA]

Kein Problem. Man muss nur kreativ sein

[lox.0r]

So mach ichs immer:

PHP Code:

#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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button1
                        _blabla()
    EndSwitch

Func _blabla()
    Run("notepad.exe")
    WinWait("Unbenannt")
    Controlsend("Unbenannt", "", "", $Input1)
EndFunc
WEnd 


[Gorn92]

Originally Posted by O,...,O

So mach ichs immer:

Mhm. da bekomm ich nur eine Fehlermeldung ^^

Edit: Mhm. ich hab das jetzt mal mit $Button1=Call("Funktion") probiert, aber wenn ich dann auf den Button drücke, wird die Funktion einfach nicht aufgerufen... aber das Skript wird beendet. Was habe ich falsch gemacht?

PHP Code:

 #include <GUIConstants.au3> 

#Region ### START Koda GUI section ### Form= 
$Form1 = GUICreate("Form1", 493, 349, 193, 125)
$input1 = GUICtrlCreateInput("Message", 96, 104, 321, 21)
$input2 = GUICtrlCreateInput("Window", 96, 160, 321, 21)
$Button1 = GUICtrlCreateButton("Send", 160, 232, 185, 49, 0)
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 

While 1 
    $nMsg = GUIGetMsg() 
    Switch $nMsg = $Button1 
        Case $GUI_EVENT_CLOSE 
            Exit 

    EndSwitch 
WEnd 

$Button1 = Call("_x")  

Func _x() 

While 1
ControlSend ($input2, "", "", $input1) ;~ Sende Input1 an Input2
ControlSend ($input2, "", "", "{enter down}")
Sleep(200)
ControlSend ($input2, "", "", "{enter up}")
WEnd
   
EndFunc 


[Read Me]

Das geht so:

 #include <GUIConstants.au3> 

$Form1 = GUICreate("Input1 zu Input2", 220, 100, 193, 125)
$input1 = GUICtrlCreateInput("Message", 10, 10, 200, 21)
$input2 = GUICtrlCreateInput("Window", 10, 35, 200, 21)
$Button1 = GUICtrlCreateButton("Send", 10, 65, 200,30)
GUISetState(@SW_SHOW) 

While 1 
    $nMsg = GUIGetMsg() 
    Switch $nMsg
        Case $GUI_EVENT_CLOSE 
            Exit 
        Case $Button1
	    _Weitergeben()
    EndSwitch 
WEnd 

Func _Weitergeben() 
	$read=GUICtrlRead($input1,1) ;input1 auslesen
	GUICtrlSetData($input2,$read);Data aus input1 auf input2 übertragen
EndFunc