Ich programmier gerade an einem kleinen Tool. Nun wollte ich fragen ob mir jemand helfen kann, das das Tool auf den Arbeitsplatz zugriff hat
Toollbox
-
DJMANU -
19. August 2006 um 13:37 -
Geschlossen
-
-
-
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
-
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
-
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 -
Dann schreib mir mal auf welche
-
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 tippich kann es mir aber auch selber machen
hatt den sonst keiner Wünsche und anregungen?
-
Hast du Lust die Funktion CD-Laufwerke oeffnen zu machen
-
- Offizieller Beitrag
@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? -
Werd ich machen wenn ich wieder in Deutschland bin
-
- Offizieller Beitrag
-
Hier ist das Script:
Spoiler anzeigen
Code
Alles anzeigen; ---------------------------------------------------------------------------- ; ; 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
Edit peethebee: code und spoiler
-
bitte benutze [ code ] und [ spoiler ]
-
Danke.
Wer hat Zeit und Lust, das Arbeitsplatz-Menü zu programmieren
-
- Offizieller Beitrag
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 -
Hast du Lust mitzuprogrammieren
ZitatOriginal 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. ScreenshotKannst du mir mal das Skript von deinem Programm schicken
-
Falls Ihr Ideen habt, könnt Ihr sie hier eintragen
-
Wegen dem Arbeitsplatz , das ist einfach ne Symbolleiste...
Mach mal Rechtsklick auf die Taskleiste und geh auf Symbolleisten -> Neue Symbolleiste -> Arbeitsplatz -> Ok -
- Offizieller Beitrag
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
-
Wer hat Zeit und Lust das Arbeitsplatzmenü zu programmieren
peethebee: Siehe: Toollbox