Hi,
SOrry das ich 2 themen aufgemacht habe aber hier geht es um was nderes. Mein Code sist der folgende. Das problem ist die letzte inputbox auf der rechten seite. Ich gebe einen hotkey ein und speichere. gut dann geht es. Aber wenn ich das programm neustarte dann wird das gespeicherte nicht geladen!! Ach ja wenn ich shutdown mache egal was ich wähle bei der Combo er fährt immer runter!!
Hier der Code:
Spoiler anzeigen
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <ComboConstants.au3>
DirCreate("Files")
FileInstall("header.jpg", "Files\lala.DATA")
$i1 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", Default)
$i2 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", Default)
$i3 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", Default)
$i4 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", Default)
$i5 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", Default)
$i6 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", Default)
$i8 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", Default)
$i9 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", Default)
$i10 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", Default)
$i11 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", Default)
$i12 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", Default)
$i13 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hokteys", "6", "")
#Region ### START Koda GUI section ### Form=C:\Users\Franz\Desktop\Hotkey\Hotkeymanager.kxf
$Hotkeymanager = GUICreate("Hotkeymanager", 431, 600, 193, 125)
GUISetFont(12, 400, 0, "Comic Sans MS")
GUISetBkColor(0x3399FF)
$m1 = GUICtrlCreateMenu("Datei")
$mi1 = GUICtrlCreateMenuItem("Speichern", $m1)
$header = GUICtrlCreatePic("\Files\lala.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($i8, 254, 184, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h2 = GUICtrlCreateInput($i9, 254, 234, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h3 = GUICtrlCreateInput($i10, 254, 284, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h4 = GUICtrlCreateInput($i11, 254, 334, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h5 = GUICtrlCreateInput($i12, 254, 384, 100, 31)
GUICtrlSetColor(-1, 0xFF0000)
$h6 = GUICtrlCreateInput($i13, 254, 434, 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)
$Combo1 = GUICtrlCreateCombo("Herunterfahren", 24, 434, 153)
GUICtrlSetData(-1, "Energie sparen|Neu starten", "Neu starten")
GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($mi1, "_speichern")
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 ###
[/autoit] [autoit][/autoit] [autoit]Func start1()
Run($i1)
EndFunc ;==>start1
Func start2()
Run($i2)
EndFunc ;==>start2
Func start3()
Run($i3)
EndFunc ;==>start3
Func start4()
Run($i4)
EndFunc ;==>start4
Func start5()
Run($i5)
EndFunc ;==>start5
Func computer1()
$i6 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", "")
Shutdown($i6)
EndFunc ;==>computer1
While 1
Sleep(1)
HotKeySet($i8, "start1")
HotKeySet($i9, "start2")
HotKeySet($i10, "start3")
HotKeySet($i11, "start4")
HotKeySet($i12, "start5")
HotKeySet($i13, "computer1")
WEnd
Func _fileopen1()
$f1 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
GUICtrlSetData($p1, $f1)
EndFunc ;==>_fileopen1
Func _fileopen2()
$f2 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
GUICtrlSetData($p2, $f2)
EndFunc ;==>_fileopen2
Func _fileopen3()
$f3 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
GUICtrlSetData($p3, $f3)
EndFunc ;==>_fileopen3
Func _fileopen4()
$f4 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
GUICtrlSetData($p4, $f4)
EndFunc ;==>_fileopen4
Func _fileopen5()
$f5 = FileOpenDialog("Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
GUICtrlSetData($p5, $f5)
EndFunc ;==>_fileopen5
Func _speichern()
$m = GUICtrlRead($Combo1)
If $m = "Herunterfahren" Then
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", "1")
ElseIf $m = "Energie sparen" Then
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", "8")
ElseIf $m = "Neu starten" Then
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Computer", "1", "2")
Else
MsgBox(64, "Error", "Wähle bitte etwas aus der Liste aus!")
Return
EndIf
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", GUICtrlRead($p1))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", GUICtrlRead($p2))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", GUICtrlRead($p3))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", GUICtrlRead($p4))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", GUICtrlRead($p5))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", GUICtrlRead($h1))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", GUICtrlRead($h2))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", GUICtrlRead($h3))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", GUICtrlRead($h4))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", GUICtrlRead($h5))
IniWrite(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "6", GUICtrlRead($h6))
$i1 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "1", "")
GUICtrlSetData($p1, $i1)
$i2 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "2", "")
GUICtrlSetData($p2, $i2)
$i3 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "3", "")
GUICtrlSetData($p3, $i3)
$i4 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "4", "")
GUICtrlSetData($p4, $i4)
$i5 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Verzeichnis", "5", "")
GUICtrlSetData($p5, $i5)
$i8 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "1", "")
GUICtrlSetData($h1, $i8)
$i9 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "2", "")
GUICtrlSetData($h2, $i9)
$i10 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "3", "")
GUICtrlSetData($h3, $i10)
$i11 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "4", "")
GUICtrlSetData($h4, $i11)
$i12 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "5", "")
GUICtrlSetData($h5, $i12)
$i13 = IniRead(@ScriptDir & "\Files\Klasse.ini", "Hotkeys", "6", "")
GUICtrlSetData($h6, $i13)
EndFunc ;==>_speichern
Func _beenden()
Exit
EndFunc ;==>_beenden
Ich glaube das Problem liegt mir genazu vord er Nase aber ich seh den Wald vor lauter Bäumen nicht!!