Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
$HK1 = IniRead("C:\Temp\config.ini", "config", "1", "{F5}") $HK2 = IniRead("C:\Temp\config.ini", "config", "2", "{F6}") $HK3 = IniRead("C:\Temp\config.ini", "config", "3", "{F7}") $HK4 = IniRead("C:\Temp\config.ini", "config", "4", "{F8}") $HK5 = IniRead("C:\Temp\config.ini", "config", "5", "{F9}") $MSG_1 = IniRead("C:\Temp\config.ini", "msg", "1", "Keine Nachricht gefunden!" ) $MSG_2 = IniRead("C:\Temp\config.ini", "msg", "2", "Keine Nachricht gefunden!" ) $MSG_3 = IniRead("C:\Temp\config.ini", "msg", "3", "Keine Nachricht gefunden!" ) $MSG_4 = IniRead("C:\Temp\config.ini", "msg", "4", "Keine Nachricht gefunden!" ) $MSG_5 = IniRead("C:\Temp\config.ini", "msg", "5", "Keine Nachricht gefunden!" ) HotKeySet($HK1, 'send_msg_1') HotKeySet($HK2, 'send_msg_2') HotKeySet($HK3, 'send_msg_3') HotKeySet($HK4, 'send_msg_4') HotKeySet($HK5, 'send_msg_5') HotKeySet('{ESC}', 'end') HotKeySet('^{f1}', 'show') HotKeySet('^{f2}', 'hide') Opt("TrayMenuMode", 1) Global $MenuItem = TrayCreateItem("Config einblenden") Global $MenuItem3 = TrayCreateItem("Config ausblenden") Global $MenuItem2 = TrayCreateItem("Beenden") #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 586, 462, 192, 124) $MSG1 = GUICtrlCreateInput($MSG_1, 216, 56, 305, 21) $HotKey1 = GUICtrlCreateInput($HK1, 27, 56, 129, 21) $HotKey = GUICtrlCreateLabel("HotKey", 32, 32, 39, 17) $Nachricht = GUICtrlCreateLabel("Nachricht", 216, 32, 50, 17) $MSG2 = GUICtrlCreateInput($MSG_2, 216, 135, 305, 21) $Label1 = GUICtrlCreateLabel("Nachricht", 216, 111, 50, 17) $HotKey2 = GUICtrlCreateInput($HK2, 27, 135, 129, 21) $Label2 = GUICtrlCreateLabel("HotKey", 32, 111, 39, 17) $MSG3 = GUICtrlCreateInput($MSG_3, 216, 215, 305, 21) $HotKey3 = GUICtrlCreateInput($HK3, 27, 207, 129, 21) $Label3 = GUICtrlCreateLabel("HotKey", 28, 175, 39, 17) $Label4 = GUICtrlCreateLabel("Nachricht", 212, 175, 50, 17) $MSG4 = GUICtrlCreateInput($MSG_4, 216, 278, 305, 21) $Label5 = GUICtrlCreateLabel("Nachricht", 212, 254, 50, 17) $HotKey4 = GUICtrlCreateInput($HK4, 27, 278, 129, 21) $Label6 = GUICtrlCreateLabel("HotKey", 28, 254, 39, 17) $MSG5 = GUICtrlCreateInput($MSG_5, 216, 345, 305, 21) $Label7 = GUICtrlCreateLabel("Nachricht", 216, 321, 50, 17) $HotKey5 = GUICtrlCreateInput($HK5, 31, 345, 129, 21) $Label8 = GUICtrlCreateLabel("HotKey", 32, 321, 39, 17) $send = GUICtrlCreateButton("Speichern", 248, 384, 249, 33, $WS_GROUP) GUISetState(@SW_HIDE) #EndRegion ### END Koda GUI section ###0 While 1 ToolTip('Text Writer an , belegte Tasten: ' & $HK1 & $HK2 & $HK3 & $HK4 & $HK5 & ' | Config einblenden: STRG+F1, Config ausblenden: STRG+F2, Beenden: ESC', 5,5) $nMsg2 = TrayGetMsg() Switch $nMsg2 Case $MenuItem2 Exit Case $MenuItem GUISetState(@SW_SHOW) Case $MenuItem3 GUISetState(@SW_HIDE) EndSwitch $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $send IniWrite("C:\Temp\config.ini", "config", "1", GUICTRLREAD($HotKey1)) SLeep(100) IniWrite("C:\Temp\config.ini", "config", "2", GUICTRLREAD($HotKey2)) SLeep(100) IniWrite("C:\Temp\config.ini", "config", "2", GUICTRLREAD($HotKey3)) SLeep(100) IniWrite("C:\Temp\config.ini", "config", "3", GUICTRLREAD($HotKey4)) SLeep(100) IniWrite("C:\Temp\config.ini", "config", "4", GUICTRLREAD($HotKey5)) SLeep(100) IniWrite("C:\Temp\config.ini", "msg", "1", GUICTRLREAD($MSG1)) SLeep(100) IniWrite("C:\Temp\config.ini", "msg", "2", GUICTRLREAD($MSG2)) SLeep(100) IniWrite("C:\Temp\config.ini", "msg", "2", GUICTRLREAD($MSG3)) SLeep(100) IniWrite("C:\Temp\config.ini", "msg", "3", GUICTRLREAD($MSG4)) SLeep(100) IniWrite("C:\Temp\config.ini", "msg", "4", GUICTRLREAD($MSG5)) MsgBox(0, 'Erfolgreich', 'Erfolgreich gespeichert!') EndSwitch WEnd Func send_msg_1() $msg1 = IniRead("C:\Temp\config.ini", "msg", "1", "Keine Nachricht gefunden!" ) Send($msg1) EndFunc Func send_msg_2() $msg2 = IniRead("C:\Temp\config.ini", "msg", "2", "Keine Nachricht gefunden!" ) Send($msg2) EndFunc Func send_msg_3() $msg3 = IniRead("C:\Temp\config.ini", "msg", "3", "Keine Nachricht gefunden!" ) Send($msg3) EndFunc Func send_msg_4() $msg4 = IniRead("C:\Temp\config.ini", "msg", "4", "Keine Nachricht gefunden!" ) Send($msg4) EndFunc Func send_msg_5() $msg5 = IniRead("C:\Temp\config.ini", "msg", "5", "Keine Nachricht gefunden!" ) Send($msg5) EndFunc Func show() GUISetState(@SW_SHOW) EndFunc Func hide() GUISetState(@SW_HIDE) EndFunc Func end() Exit EndFunc
Dauerhaft angemeldet bleiben?