Toollbox

DJMANU

Ich programmier gerade an einem kleinen Tool. Nun wollte ich fragen ob mir jemand helfen kann, das das Tool auf den Arbeitsplatz zugriff hat

Daniel W.

Code

DriveGetDrive("ALL")

Eventuell hilft dir der Befehl was.

DJMANU

Es hilft mir schon was, aber die Laufwerke müssen im Menü angezeigt werden.

Ich hab die Toolbox noch ein bisschen umgeändert und jetzt ist sie noch stabiler

DJMANU

Die erste Version ist nun fertig. Ihr könnt sie in der Datenbank herunterladen

Falls ihr noch Wünsche habt, könnt Ihr hier stellen. auch Programmwünsche, die in der nächsten Version drin sind

Es haben schon sehr viele Leute das Programm heruntergeladen, nun möchte ich aber auch wissen wie euch das Programm gefallen hat, was man besser machen, und eure Ideen sind mir sehr wichtig. Es werden alle Ideen von euch in das Programm übernommen

muh_kuh

hallo
ich finde ein nettes Programm
leider bin ich schon zuseha an PC gewöhnt um es wirklich zu nutzen
vileich können da einige sach rein die sont nicht so schnell zu ereich sind

DJMANU

Dann schreib mir mal auf welche

muh_kuh

hi
ich habe für mich fetgeslt wenn es praktisch wäre wenn er die CDs laufwerke öffen würde
weiter sollte ich einige tool einstellen können (ini) welche als andere USer laufen tipp

ich kann es mir aber auch selber machen

hatt den sonst keiner Wünsche und anregungen?

DJMANU

Hast du Lust die Funktion CD-Laufwerke oeffnen zu machen

**BugFix**

@DJMANU

Hi, nochmals eine Bitte:
Nicht nur den Code als Datei anhängen, sondern auch im Thread zum Anschauen hinterlegen.
Es gibt vieles, dass mich interessiert. Aber ich möchte nicht erst alles herunterladen um es mir anzuschauen. Einfacher ist es, wenn ich mir den Code im Thread ansehe und dann sagen kann: Yeah, das isses! - Das ist besser als die eigene Lösung oder so.
Also sei doch in Zukunft so nett - ja?

DJMANU

Werd ich machen wenn ich wieder in Deutschland bin

**BugFix**

muh_kuh

Zum Thema CD-Laufwerke öffnen schau mal in den Thread.

Da hast du eine recht komfortable Lösung.

DJMANU

Hier ist das Script:

Spoiler anzeigen

Code

; ----------------------------------------------------------------------------
;
; AutoIt-Version: v3.2.0.1
;
; Programmname:   Toolbox
; Version:        0.20
;
; Autor:          Manuel Kübler
; Mail:           [EMAIL]mk-software@gmx.de[/EMAIL]
;
; 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

Alles anzeigen

Edit peethebee: code und spoiler

muh_kuh

bitte benutze [ code ] und [ spoiler ]

DJMANU

Danke.

Wer hat Zeit und Lust, das Arbeitsplatz-Menü zu programmieren

**BugFix**

Hi DJMANU,

du mußt ja wirklich viel Zeit haben

Dein Proggi ist nicht schlecht. Doch da ich sowieso bewegungsresistent (manche sagen faul dazu) bin, habe ich mein Windoof schon so eingerichtet, dass ich jeden Punkt der Systemsteuerung mit 2 Mausklicks öffnen kann:
In der Taskleiste <Symbolleiste> <Neu> "Arbeitsplatz" . Dann hast du direkten Zugriff (auf alle Arbeitsplatzelemente).
s. Screenshot

DJMANU

Hast du Lust mitzuprogrammieren

Zitat

Original von BugFix
Hi DJMANU,

du mußt ja wirklich viel Zeit haben

Dein Proggi ist nicht schlecht. Doch da ich sowieso bewegungsresistent (manche sagen faul dazu) bin, habe ich mein Windoof schon so eingerichtet, dass ich jeden Punkt der Systemsteuerung mit 2 Mausklicks öffnen kann:
In der Taskleiste <Symbolleiste> <Neu> "Arbeitsplatz" . Dann hast du direkten Zugriff (auf alle Arbeitsplatzelemente).
s. Screenshot

Kannst du mir mal das Skript von deinem Programm schicken

DJMANU

Falls Ihr Ideen habt, könnt Ihr sie hier eintragen

Daniel W.

Wegen dem Arbeitsplatz , das ist einfach ne Symbolleiste...
Mach mal Rechtsklick auf die Taskleiste und geh auf Symbolleisten -> Neue Symbolleiste -> Arbeitsplatz -> Ok

**GtaSpider**

Hallo!

@DJMANU und alle andere Spam poster:
Bitte keine doppelpost! Benutzt das edit ich will an zweiter positsion bleiben [Blockierte Grafik: http://mitglied.lycos.de/mankanazero/Dia2/smilys/hammer.gif]

Ausserdem ist das unfair für alle anderen "Edit tasten benutzer"!

Fazit: Bitte immer editieren anstatt zu krepieren =) (verzweifelt auf ner suche nach nem reim auf editieren )

Mfg Spider

DJMANU

Wer hat Zeit und Lust das Arbeitsplatzmenü zu programmieren

peethebee: Siehe: Toollbox