GUI Problrm

05/23/2010 20:52 TechnoMan#1
Removed
05/23/2010 23:32 xXGiuliXx#2
Quote:
Originally Posted by TechnoMan View Post
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:

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 :
Code:
#include <GUIConstants.au3>
in der 2ten :
Code:
#include <WindowsConstants.au3>
und in der 3ten :
Code:
#include <ButtonConstants.au3>

Soo, zurück zu deiner Frage, du hast ja geschrieben :
Code:
Case $Button1
Das ist schonmal richtig :)
Nun machst du eine Zeile runter was er machen soll, z.B.

Code:
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 :

Code:
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.
05/25/2010 21:11 Benhero#3
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
05/30/2010 18:31 TechnoMan#4
Nun schaut es so aus:

Quote:
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...
05/30/2010 18:58 killeeer111#5
ich habs zwar nicht ausprobiert obs klappt aber nimm mal statt den ganzen Ende:
  • Exit
    wenns nicht klappt:
  • Stop

mfg
06/06/2010 12:00 sido47#6
also das was ihr da macht naja

Quote:
;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 ?