GUI Problrm

[TechnoMan]

Removed

[xXGiuliXx]

Originally Posted by TechnoMan

Hallo,

ich habe mir eine GUI mit derzeit 2 buttons... Bei einem Klick auf eien der Buttons soll natürlich auch etwas passieren, woran ich derzeit leider scheitere.

Es soll sozusagen beim Klick auf den ersten Button der erste Hotkey geklickt werden....

Code:

Hotkeyset("{F7}","Start")
Hotkeyset("{F8}","Ende")




$Form1 = GUICreate("XXXXx", 352, 130, 764, 285)
GUISetIcon("C:\Users\Michael\Desktop\favicon.ico")
GUISetBkColor(0x696969)
$Button1 = GUICtrlCreateButton("Starten (F7)", 16, 32, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
$Button3 = GUICtrlCreateButton("Beenden (F8)", 200, 32, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
$Label1 = GUICtrlCreateLabel("XXXX", 0, 0, 350, 23, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Broadway BT")
GUICtrlSetCursor (-1, 3)
$Label2 = GUICtrlCreateLabel("XXXXX", 0, 80, 340, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Broadway BT")
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[2][2] = [["{F7}", $Button1],["{F9}", $Button3]]
GUISetAccelerators($Form1_AccelTable)



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

		Case $Button1
		Case $Label1
		Case $Label2
	EndSwitch
WEnd


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

		Case $Button1
		Case $Label1
	EndSwitch
WEnd



Func Ende ()
While 1
ProcessClose ("XXXXX.exe")
Exit
WEnd
EndFunc

Wie müsste das ausschauen damit beim Drücken vom ersten button auch was passiert? Wenn ich auf der Tastatur F7 klicke geht es nur beim Knopf nicht..

LG

Ich sehe gerade das du nichtmal Includes hasst .
Ohne Includes geht schonmal garnichts!
Schreib in der 1sten Zeile :

#include <GUIConstants.au3>

in der 2ten :

#include <WindowsConstants.au3>

und in der 3ten :

#include <ButtonConstants.au3>

Soo, zurück zu deiner Frage, du hast ja geschrieben :

Case $Button1

Das ist schonmal richtig
Nun machst du eine Zeile runter was er machen soll, z.B.

Send ("Hallo")

Dan würde er hallt Hallo schrieben wen du den Button drückst

Und wen du dan den 2ten Button ein befehl geben willst, sieht es dan so aus :

Case $Button1
Send ("Hallo")

Case $Button2
Send ("Tschüss")

Oder halt $Button3, kommt drauf an was du für eine Variable genommen hasst

Ich hoffe ich konnte dir helfen.

[Benhero]

PHP Code:

HotKeySet("{F7}", "Start")
HotKeySet("{F8}", "Ende")




$Form1 = GUICreate("XXXXx", 352, 130, 764, 285)
GUISetIcon("C:\Users\Michael\Desktop\favicon.ico")
GUISetBkColor(0x696969)
$Button1 = GUICtrlCreateButton("Starten (F7)", 16, 32, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
$Button3 = GUICtrlCreateButton("Beenden (F8)", 200, 32, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
$Label1 = GUICtrlCreateLabel("XXXX", 0, 0, 350, 23, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Broadway BT")
GUICtrlSetCursor(-1, 3)
$Label2 = GUICtrlCreateLabel("XXXXX", 0, 80, 340, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Broadway BT")
GUISetState(@SW_SHOW)
Dim $Form1_AccelTable[2][2] = [["{F7}", $Button1],["{F9}", $Button3]]
GUISetAccelerators($Form1_AccelTable)



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

        Case $Button1
                        Start()
        Case $Label1
        Case $Label2
    EndSwitch
WEnd


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

        Case $Button1
                        Start()
        Case $Label1
    EndSwitch
WEnd



Func Ende()
    While 1
        ProcessClose("XXXXX.exe")
        Exit
    WEnd
EndFunc   ;==>Ende 


So startet er die F7 funktion wenn du auf Button1 Drückst. Kannst du auch bei den anderen Buttons etc. So machem...

Greatz Benehro

[TechnoMan]

Nun schaut es so aus:

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

Case $Button1
Start()
Case $Label1
Case $Label2
EndSwitch
WEnd


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

Case $Button3
Ende()
Case $Label1
EndSwitch
WEnd

Func F7PRESSED ()
msgbox(0,"START","START PRESSED")
EndFunc



Func Ende()
While 1
ProcessClose("Galaxygateklicker.exe")
Exit
WEnd
EndFunc



Func Start ()
while True

Das atarten geht nun aber das beenden nicht...

[killeeer111]

ich habs zwar nicht ausprobiert obs klappt aber nimm mal statt den ganzen Ende:

• Exit
  wenns nicht klappt:
• Stop

mfg

[sido47]

also das was ihr da macht naja

;Hier das Gui

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

Case $Button1
Start()

Case $Button3
Exit
EndSwitch
WEnd

Func F7PRESSED () ;Wo soll des jetzt eingebaut werden ??
msgbox(0,"START","START PRESSED")
EndFunc


Func Start ()
while True ;Was willst du hiermit sagen ?