; ----------------------------------------------------------------------------
;
; AutoIt-Version: v3.2.0.1
;
; Programmname:   Toolbox
; Version:        0.20
;
; Autor:          Manuel Kübler
; Mail:           mk-software@gmx.de
;
; Skript Function:
;    Systemsteuerung als Menü
;    wichtige Programme als Menü
;    Arbeitsplatz als Menü
;
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------

; Todo:

; - Arbeitsplatz als Menü
;    -> Laufwerke öffnen
;   - Offen

; - Bugs im Arbeitsplatz-Menü
;    -> Bugs wurden im Arbeitsplatz-Menü gefunden.
;    -> Die Bugs beeinträchtigen das Programm nicht.
;    -> Die Bugs werden in der nächsten Version behoben.
;   - Manuel Kübler

; - Einstellungen-GUI
;    -> Wichtige Einstellungen können hier vorgenommen werden.
;    -> Start mit Windows, ...
;   - Offen

; - _RunDOS-Funktionen
;    -> In den nächsten Versionen werden langsam die Run-Funktionen durch _RunDOS-Funktionen ersetzt.
;    -> Durch diese Umstellung, entfällt die Sucherei nach den Programm-Pfaden.
;   - Manuel Kübler

; - Icons
;    -> Jede Schaltfläche erhält ein Icon.
;    -> Die Icons liegen im Verzeichnis "Icons"
;   - Offen

; - Bugs
;    -> Alle Bugs entfernen
;   - Manuel Kübler


; Done:

; - Arbeitsplatz als Menü
;    -> Alle Laufwerke
;   - Manuel Kübler Done.

; - _RunDOS-Funktionen
;    -> Ein Teil der Run-Funktionen wurden durch _RunDOS-Funktionen ersetzt.
;   - Manuel Kübler (Done.)

; - Bugs im Systemsteuerungs-Menü
;    -> Alle Bugs im Systemsteuerungs-Menü wurden behoben.
;   - Manuel Kübler (Done.)

; - Eigene Dateien
;    -> Eigene Dateien-Link
;   - Manuel Kübler (Done.)

; - Systemsteuerung als Menü
;    -> Anzeige, Automatische Updates, ...
;   - Manuel Kübler (Done.)
; ----------------------------------------------------------------------------


; ============================================================================
; ----------------------------------------
; AutoIT Options
; ----------------------------------------
Opt("TrayIconDebug", 0)   ; TESTING später entfernen, eigenes TrayMenü bauen
Opt("TrayMenuMode", 1)    ; Default tray menu items (Script Paused/Exit) will not be shown.
Opt("TrayOnEventMode", 1)

; ----------------------------------------
; Include
; ----------------------------------------
#Include <Constants.au3>
#Include <Process.au3>

; ----------------------------------------
; Target
; ----------------------------------------
; Microsoft Office 2003
Global $Target_MSOffice_Access     = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Access\InstallRoot",     "Path")
Global $Target_MSOffice_Excel      = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Excel\InstallRoot",      "Path")
Global $Target_MSOffice_FrontPage  = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\FrontPage\InstallRoot",  "Path")
Global $Target_MSOffice_InfoPath   = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\InfoPath\InstallRoot",   "Path")
Global $Target_MSOffice_Outlook    = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Outlook\InstallRoot",    "Path")
Global $Target_MSOffice_PowerPoint = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\PowerPoint\InstallRoot", "Path")
Global $Target_MSOffice_Publisher  = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Publisher\InstallRoot",  "Path")
Global $Target_MSOffice_Word       = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Word\InstallRoot",       "Path")

Global $Target_Reader = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\7.0\Installer", "Path")

; ----------------------------------------
; Variablen-Deklarationen
; ----------------------------------------
Global $PROGRAMM_NAME = "Toolbox"
Global $PROGRAMM_VERSION = "0.20"
; ============================================================================


; ============================================================================

; ----------------------------------------
; Menü
; ----------------------------------------
; Eigene Dateien
$Dateien = TrayCreateItem("Eigene Dateien")
TrayItemSetOnEvent(-1, "_dateien")

TrayCreateItem("")

; ----------------------------------------
; Programme
; ----------------------------------------
; Programme
;  Brennen
;   Nero 7
;  E-Mail
;   Mozilla Thunderbird
;  Grafik
;  Internet
;   Internet Explorer
;   Mozilla Firefox
;  Multimedia
;   Windows Media Player
;  Office
;   Microsoft Access 2003
;   Microsoft Office Excel 2003
;   Microsoft Office FrontPage 2003
;   Microsoft Office InfoPath 2003
;   Microsoft Office Outlook 2003
;   Microsoft Office PowerPoint 2003
;   Microsoft Office Publisher 2003
;   Microsoft Office Word 2003
;   Adobe Reader
;  Sicherheit
;  System
;   Editor
;   Eingabeaufforderung
;   Registrierungs-Editor
;   Systemwiederherstellung
;   Windows Update
;  Tools
;  	AutoIt3
;  	 AutoIt Window Info
;  	 Compile Script to .exe
;  	 Run Script
;   Windows XP Key Finder

; Programme
$Programme = TrayCreateMenu("Programme")

;  Brennen
$Programme_Brennen = TrayCreateMenu("Brennen", $Programme)
	; Nero 7
	$Programme_Brennen = TrayCreateItem("Nero 7", $Programme_Brennen)
	TrayItemSetOnEvent(-1, "_open_programme_brennen_nero7")
; ----------------------------------------


;  E-Mail
$Programme_EMail = TrayCreateMenu("E-Mail", $Programme)
	; Mozilla Thunderbird
;	If FileExists(@ProgramFilesDir & "\Mozilla Thunderbird\thunderbird.exe") Then
		$Programme_EMail_Thunderbird = TrayCreateItem("Mozilla Thunderbird", $Programme_EMail)
		TrayItemSetOnEvent(-1, "_programme_email_mozillathunderbird")
;	EndIf
; ----------------------------------------


;  Grafik
$Programme_Grafik = TrayCreateMenu("Grafik", $Programme)
; ----------------------------------------


;  Internet
$Programme_Internet = TrayCreateMenu("Internet", $Programme)
	; Internet Explorer
	$Programme_IEXPLORE = TrayCreateItem("Internet Explorer", $Programme_Internet)
	TrayItemSetOnEvent(-1, "_open_programme_internet_internetexplorer")
	; Mozilla Firefox
;	If FileExists(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe") Then
		$Programme_Firefox = TrayCreateItem("Mozilla Firefox", $Programme_Internet)
		TrayItemSetOnEvent(-1, "_programme_internet_mozillafirefox")
;	EndIf
; ----------------------------------------


;  Multimedia
$Programme_Multimedia = TrayCreateMenu("Multimedia", $Programme)
	; Windows Media Player
	$Programme_wmPlayer = TrayCreateItem("Windows Media Player", $Programme_Multimedia)
	TrayItemSetOnEvent(-1, "_open_programme_multimedia_windowsmediaplayer")
; ----------------------------------------


;  Office
$Programme_Office = TrayCreateMenu("Office", $Programme)
	; Microsoft Access 2003
	If FileExists($Target_MSOffice_Access) Then
		$Programme_Office_Access = TrayCreateItem("Microsoft Office Access 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficeaccess")
	EndIf
	; Microsoft Office Excel 2003
	If FileExists($Target_MSOffice_Excel) Then
		$Programme_Office_Excel = TrayCreateItem("Microsoft Office Excel 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficeexcel")
	EndIf
	; Microsoft Office FrontPage 2003
	If FileExists($Target_MSOffice_FrontPage) Then
		$Programme_Office_FrontPage = TrayCreateItem("Microsoft Office FrontPage 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficefrontpage")
	EndIf
	; Microsoft Office InfoPath 2003
	If FileExists($Target_MSOffice_InfoPath) Then
		$Programme_Office_InfoPath = TrayCreateItem("Microsoft Office InfoPath 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficeinfopath")
	EndIf
	; Microsoft Office Outlook 2003
	If FileExists($Target_MSOffice_Outlook) Then
		$Programme_Office_Outlook = TrayCreateItem("Microsoft Office Outlook 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficeoutlook")
	EndIf
	; Microsoft Office PowerPoint 2003
	If FileExists($Target_MSOffice_PowerPoint) Then
		$Programme_Office_PowerPoint = TrayCreateItem("Microsoft Office PowerPoint 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficepowerpoint")
	EndIf
	; Microsoft Office Publisher 2003
	If FileExists($Target_MSOffice_Publisher) Then
		$Programme_Office_Publisher = TrayCreateItem("Microsoft Office Publisher 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficepublisher")
	EndIf
	; Microsoft Office Word 2003
	If FileExists($Target_MSOffice_Word) Then
		$Programme_Office_Word = TrayCreateItem("Microsoft Office Word 2003", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_msofficeword")
	EndIf
	
TrayCreateItem("", $Programme_Office)

	; Adobe Reader
	If FileExists($Target_Reader & "\Reader\AcroRd32.exe") Then
		$Programme_Reader = TrayCreateItem("Adobe Reader", $Programme_Office)
		TrayItemSetOnEvent(-1, "_open_programme_office_adobereader")
	EndIf
; ----------------------------------------


;  Sicherheit
$Programme_Sicherheit = TrayCreateMenu("Sicherheit", $Programme)
; ----------------------------------------


;  System
$Programme_System = TrayCreateMenu("System", $Programme)
	; Editor
	$Programme_Tools_Editor = TrayCreateItem("Editor", $Programme_System)
	TrayItemSetOnEvent(-1, "_open_programme_system_editor")
	; Eingabeaufforderung
	$Programme_Tools_CMD = TrayCreateItem("Eingabeaufforderung", $Programme_System)
	TrayItemSetOnEvent(-1, "_open_programme_system_eingabeaufforderung")
	; Registrierungs-Editor
	$Programme_Tools_Regedit = TrayCreateItem("Registrierungs-Editor", $Programme_System)
	TrayItemSetOnEvent(-1, "_open_programme_system_registrierungseditor")
	; Systemwiederherstellung
	$Programme_Tools_Restore = TrayCreateItem("Systemwiederherstellung", $Programme_System)
	TrayItemSetOnEvent(-1, "_open_programme_system_systemwiederherstellung")
	; Windows Update
	$Programme_Tools_Update = TrayCreateItem("Windows Update", $Programme_System)
	TrayItemSetOnEvent(-1, "_open_programme_system_windowsupdate")
; ----------------------------------------	


;  Tools
$Programme_Tools = TrayCreateMenu("Tools", $Programme)
	; AutoIt3
	If FileExists(@ProgramFilesDir & "\AutoIt3") Then
		$Programme_Tools_AutoIT = TrayCreateMenu("AutoIT", $Programme_Tools)
		;  AutoIt Window Info
		$Programme_Tools_AutoIT_Au3Info = TrayCreateItem("AutoIt Window Info", $Programme_Tools_AutoIT)
		TrayItemSetOnEvent(-1, "_open_programme_tools_autoit_autoitwindowinfo")
		;  Compile Script to .exe
		$Programme_Tools_AutoIT_Aut2Exe = TrayCreateItem("Compile Script to .exe", $Programme_Tools_AutoIT)
		TrayItemSetOnEvent(-1, "_open_programme_tools_autoit_compilescripttoexe")
		;  Run Script
		$Programme_Tools_AutoIT_AutoIt3 = TrayCreateItem("Run Script", $Programme_Tools_AutoIT)
		TrayItemSetOnEvent(-1, "_open_programme_tools_autoit_runscript")
	EndIf
	; Windows XP Key Finder
	$Programme_Tools_WindowsXPKeyFinder = TrayCreateItem("Windows XP Key Finder", $Programme_Tools)
	TrayItemSetOnEvent(-1, "_open_programme_tools_windowsxpkeyfinder")
; ----------------------------------------------------------------------------

TrayCreateItem("")

; ----------------------------------------
; Systemsteuerung
; ----------------------------------------

; Systemsteuerung
;  Anzeige
;  Automatische Updates
;  Benutzerkonten
;  Datum und Uhrzeit
;  Drahtlosnetzwerkinstallation
;  Drucker und Faxgeräte
;  Eingabehilfe
;  Energieoptionen
;  Gamecontroller
;  Geplante Tasks
;  Hardware
;  Internetoptionen
;  Mail
;  Maus
;  Netzwerkinstallations-Assistent
;  Netzwerkverbindungen
;  Ordneroptionen
;  Regions- und Sprachoptionen
;  Scanner und Kameras
;  Schriftarten
;  Sicherheitscenter
;  Software
;  Sounds und Audiogeräte
;  Sprachein-/ausgabe
;  System
;  Taskleiste und Startmenü
;  Tastatur
;  Telefon- und Modemoptionen
;  Verwaltung
;   Computerverwaltung
;   Datenquellen (ODBC)
;   Dienste
;   Ereignisanzeige
;   Komponentendienste
;   Leistung
;   Lokale Sicherheitsrichtlinie
;  Windows-Firewall

; Systemsteuerung
$Systemsteuerung = TrayCreateMenu("Systemsteuerung")
TrayItemSetOnEvent(-1, "_open_systemsteuerung")

;  Anzeige
$Systemsteuerung_Anzeige = TrayCreateItem("Anzeige", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_anzeige")

;  Automatische Updates
$Systemsteuerung_Updates = TrayCreateItem("Automatische Updates", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_automatischeupdates")

;  Benutzerkonten
$Systemsteuerung_Benutzer = TrayCreateItem("Benutzerkonten", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_benutzerkonten")

;  Datum und Uhrzeit
$Systemsteuerung_Datum = TrayCreateItem("Datum und Uhrzeit", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_datumunduhrzeit")

;  Drahtlosnetzwerkinstallation
$Systemsteuerung_Draht = TrayCreateItem("Drahtlosnetzwerkinstallation", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_drahtlosnetzwerkinstallation")

;  Drucker und Faxgeräte
$Systemsteuerung_Drucker = TrayCreateItem("Drucker und Faxgeräte", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_druckerundfaxgeraete")

;  Eingabehilfe
$Systemsteuerung_Eingabe = TrayCreateItem("Eingabehilfe", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_eingabehilfe")

;  Energieoptionen
$Systemsteuerung_Energie = TrayCreateItem("Energieoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_energieoptionen")

;  Gamecontroller
$Systemsteuerung_Game = TrayCreateItem("Gamecontroller", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_gamecontroller")

;  Geplante Tasks
$Systemsteuerung_Tasks = TrayCreateItem("Geplante Tasks", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_geplantetasks")

;  Hardware
$Systemsteuerung_Hardware = TrayCreateItem("Hardware", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_hardware")

;  Internetoptionen
$Systemsteuerung_Internet = TrayCreateItem("Internetoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_internetoptionen")

;  Mail
$Systemsteuerung_Mail = TrayCreateItem("Mail", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_mail")

;  Maus
$Systemsteuerung_Maus = TrayCreateItem("Maus", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_maus")

;  Netzwerkinstallations-Assistent
$Systemsteuerung_Netzwerkinstall = TrayCreateItem("Netzwerkinstallations-Assistent", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_netzwerkinstallationsassistent")

;  Netzwerkverbindungen
$Systemsteuerung_Netzwerk = TrayCreateItem("Netzwerkverbindungen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_netzwerkverbindungen")

;  Ordneroptionen
$Systemsteuerung_Ordner = TrayCreateItem("Ordneroptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_ordneroptionen")

;  Regions- und Sprachoptionen
$Systemsteuerung_Region = TrayCreateItem("Regions- und Sprachoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_regionsundsprachoptionen")

;  Scanner und Kameras
$Systemsteuerung_Scanner = TrayCreateItem("Scanner und Kameras", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_scannerundkameras")

;  Schriftarten
$Systemsteuerung_Schrift = TrayCreateItem("Schriftarten", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_schriftarten")

;  Sicherheitscenter
$Systemsteuerung_Sicherheit = TrayCreateItem("Sicherheitscenter", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_sicherheitscenter")

;  Software
$Systemsteuerung_Software = TrayCreateItem("Software", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_software")

;  Sounds und Audiogeräte
$Systemsteuerung_Sound = TrayCreateItem("Sounds und Audiogeräte", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_soundundaudiogeraete")

;  Sprachein-/ausgabe
$Systemsteuerung_Sprache = TrayCreateItem("Sprachein-/ausgabe", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_spracheinausgabe")

;  System
$Systemsteuerung_System = TrayCreateItem("System", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_system")

;  Taskleiste und Startmenü
$Systemsteuerung_Startmenue = TrayCreateItem("Taskleiste und Startmenü", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_taskleisteundstartmenue")

;  Tastatur
$Systemsteuerung_Tastatur = TrayCreateItem("Tastatur", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_tastatur")

;  Telefon- und Modemoptionen
$Systemsteuerung_Telefon = TrayCreateItem("Telefon- und Modemoptionen", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_telefonundmodemoptionen")

;  Verwaltung
$Systemsteuerung_Verwaltung = TrayCreateMenu("Verwaltung", $Systemsteuerung)

;   Computerverwaltung
$Systemsteuerung_Verwaltung_Computer = TrayCreateItem("Computerverwaltung", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_computerverwaltung")

;   Datenquellen (ODBC)
$Systemsteuerung_Verwaltung_ODBC = TrayCreateItem("Datenquellen (ODBC)", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_datenquellen")

;   Dienste
$Systemsteuerung_Verwaltung_Dienste = TrayCreateItem("Dienste", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_dienste")

;   Ereignisanzeige
$Systemsteuerung_Verwaltung_Event = TrayCreateItem("Ereignisanzeige", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_ereignisanzeige")

;   Komponentendienste
$Systemsteuerung_Verwaltung_Comexp = TrayCreateItem("Komponentendienste", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_komponentendienste")

;   Leistung
$Systemsteuerung_Verwaltung_Leistung = TrayCreateItem("Leistung", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_leistung")

;   Lokale Sicherheitsrichtlinie
$Systemsteuerung_Verwaltung_secpol = TrayCreateItem("Lokale Sicherheitsrichtlinie", $Systemsteuerung_Verwaltung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie")

;  Windows-Firewall
$Systemsteuerung_Firewall = TrayCreateItem("Windows-Firewall", $Systemsteuerung)
TrayItemSetOnEvent(-1, "_open_systemsteuerung_windowsfirewall")
; ----------------------------------------------------------------------------

TrayCreateItem("")

; Arbeitsplatz
$Explorer	= TrayCreateMenu("Arbeitsplatz")

; Papierkorb leeren
$Papierkorb = TrayCreateItem("Papierkorb leeren", $Explorer)
TrayItemSetOnEvent(-1, "_papierkorbleeren")

TrayCreateItem("", $Explorer)

; Laufwerke
$var = DriveGetDrive( "all" )

If NOT @error Then
;	MsgBox(4096,"", "Found " & $var[0] & " drives")
	For $i = 1 to $var[0]
;		$name = DriveGetLabel($var[$i])
		$Laufwerke = TrayCreateItem($var[$i], $Explorer)
;		MsgBox(4096,"Drive " & $i, $var[$i])
	Next
EndIf

;GUICtrlSetOnEvent($laufwerke, "_open")

TrayCreateItem("")

; Credits
$Credits = TrayCreateItem("Credits")
TrayItemSetOnEvent(-1, "_credits")

TrayCreateItem("")

; Beenden
$Exit = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "_close")
; ----------------------------------------------------------------------------

TraySetState()

While 1
	Sleep(500)
WEnd
; ============================================================================

; ----------------------------------------
; Funktionen
; ----------------------------------------

; Eigene Dateien
Func _dateien()
	
	_RunDOS("start ::{450D8FBA-AD25-11D0-98A8-0800361B1103}")
	
EndFunc   ;==>_dateien
; ----------------------------------------------------------------------------

; ----------------------------------------
; Programme
; ----------------------------------------
; Programme
;  Brennen
;   Nero 7
;  E-Mail
;   Mozilla Thunderbird
;  Grafik
;  Internet
;   Internet Explorer
;   Mozilla Firefox
;  Multimedia
;   Windows Media Player
;  Office
;   Microsoft Access 2003
;   Microsoft Office Excel 2003
;   Microsoft Office FrontPage 2003
;   Microsoft Office InfoPath 2003
;   Microsoft Office Outlook 2003
;   Microsoft Office PowerPoint 2003
;   Microsoft Office Publisher 2003
;   Microsoft Office Word 2003
;   Adobe Reader
;  Sicherheit
;  System
;   Editor
;   Eingabeaufforderung
;   Registrierungs-Editor
;   Systemwiederherstellung
;   Windows Update
;  Tools
;  	AutoIt3
;  	 AutoIt Window Info
;  	 Compile Script to .exe
;  	 Run Script
;   Windows XP Key Finder

; Programme
;  Brennen
;   Nero 7
Func _open_programme_brennen_nero7()
	
	MsgBox(320, "Nero 7", "Nero 7 ist momentan nicht vorhanden.")
	
EndFunc   ;==>_open_programme_brennen_nero7

;  E-Mail
;   Mozilla Thunderbird
Func _programme_email_mozillathunderbird()
	
	Run(@ProgramFilesDir & "\Mozilla Thunderbird\thunderbird.exe")
	
EndFunc   ;==>_thunderbird

;  Grafik

;  Internet
;   Internet Explorer
Func _open_programme_internet_internetexplorer()
	
	_RunDOS("start IEXPLORE.EXE")
	
EndFunc   ;==>_open_programme_internet_internetexplorer

;   Mozilla Firefox
Func _programme_internet_mozillafirefox()
	
	Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe")
	
EndFunc   ;==>_programme_internet_mozillafirefox

;  Multimedia
;   Windows Media Player
Func _open_programme_multimedia_windowsmediaplayer()
	
	_RunDOS("start wmplayer.exe")
	
EndFunc   ;==>_open_programme_multimedia_windowsmediaplayer

;  Office
;   Microsoft Access 2003
Func _open_programme_office_msofficeaccess()
	
	Run($Target_MSOffice_Access & "\MSACCESS.EXE")
	
EndFunc   ;==>_open_programme_office_msofficeaccess

;   Microsoft Office Excel 2003
Func _open_programme_office_msofficeexcel()
	
	Run($Target_MSOffice_Excel & "\EXCEL.EXE")
	
EndFunc   ;==>_open_programme_office_msofficeexcel

;   Microsoft Office FrontPage 2003
Func _open_programme_office_msofficefrontpage()
	
	Run($Target_MSOffice_FrontPage & "\FRONTPG.EXE")
	
EndFunc   ;==>_open_programme_office_msofficefrontpage

;   Microsoft Office InfoPath 2003
Func _open_programme_office_msofficeinfopath()
	
	Run($Target_MSOffice_InfoPath & "\INFOPATH.EXE")
	
EndFunc   ;==>_open_programme_office_msofficeinfopath

;   Microsoft Office Outlook 2003
Func _open_programme_office_msofficeoutlook()
	
	Run($Target_MSOffice_Outlook & "\OUTLOOK.EXE")
	
EndFunc   ;==>_open_programme_office_msofficeoutlook

;   Microsoft Office PowerPoint 2003
Func _open_programme_office_msofficepowerpoint()
	
	Run($Target_MSOffice_PowerPoint & "\POWERPNT.EXE")
	
EndFunc   ;==>_open_programme_office_msofficepowerpoint

;   Microsoft Office Publisher 2003
Func _open_programme_office_msofficepublisher()
	
	Run($Target_MSOffice_Publisher & "\MSPUB.EXE")
	
EndFunc   ;==>_open_programme_office_msofficepublisher

;   Microsoft Office Word 2003
Func _open_programme_office_msofficeword()
	
	Run($Target_MSOffice_Word & "\WINWORD.EXE")
	
EndFunc   ;==>_open_programme_office_msofficeword

;   Adobe Reader
Func _open_programme_office_adobereader()
	
	Run($target_reader & "\Reader\AcroRd32.exe")
	
EndFunc   ;==>_open_programme_office_adobereader

;  Sicherheit

;  System
;   Editor
Func _open_programme_system_editor()
	
	_RunDOS("start NOTEPAD.EXE")
	
EndFunc   ;==>_open_programme_system_editor

;   Eingabeaufforderung
Func _open_programme_system_eingabeaufforderung()
	
	_RunDOS("start cmd.exe")
	
EndFunc   ;==>_open_programme_system_eingabeaufforderung

;   Registrierungs-Editor
Func _open_programme_system_registrierungseditor()
	
	_RunDOS("start regedit.exe")
	
EndFunc   ;==>_open_programme_system_registrierungseditor

;   Systemwiederherstellung
Func _open_programme_system_systemwiederherstellung()
	
	_RunDOS("start rstrui.exe")
	
EndFunc   ;==>_open_programme_system_systemwiederherstellung

;   Windows Update
func _open_programme_system_windowsupdate()
	
	_RunDOS("start wupdmgr.exe")
	
EndFunc   ;==>_open_programme_system_windowsupdate

;  Tools
;   AutoIT
;    AutoIt Window Info
Func _open_programme_tools_autoit_autoitwindowinfo()
	
	Run(@ProgramFilesDir & "\AutoIt3\Au3Info.exe")
	
EndFunc   ;==>_open_programme_tools_autoit_autoitwindowinfo

;    Compile Script to .exe
Func _open_programme_tools_autoit_compilescripttoexe()
	
	Run(@ProgramFilesDir & "\AutoIt3\Aut2Exe\Aut2Exe.exe")
	
EndFunc   ;==>_open_programme_tools_autoit_compilescripttoexe

;    Run Script
Func _open_programme_tools_autoit_runscript()
	
	Run(@ProgramFilesDir & "\AutoIt3\AutoIt3.exe")
	
EndFunc   ;==>_open_programme_tools_autoit_runscript

;   Windows XP Key Finder
Func _open_programme_tools_windowsxpkeyfinder()
	
	Run(@ScriptDir & "\WindowsXP_Key-Finder.exe")
	
EndFunc   ;==>_open_programme_tools_windowsxpkeyfinder
; ----------------------------------------------------------------------------

; ----------------------------------------
; Systemsteuerung
; ----------------------------------------
; Systemsteuerung
Func _open_systemsteuerung()
	
	_RunDOS("start control.exe")
	
EndFunc   ;==>_systemsteuerung

;  Anzeige
Func _open_systemsteuerung_anzeige()
	
	_RunDOS("start control.exe desk.cpl")
	
EndFunc   ;==>_open_systemsteuerung_anzeige

;  Automatische Updates
Func _open_systemsteuerung_automatischeupdates()
	
	_RunDOS("start control.exe wuaucpl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_automatischeupdates

;  Benutzerkonten
Func _open_systemsteuerung_benutzerkonten()
	
	_RunDOS("start control.exe nusrmgr.cpl")
	
EndFunc   ;==>_open_systemsteuerung_benutzerkonten

;  Datum und Uhrzeit
Func _open_systemsteuerung_datumunduhrzeit()
	
	_RunDOS("start control.exe timedate.cpl")
	
EndFunc   ;==>_open_systemsteuerung_datumunduhrzeit

;  Drahtlosnetzwerkinstallation
Func _open_systemsteuerung_drahtlosnetzwerkinstallation()
	
	_RunDOS("start rundll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW")
	
EndFunc   ;==>_open_systemsteuerung_drahtlosnetzwerkinstallation

;  Drucker und Faxgeräte
Func _open_systemsteuerung_druckerundfaxgeraete()
	
	_RunDOS("start ::{2227A280-3AEA-1069-A2DE-08002B30309D}")
	
EndFunc   ;==>_open_systemsteuerung_druckerundfaxgeraete

;  Eingabehilfe
Func _open_systemsteuerung_eingabehilfe()
	
	_RunDOS("start control.exe access.cpl")
	
EndFunc   ;==>_open_systemsteuerung_eingabehilfe

;  Energieoptionen
Func _open_systemsteuerung_energieoptionen()
	
	_RunDOS("start control.exe powercfg.cpl")
	
EndFunc   ;==>_open_systemsteuerung_energieoptionen

;  Gamecontroller
Func _open_systemsteuerung_gamecontroller()
	
	_RunDOS("start control.exe joy.cpl")
	
EndFunc   ;==>_open_systemsteuerung_gamecontroller

;  Geplante Tasks
Func _open_systemsteuerung_geplantetasks()
	
	MsgBox(320, "Geplante Tasks", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_geplantetasks

;  Hardware
Func _open_systemsteuerung_hardware()
	
	_RunDOS("start control.exe hdwwiz.cpl")
	
EndFunc   ;==>_open_systemsteuerung_hardware

;  Internetoptionen
Func _open_systemsteuerung_internetoptionen()
	
	_RunDOS("start control.exe inetcpl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_internetoptionen

;  Mail
Func _open_systemsteuerung_mail()
	
	MsgBox(320, "Mail", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_mail

;  Maus
Func _open_systemsteuerung_maus()
	
	_RunDOS("start control.exe main.cpl")
	
EndFunc   ;==>_open_systemsteuerung_maus

;  Netzwerkinstallations-Assistent
Func _open_systemsteuerung_netzwerkinstallationsassistent()
	
	_RunDOS("start control.exe netsetup.cpl")
	
EndFunc   ;==>_open_systemsteuerung_netzwerkinstallationsassistent

;  Netzwerkverbindungen
Func _open_systemsteuerung_netzwerkverbindungen()
	
	_RunDOS("start control.exe ncpa.cpl")
	
EndFunc   ;==>_open_systemsteuerung_netzwerkverbindungen

;  Ordneroptionen
Func _open_systemsteuerung_ordneroptionen()
	
	MsgBox(320, "Ordneroptionen", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_ordneroptionen

;  Regions- und Sprachoptionen
Func _open_systemsteuerung_regionsundsprachoptionen()
	
	_RunDOS("start control.exe intl.cpl")
	
EndFunc   ;==>_open_systemsteuerung_regionsundsprachoptionen

;  Scanner und Kameras
Func _open_systemsteuerung_scannerundkameras()
	
	MsgBox(320, "Scanner und Kameras", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_scannerundkameras

;  Schriftarten
Func _open_systemsteuerung_schriftarten()
	
	_RunDOS("start explorer.exe C:\Windows\Fonts")
	
EndFunc   ;==>_open_systemsteuerung_schriftarten

;  Sicherheitscenter
Func _open_systemsteuerung_sicherheitscenter()
	
	_RunDOS("start control.exe wscui.cpl")
	
EndFunc   ;==>_open_systemsteuerung_sicherheitscenter

;  Software
Func _open_systemsteuerung_software()
	
	_RunDOS("start control.exe appwiz.cpl")
	
EndFunc   ;==>_open_systemsteuerung_software

;  Sounds und Audiogeräte
Func _open_systemsteuerung_soundundaudiogeraete()
	
	_RunDOS("start control.exe mmsys.cpl")
	
EndFunc   ;==>_open_systemsteuerung_soundundaudiogeraete

;  Sprachein-/ausgabe
Func _open_systemsteuerung_spracheinausgabe()
	
	MsgBox(320, "Sprachein-/ausgabe", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_spracheinausgabe

;  System
Func _open_systemsteuerung_system()
	
	_RunDOS("start control.exe sysdm.cpl")
	
EndFunc   ;==>_open_systemsteuerung_system

;  Taskleiste und Startmenü
Func _open_systemsteuerung_taskleisteundstartmenue()
	
	MsgBox(320, "Taskleiste und Startmenü", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_taskleisteundstartmenue

;  Tastatur
Func _open_systemsteuerung_tastatur()
	
	MsgBox(320, "Tastatur", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_tastatur

;  Telefon- und Modemoptionen
Func _open_systemsteuerung_telefonundmodemoptionen()
	
	_RunDOS("start control.exe telephon.cpl")
	
EndFunc   ;==>_open_systemsteuerung_telefon

;  Verwaltung

;   Computerverwaltung
Func _open_systemsteuerung_verwaltung_computerverwaltung()
	
	_RunDOS("start compmgmt.msc")
	
EndFunc   ;==>_computer

;   Datenquellen (ODBC)
Func _open_systemsteuerung_verwaltung_datenquellen()
	
	_RunDOS("start control.exe odbccp32.cpl")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_datenquellen

;   Dienste
Func _open_systemsteuerung_verwaltung_dienste()
	
	_RunDOS("start services.msc")
	
Endfunc   ;==>_open_systemsteuerung_verwaltung_dienste

;   Ereignisanzeige
Func _open_systemsteuerung_verwaltung_ereignisanzeige()
	
	_RunDOS("start eventvwr.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_ereignisanzeige

;   Komponentendienste
Func _open_systemsteuerung_verwaltung_komponentendienste()
	
	MsgBox(320, "Komponentendienste", "Bitte verwenden Sie die Systemsteuerungs-Schaltfläche")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_komponentendienste

;   Leistung
Func _open_systemsteuerung_verwaltung_leistung()
	
	_RunDOS("start perfmon.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_leistung

;   Lokale Sicherheitsrichtlinie
Func _open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie()
	
	_RunDOS("start secpol.msc")
	
EndFunc   ;==>_open_systemsteuerung_verwaltung_lokalesicherheitsrichtlinie

;  Windows-Firewall
Func _open_systemsteuerung_windowsfirewall()
	
	_RunDOS("start control.exe firewall.cpl")
	
EndFunc   ;==>_open_systemsteuerung_windowsfirewall
; ----------------------------------------------------------------------------

; ----------------------------------------
; Arbeitsplatz
; ----------------------------------------

; Papierkorb leeren
Func _papierkorbleeren()
	
	FileRecycleEmpty("")
	
EndFunc   ;==>_papierkorbleeren
; ----------------------------------------------------------------------------

Func _credits()
	
	MsgBox(320, "Credits", "Programmname: " & $PROGRAMM_NAME & @CRLF & "Version: " & $PROGRAMM_VERSION & @CRLF & @CRLF & @CRLF & "Idee & Programmierung: Manuel Kübler")
	
EndFunc   ;==>_credits


Func _close()
	
	Exit
	
EndFunc   ;==>_close








; ----------------------------------------
; ...
; ----------------------------------------