Hi,
Ich habe einen "Hotkeymanager" gescriptet um den altag so nen bischen zu vereinfachen. Jetzt weiß ich nicht wie ich ihn jetzt noch verbessern kann. Hättet ihr den ideen welche funktionen ich dem programm noch hinzufügen kann??? Und wisst ihr wie ich es vielleciht ich es hinbekommen könnte. Also ich habe unten ne slider. Und wenn man den slider nach oben bewegt wird das fenster vergrößet und man kann mehr hotkeys wählen. Kapiert. Achso ja wo wir gerade dabei sind wie schaffe ich es dass man ein fenster hat das ich nur mit pics gemacht ahbe, also eins das nicht so nen normalen windows rand hatt sondern dass es aus bildern die ich wähle besteht. Und kann man dem fenster irgendwie die funktion geben das man es vergrößern kann.
Hier mein derzeitiger Code:
Spoiler anzeigen
#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)
$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($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
While 1
Sleep (1)
HotKeySet ( $i6, "start1")
HotKeySet ( $i7, "start2")
HotKeySet ( $i8, "start3")
HotKeySet ( $i9, "start4")
HotKeySet ( $i10, "start5")
WEnd
Func _fileopen1()
$f1 = FileOpenDialog ( "Anwendung auswählen", @DesktopDir, "Anwendungen(*.exe*)")
guictrlsetdata ($p1 , $f1)
$i1 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "1", "0")
GUICtrlSetData ($p1, $i1)
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 _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))
$i1 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "1", "0")
GUICtrlSetData ($p1, $i1)
$i2 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "2", "0")
GUICtrlSetData ($p2, $i2)
$i3 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "3", "0")
GUICtrlSetData ($p3, $i3)
$i4 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "4", "0")
GUICtrlSetData ($p4, $i4)
$i5 = IniRead ( @ScriptDir & "\Klasse.ini", "Verzeichnis", "5", "0")
GUICtrlSetData ($p5, $i5)
$i6 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "1", "0")
GUICtrlSetData ($h1, $i6)
$i7 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "2", "0")
GUICtrlSetData ($h2, $i7)
$i8 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "3", "0")
GUICtrlSetData ($h3, $i8)
$i9 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "4", "0")
GUICtrlSetData ($h4, $i9)
$i10 = IniRead ( @ScriptDir & "\Klasse.ini", "Hotkeys", "5", "0")
GUICtrlSetData ($h5, $i10)
EndFunc
Func _beenden()
Exit
EndFunc
Alles anzeigen