Hi das ist mein 1rstes Proyekt also nicht so streng sein Also zum Thema :
Hier stelle ich euch mein Skript Desktop Favorites vohr !
Die Funktionen sind selbst erklärend und stehen auch unter Info im Skript .
Skript :
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Desktop Favorites Version: 4.0
Author: FunH@cker
Script Function:
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <File.au3>
#include <Array.au3>
Opt("TrayOnEventMode", 1)
Dim $szDrive, $szDir, $szFName, $szExt, $array[1]
Dim $file
;Global $ini = @ScriptDir & "C:\Save.ini"
Global $ini = "C:\Save.ini"
Opt("TrayMenuMode", 1)
$Progs = TrayCreateMenu("Programme")
$Hinzu = TrayCreateItem("Hinzufügen")
TrayItemSetOnEvent(-1, "_add")
TrayCreateItem("")
$save = TrayCreateItem("Speichern")
TrayItemSetOnEvent($save, "_save")
TraySetState()
$open = TrayCreateItem("Wiederherstellen")
TrayItemSetOnEvent(-1, "_Restore")
$saveini =TrayCreateItem("Ini Löschen")
TrayItemSetOnEvent($saveini,"_SaveIni")
TraySetState()
$Autostart = TrayCreateMenu("AutoStart")
$AutoStarton = TrayCreateItem("AutoStart ON", $Autostart)
TrayItemSetOnEvent($AutoStarton, "Auto_on")
TraySetState()
$AutostartOff = TrayCreateItem("AutoStart Off", $Autostart)
TrayItemSetOnEvent($AutostartOff, "Auto_off")
TraySetState()
$info = TrayCreateItem("Info")
TrayItemSetOnEvent($info, "_info")
TraySetState()
$exititem = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1, "_Exit")
TraySetState()
While 1
Sleep(100)
WEnd
Func _add()
$file = FileOpenDialog("Choose EmbedFile", @DesktopDir, "All Files (*.*)")
If $file <> "" Then
$split = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
$item = TrayCreateItem($split[3], $Progs)
_ArrayAdd($array, $file)
TrayItemSetOnEvent(-1, "_Run")
EndIf
EndFunc ;==>_add
Func _Run()
ShellExecute($array[@TRAY_ID - $exititem])
EndFunc ;==>_Run
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _save()
For $i = 1 To UBound($array) - 1
IniWrite($ini, "Programme", $array[$i], "[0]")
Next
FileMove("Save.ini", "C:\")
EndFunc ;==>_save
Func _Restore()
$Section = IniReadSection($ini, "Programme")
If IsArray($Section) Then
ReDim $array[1]
For $i = 1 To $Section[0][0]
_ArrayAdd($array, $Section[$i][0])
$split = _PathSplit($Section[$i][0], $szDrive, $szDir, $szFName, $szExt)
$item = TrayCreateItem($split[3], $Progs)
TrayItemSetOnEvent(-1, "_Run")
Next
EndIf
EndFunc ;==>_Restore
[/autoit] [autoit][/autoit] [autoit]Func Auto_on()
RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', "Desktop Favorites 4.0", 'REG_SZ', @ScriptFullPath)
FileCreateShortcut(@ScriptFullPath, "Desktop Favorites 4.0", @DesktopDir)
FileMove(@ScriptFullPath, "C:\")
EndFunc ;==>Auto_on
Func Auto_off()
RegDelete('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', "Desktop Favorites 4.0")
FileDelete("C:\Tool Erweiterun 4.0.0.0.exe" & "C:\Desktop Favorites 4.0.exe")
EndFunc ;==>Auto_off
Func _info()
MsgBox(0,"Info [Made By FunH@cker]","Desktop Favorites 4.0 : 1:Pogramme-Zeigt die pogramme an die Sie beim Hinzufügen ausgesucht haben- 2:Hinzufügen-Fügt die Pogramme hinzu die Sie dan Auswählen können- 3:Speichern-Speichert die Pogram Liste- 4:AutoStart-Schreibt sich in die registry und verschiebt sich in das laufwerk C:\ wobei es eine verknüpfung auf dem Desktop hinterläst" )
EndFunc
Func _SaveIni()
FileDelete("C:\save.ini")
EndFunc
</Array>und hir die EXE :Bitte um Bugs und Feedback !-----------------------------------------------------------
Edit : So weil es um das Skript geht und nicht um meine Rechtschreibung ,habe ich es noch ma überarbeitet