Hi,
ich habe mir eine "Hotkeymanager" gescriptet. Nur mein Problem ist dass er nur funkst wenn man ihn starten exe auswählt und hotkey und dann speichern und dann neustarten dann klappt es nur .
Ich möchte aber dass es sofort funkst. Ich habe mir gedacht das mann also nen laden button erstellt und danach funkst es. Aber es klappt noch net. Hier mal der Quellcode an einer oder zwei stellen fehltwas da des noch dauert.
Spoiler anzeigen
C
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
FileInstall ("header.jpg", "header.DATA")
$i1 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "1", "0")
$i2 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "2", "0")
$i3 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "3", "0")
$i4 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "4", "0")
$i5 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "5", "0")
$i6 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "1", "0")
$i7 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "2", "0")
$i8 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "3", "0")
$i9 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "4", "0")
$i10 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "5", "0")
#Region ### START Koda GUI section ### Form=C:\Users\Franz\Desktop\Hotkey\Hotkeymanager.kxf
$Hotkeymanager = GUICreate("Hotkeymanager", 431, 497, 193, 125)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0x3399FF)
$m1 = GUICtrlCreateMenu("Datei")
$mi1 = GUICtrlCreateMenuItem( "Speichern", $m1)
$mi2 = GUICtrlCreateMenuItem( "Laden", $m1)
$header = GUICtrlCreatePic("header.DATA", 0, 0, 430, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Programm = GUICtrlCreateLabel("Programmverzeichnis", 18, 136, 156, 27)
GUICtrlSetColor(-1, 0xFF0000)
$Hotkey = GUICtrlCreateLabel("Hotkey", 280, 136, 57, 27)
GUICtrlSetColor(-1, 0xFF0000)
$p1 = GUICtrlCreateInput($i1, 24, 184, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p2 = GUICtrlCreateInput($i2, 24, 234, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p3 = GUICtrlCreateInput($i3, 24, 284, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p4 = GUICtrlCreateInput($i4, 24, 334, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$p5 = GUICtrlCreateInput($i5, 24, 384, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h1 = GUICtrlCreateInput($i6, 254, 184, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h2 = GUICtrlCreateInput($i7, 254, 234, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h3 = GUICtrlCreateInput($i8, 254, 284, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h4 = GUICtrlCreateInput($i9, 254, 334, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h5 = GUICtrlCreateInput($i10, 254, 384, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("...", 144, 184, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("...", 144, 234, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button4 = GUICtrlCreateButton("...", 144, 284, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button5 = GUICtrlCreateButton("...", 143, 334, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
$Button6 = GUICtrlCreateButton("...", 144, 384, 41, 33, 0)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($mi1, "_speichern")
GUICtrlSetOnEvent($mi2, "_laden")
GUICtrlSetOnEvent($Button2, "_fileopen1")
GUICtrlSetOnEvent($Button3, "_fileopen2")
GUICtrlSetOnEvent($Button4, "_fileopen3")
GUICtrlSetOnEvent($Button5, "_fileopen4")
GUICtrlSetOnEvent($Button6, "_fileopen5")
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
#EndRegion ### END Koda GUI section ###
Func start1()
Run ( $i1 )
EndFunc
Func start2()
Run ( $i2 )
EndFunc
Func start3()
Run ( $i3 )
EndFunc
Func start4()
Run ( $i4 )
EndFunc
Func start5()
Run ( $i5 )
EndFunc
HotKeySet ( $i6, "start1")
HotKeySet ( $i7, "start2")
HotKeySet ( $i8, "start3")
HotKeySet ( $i9, "start4")
HotKeySet ( $i10, "start5")
While 1
Sleep (1)
WEnd
Func _fileopen1()
$f1 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p1 , $f1)
EndFunc
Func _fileopen2()
$f2 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p2 , $f2)
EndFunc
Func _fileopen3()
$f3 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p3 , $f3)
EndFunc
Func _fileopen4()
$f4 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p4 , $f4)
EndFunc
Func _fileopen5()
$f5 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p5 , $f5)
EndFunc
Func _laden()
$i1 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "1", "0")
GUICtrlSetData ($p1, $i1)
$i2 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "2", "0")
$i3 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "3", "0")
$i4 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "4", "0")
$i5 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "5", "0")
$i6 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "1", "0")
GUICtrlSetData ($h1, $i6)
$i7 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "2", "0")
$i8 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "3", "0")
$i9 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "4", "0")
$i10 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "5", "0")
EndFunc
Func _speichern()
IniWrite(@ScriptDir & "\Klasse.ini", "Verzeichnis", "1", guictrlread($p1))
IniWrite(@ScriptDir & "\Klasse.ini", "Verzeichnis", "2", guictrlread($p2))
IniWrite(@ScriptDir & "\Klasse.ini", "Verzeichnis", "3", guictrlread($p3))
IniWrite(@ScriptDir & "\Klasse.ini", "Verzeichnis", "4", guictrlread($p4))
IniWrite(@ScriptDir & "\Klasse.ini", "Verzeichnis", "5", guictrlread($p5))
IniWrite(@ScriptDir & "\Klasse.ini", "Hotkeys", "1", guictrlread($h1))
IniWrite(@ScriptDir & "\Klasse.ini", "Hotkeys", "2", guictrlread($h2))
IniWrite(@ScriptDir & "\Klasse.ini", "Hotkeys", "3", guictrlread($h3))
IniWrite(@ScriptDir & "\Klasse.ini", "Hotkeys", "4", guictrlread($h4))
IniWrite(@ScriptDir & "\Klasse.ini", "Hotkeys", "5", guictrlread($h5))
EndFunc
Func _beenden()
Exit
EndFunc
Alles anzeigen