Heej
Bin noch relativ neu hier und hab mich erstmal an eine "kleine" idee herangesetzt, ein hotkeyscript, der die tasten F1 bis F12 belegt.
die taste F5 habe ich ausgelassen, weil ich diese oft anders benutze, z.b. aktualisierung der webpage^^
wie gesagt, ist echt nichts großes, aber über tipps, verbesserungsvorschläge oder kritik positiv als auch negativ würde ich mich freuen
liebe grüße und guten rutsch ins neue jahr,
Henk
#include <date.au3>
#include <Process.au3>
Global $Festplattenspeicher = ("Freier Festplattenspeicher")
[/autoit][autoit][/autoit][autoit]$onOff = 0
[/autoit][autoit][/autoit][autoit]Hotkeyset ( "{F1}" , "_exit" )
Hotkeyset ( "{F2}" , "_shutdown" )
Hotkeyset ( "{F3}" , "_taskmsg" )
Hotkeyset ( "{F4}" , "_openmfirefox" )
; F5 Nicht belegt !
HotkeySet ( "{F6}" , "_startmouseclock")
Hotkeyset ( "{F7}" , "_cdlaufwerkopen" )
Hotkeyset ( "{F8}" , "_cdlaufwerkclose" )
Hotkeyset ( "{F9}" , "_festplattenspeicherC" )
Hotkeyset ( "{F10}" , "_festplattenspeicherD" )
Hotkeyset ( "{F11}" , "_festplattenspeicherG")
Hotkeyset ( "{F12}" , "_hotkeyfuncs")
$Laufwerk = Inputbox ("CD Laufwerk" , "Nenne dein CD Laufwerk, bitte nur den Großbuchstaben ohne Doppelpunkt" & @CR & "Falls du mehrere Laufwerke besitzt, nenne das Laufwerk, was du am meisten benutzt")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Sleep (500)
TrayTip ("Hotkey" , "Hotkeys sind aktiviert" , 10)
While 1
Sleep (1)
Wend ;==> Der eigentlich Script
Func _exit ()
TrayTip ("Hotkey" , "Hotkeys sind ausgeschaltet", 10)
Sleep (3000)
Exit 0
EndFunc
Func _shutdown ()
Shutdown (9)
EndFunc
Func _taskmsg ()
_RunDOS ("taskmgr")
EndFunc
Func _openmfirefox ()
$ProgrammeOrdner = RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion" , "ProgramFilesDir")
$Firefox = $ProgrammeOrdner & "\Mozilla Firefox\firefox.exe"
Run ($Firefox)
EndFunc
While 1
If $onOff = 1 Then
ToolTip("Es ist " & @HOUR & ":" & @MIN & ":" & @SEC)
EndIf
WEnd
_main()
Func _startmouseclock()
HotKeySet("{F6}", "_main")
While 1
ToolTip("Es ist " & @HOUR & ":" & @MIN & ":" & @SEC)
WEnd
EndFunc ;==>_startmouseclock
Func _main()
ToolTip("")
While 1
WEnd
EndFunc ;==>_main
Func _cdlaufwerkopen ()
CDTray( $Laufwerk & ":" , "open")
EndFunc
[/autoit][autoit][/autoit][autoit]Func _cdlaufwerkclose ()
CDTray ( $Laufwerk & ":" , "close")
EndFunc
[/autoit][autoit][/autoit][autoit]Func _festplattenspeicherC ()
$Frei = DriveSpaceFree ("C:\")
$Frei2 = $Frei / 1024
$Frei3 = Round ($Frei2)
MsgBox (0, $Festplattenspeicher , "Es sind " & $Frei3 & "GB freier Speicher auf der Festplatte C: vorhanden")
EndFunc
Func _festplattenspeicherD ()
$Frei4 = DriveSpaceFree ("D:\")
$Frei5 = $Frei4 / 1024
$Frei6 = Round ($Frei5)
MsgBox (0, $Festplattenspeicher , "Es sind " & $Frei6 & "GB freier Speicher auf der Festplatte D: vorhanden")
EndFunc
Func _festplattenspeicherG ()
$Frei7 = DriveSpaceFree ("G:\")
$Frei8 = $Frei7 / 1024
$Frei9 = Round ($Frei8)
MsgBox (0,$Festplattenspeicher, "Es sind " & $Frei9 & "GB freier Speicher auf der Festplatte G: vorhanden")
EndFunc
Func _hotkeyfuncs ()
Sleep (100)
MsgBox (0, "Hotkeyfunktionen" , "Alle Hotkeyfunktionen:" & @CR & "F1 = Programm beenden "& @CR & "F2 = Pc herunterfahren " & @CR & "F3 = Taskmanager oeffnen" & @CR & "F4 = Mozilla Firefox oeffnen" & @CR & "F6 = Startet Uhrzeit an der Maus" & @CR & "F7 und F8 = CD Laufwerk öffnen/schließen" & @CR & "F9 bis F11 = Freien Festplattenspeicher auslesen C: ; D: ; G:" & @CR & " Copyright by Henning Barth, Großes Dankeschön an Johann Lentz " )
EndFunc
Exit
[/autoit]