Programm

franjob

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

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)
$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

FunH@cker

Hmmm vieleicht ein Gebrauchs anleitung weil die 1rste zeile net funst!
2 :Auserdem geht es wohl nur wen die ini vorhanden ist ,sollte eventuell auch ohne gehen .

3 :die ini sieht nich so schön auf dem Desktop aus lieber irgendwo versteckt .

4 : ein Button womit die ini gelöscht wird oder wen du es als Setup baust ,das es mit gelöscht wird .

5 : ein input Feld das die Ausgewählte Datei anzeigt

5 : Hotkey Funktion die den PC Ausschaltet in standby,Benutzer wechselt .............

franjob

ok erst mal danke für deine für deine Kritik. Es geht hundert prozentig. Du musst nur eine exe auswählen. dann einen Hotkey rechts also f1 wählst du so {F1} aus. Und dann auf datei speichern dann eventuell neustarten und dann geht es.Ja ich denke ich mach die ini ganz weg und arbeite mit registry. Dann mach ich noch ein zurücksetzen menüitem das die reg edit löscht und dann noch nen item mit deistallieren. Aber wie schaffe ich dass sich das script selber löscht???Ich habe außerdem keine ahnung welche funktion den computer herunter fäht oder zum beispiel das laufwerk öffnetßßß

FunH@cker

Herunterfahren ist ganz einfach :

[autoit]

Shutdown ( code )

[/autoit]

code :
0 = Abmelden / Logoff
1 = Herunterfahren / Shutdown
2 = Neu Starten / Reboot
4 = Herunterfahren erzwingen / Force
8 = Strom abschalten / Power down
16= erzwingen falls das System hängt
32= Suspend
64= Schlafmodus / Hibernate

nuts

Zitat von franjob

Ja ich denke ich mach die ini ganz weg und arbeite mit registry.

Mhm erstens ist das unnötig, zweitens erkaufst du dir damit andere Probleme (Rechte beim Regwrite usw.) und drittens ists irgendwie abschreckend :wacko:
Die .ini kann ja beim ersten Start (oder beim Setup) automatisch angelegt werden.

FunH@cker

also ich würde es mit FileMove in den win ortner verschieben und mit FileDelete löchen .

L3viathan

Zitat von FunH@cker

Benutzer wechselt

Win+L ?
@franjob: CD öffnen ist CDTray

franjob

Mal ne Frage hat jeder pc die festplatte c und dort den ordner program files???

L3viathan

~~Jeder (Windows-) PC hat C:\~~ edit: uuups..
z.B. deutsche XPs haben C:\Programme statt C:\Program Files
Es existiert aber das Makro @ProgramFilesDir

**peethebee**

Nein, C:\ gibt es nicht immer :).
Mein Windows lebt auf D:\ und hängt auf C:\ USB-Sticks ein :D.

peethebee

franjob

Wo sollte ich denn dann die ini hinmachen???

nuts

Wird die .ini vom Programm geändert? Weil dann solltest du schon auf die Windowsvorgaben achten!
Ich blicke da leider auch nicht mehr so ganz durch ...
Vielleicht hat dazu jemand einen geeigneten Link?

franjob

Ich suche einfachn ur nen geiegnete platz für die ini. so dass jeder computer den platz hat. was passt denn nicht wenn ich einen ordner mache und dort dann sie drin ist und die daten???
Aber der code geht nicht:

Spoiler anzeigen

Code

DirCreate ("\Files")
FileInstall ("header.jpg", "\Files\lala.DATA")

nuts

Schau dir dazu mal die Makros (Directory macros) in der Hilfe an. Nur wie gesagt was genau jetzt für welches Betriebssystem MS konform ist weiss ich nicht (denke da z.B. an Vista, ohne Adminrechte und mit Benutzerkontensteuerung).

franjob

Warum geht den der code mit dircreate nicht?????

L3viathan

geht er so: ?

[autoit]

DirCreate ("Files")
FileInstall ("header.jpg", "Files\lala.DATA")

[/autoit]

franjob

jaop danke