Schredder

ICE Tec 82

Hallo, ich möchte ein Programm vorstellen! Schredder.exe ist ein Programm wo ihr Dateien und Ordner sicher löschen könnt. Die Dateien und Ordner werden uberschieben und dann geloscht.

Ich beantworte aber keine Fragen und so Sachen, ich habe Aphasie durch Schlaganfall!
Über Änderungsvorschläge würde ich mich schon freuen!

AutoIt: Schredder.au3

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\@HomeDrive\Meine Apps\tools\gfx\Schredder.ico
#AutoIt3Wrapper_Outfile=Schredder.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Comment=Schredder
#AutoIt3Wrapper_Res_Description=Schredder
#AutoIt3Wrapper_Res_Fileversion=1.1.0.3
#AutoIt3Wrapper_Res_LegalCopyright=© ICE Tec. All rights reserved.
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=CompanyName|ICE Tec
#AutoIt3Wrapper_Res_Field=OriginalFileName|Schredder.exe
#AutoIt3Wrapper_Res_Field=ProductName|Schredder
#AutoIt3Wrapper_Res_Field=ProductVersion|1.1.0.3
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <Array.au3>
#include <Constants.au3>
#include <_SecureDelete.au3>
#include <GUIConstants.au3>
#include "ModernMenuRaw.au3" ; Only unknown constants are declared here


Opt("TrayMenuMode", 1)


Global $option, $aboutitem, $exititem, $i, $autorun, $SecureDirectoryDelete, $result, $var, $msg, $SecureFileDelete
Global $SicherLeochen, $fDelete, $DoD_E_SicherLeochen, $DoD_E_SecureDirectoryDelete, $DoD_E_SecureFileDelete
Global Const $array[7] = [0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, "SicherGelöscht"]
Global Const $EnglischArray[7] = [0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, "SecureDeleted"]
Global Const $path = @ScriptFullPath
Global Const $reg1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run"
Global Const $reg2 = "Schredder"
Global Const $OSLang = StringInStr("0407 0807 0c07 1007 1407", @OSLang)


; *** Create the tray icon ***
$nTrayIcon1 = _TrayIconCreate("Schredder", @ScriptDir & "\Schredder.exe", 99)
_TrayIconSetClick(-1, 2)
; *** Create the tray context menu ***
$nTrayMenu1 = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)
$nSideItem3 = _CreateSideMenu($nTrayMenu1)
$aboutitem = _TrayCreateItem("Schredder") ; is the same like _TrayCreateMenu("Menu", -1) or _TrayCreateMenu("Menu", $nTrayMenu1)
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$option = _TrayCreateMenu("Optionen")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0) ; Force changing to ownerdrawn sometimes needed, i.e. in mixed menu
$DoD_E_SicherLeochen = _TrayCreateMenu("Mit DoD E überschreiben")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$SicherLeochen = _TrayCreateMenu("7 mal überschreiben")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$TrayExit = _TrayCreateItem("Beenden")
; *** Sub menu items ***
$TrayAdvanced = _TrayCreateItem("Mit Windows starten", $option, -1, 0)
$DoD_E_SecureDirectoryDelete = _TrayCreateItem("Ordner sicher Löschen", $DoD_E_SicherLeochen)
_TrayCreateItem("", $DoD_E_SicherLeochen)
_TrayItemSetIcon(-1, "", 0)
$DoD_E_SecureFileDelete = _TrayCreateItem("Datei sicher Löschen", $DoD_E_SicherLeochen)
$SecureDirectoryDelete = _TrayCreateItem("Ordner sicher Löschen", $SicherLeochen)
_TrayCreateItem("", $SicherLeochen)
_TrayItemSetIcon(-1, "", 0)
$SecureFileDelete = _TrayCreateItem("Datei sicher Löschen", $SicherLeochen)
autostartcheck()
SetBlueTrayColors()
$arDrives = DriveGetDrive("FIXED")
; icon
_TrayItemSetIcon($aboutitem, "shell32.dll", 1001)
_TrayItemSetIcon($option, "shell32.dll", 177)
_TrayItemSetIcon($TrayAdvanced, "", 0)
_TrayItemSetIcon($DoD_E_SicherLeochen, @ScriptDir & "\Schredder.exe", 99)
_TrayItemSetIcon($DoD_E_SecureDirectoryDelete, "shell32.dll", 4)
_TrayItemSetIcon($DoD_E_SecureFileDelete, "shell32.dll", 185)
_TrayItemSetIcon($SicherLeochen, @ScriptDir & "\Schredder.exe", 99)
_TrayItemSetIcon($SecureDirectoryDelete, "shell32.dll", 4)
_TrayItemSetIcon($SecureFileDelete, "shell32.dll", 185)
_TrayItemSetIcon($TrayExit, "shell32.dll", -28)
_TrayIconSetState() ; Show the tray icon


While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case $aboutitem
			GUICtrlSetState($aboutitem, $GUI_UNCHECKED)
			If $OSLang = 1 Then ;GERMAN
				MsgBox(8256, "Schredder", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                               Schredder v1.1.0.3 _ _                           Mit DoD E überschreiben oder 7 mal mit _                  0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, ´SicherGelöscht´ _                                                 überschreiben! _ _                    Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
			ElseIf $OSLang < 1 Then ;Englisch
				MsgBox(8256, "Shredder", StringReplace("           Why go you to High School, when you can go High to School _ _ _                                               Shredder v1.1.0.3 _ _                       Overwrite with DoD E or overwrite 7 times with _                     0x55, 0xAA, 0x92, 0x49, 0x24, 0xBB, 'SecureDeleted` _ _                    Copyrights: © ICE Technologie. All rights reserved. _                     Greetings from GERMANY (Singen am Hohentwiel)", "_", @CR))
			EndIf
		Case $TrayAdvanced
			If BitAND(GUICtrlRead($TrayAdvanced), $GUI_UNCHECKED) Then
				GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)
				autostart()
			Else
				GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)
				autostart()
			EndIf
		Case $DoD_E_SecureDirectoryDelete
			GUICtrlSetState($DoD_E_SecureDirectoryDelete, $GUI_UNCHECKED)
			DoD_E_OrdnersicherLeochen()
		Case $DoD_E_SecureFileDelete
			GUICtrlSetState($DoD_E_SecureFileDelete, $GUI_UNCHECKED)
			DoD_E_DateisicherLeochen()
		Case $SecureDirectoryDelete
			GUICtrlSetState($SecureDirectoryDelete, $GUI_UNCHECKED)
			OrdnersicherLeochen()
		Case $SecureFileDelete
			GUICtrlSetState($SecureFileDelete, $GUI_UNCHECKED)
			DateisicherLeochen()
		Case $TrayExit
			ExitLoop
	EndSwitch
WEnd


_TrayIconDelete($nTrayIcon1)
Exit


Func autostartcheck()
	RegRead($reg1, $reg2)
	If @error Then
		GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)
	Else
		GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)
	EndIf
EndFunc   ;==>autostartcheck


Func SetBlueTrayColors()
	_SetTrayBkColor(0xFFD8C0)
	_SetTrayIconBkColor(0xEE8877)
	_SetTrayIconBkGrdColor(0x703330)
	_SetTraySelectBkColor(0x662222)
	_SetTraySelectRectColor(0x4477AA)
	_SetTraySelectTextColor(0x66FFFF)
	_SetTrayTextColor(0x000000)
EndFunc   ;==>SetBlueTrayColors


Func autostart()
	RegRead($reg1, $reg2)
	If @error Then
		RegWrite($reg1, $reg2, "REG_SZ", $path)
	Else
		RegDelete($reg1, $reg2)
	EndIf
EndFunc   ;==>autostart


Func DoD_E_OrdnersicherLeochen()
	Local $sDir = FileSelectFolder("Ordner sicher Löchen", "", 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Ordner ausgewählt", 10)
	Else
		_SecureDirectoryDelete($sDir)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sDir & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sDir & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen des Verzeichnisses", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DoD_E_OrdnersicherLeochen


Func DoD_E_DateisicherLeochen()
	Local $sFile = FileOpenDialog("Datei sicher Löchen", @DesktopDir & "\", "Alle Dateien (*.*)", 1 + 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Datei ausgewählt", 10)
	Else
		_SecureFileDelete($sFile)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sFile & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sFile & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen der Datei", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DoD_E_DateisicherLeochen


Func OrdnersicherLeochen()
	Local $sDir = FileSelectFolder("Ordner sicher Löchen", "", 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Ordner ausgewählt", 10)
	Else
		_SecureDirectoryDelete($sDir, $array)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sDir & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sDir & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen des Verzeichnisses", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>OrdnersicherLeochen


Func DateisicherLeochen()
	Local $sFile = FileOpenDialog("Datei sicher Löchen", @DesktopDir & "\", "Alle Dateien (*.*)", 1 + 2)
	If @error Then
		MsgBox(48, "Schredder", @CRLF & "        Keine Datei ausgewählt", 10)
	Else
		_SecureFileDelete($sFile, $array)
		If @error = 1 Then
			MsgBox(16, "Schredder", $sFile & " existiert nicht", 10)
		ElseIf @error = 2 Then
			MsgBox(16, "Schredder", $sFile & " ist kein Verzeichnis", 10)
		ElseIf @error = 3 Then
			MsgBox(16, "Schredder", "Fehler beim Entfernen der Datei", 10)
		ElseIf @error = 4 Then
			MsgBox(16, "Schredder", "Fehler beim Benutzer-Array", 10)
		ElseIf @error = 5 Then
			MsgBox(16, "Schredder", "Fehler beim Zuweisen von Puffern", 10)
		ElseIf @error = 6 Then
			MsgBox(16, "Schredder", "Errors were encountered, but " & $fDelete & " was False for top level dir", 10)
		Else
			MsgBox(64, "Schredder", @CRLF & "     Fertig", 10)
		EndIf
	EndIf
EndFunc   ;==>DateisicherLeochen

Alles anzeigen

**Bitnugger**

Zitat von ICE Tec 82

#AutoIt3Wrapper_Icon=D:\@HomeDrive\Meine Apps\tools\gfx\Schredder.ico

Das kann unmöglich funktionieren!
Rein theoretisch... wenn man den Pfad auflöst, wäre das Icon bei mir hier zu finden: "D:\C:\Meine Apps\tools\gfx\Schredder.ico"
Praktisch kann das Icon aber niemals gefunden werden, weil dieser Pfad unmöglich exitieren kann!
Zudem sind in Direktiven und Include-Anweisungen keine Variablen oder Makros erlaubt, sondern nur absolute Pfade!
Richtig wäre - wenn sich das Icon im @ScriptDir befindet: #AutoIt3Wrapper_Icon=Schredder.ico

Wenn du dein Script an andere User weitergeben möchtest, solltest das Icon mit in deinem "Angebot" enthalten sein... denn die User hier im Forum können garantiert nicht auf dein HomeDrive zugreifen, um sich dort das Icon zu holen.

Im Anhang findest du ein ZIP-Archiv mit einer geänderten (kürzeren) Version... in der auch ein Programm-Icon enthalten ist.

PS: Wenn du es so wie ich in einem ZIP-Archiv anbietest, kann der User sich das Paket mit nur einen Download holen und hat auch alle Includes an benötigter Stelle.

Zudem solltest du größere Scripte in einen Spoiler packen. Der Mehrwert dabei ist, dass man sich dein Script ansehen kann, und bei Bedarf den Spoiler einfach wieder schließen kann.

Hier ein Beispiel:

Ich bin ein Spoiler

Zeile 1
Zeile 2
Zeile 3

Zeile ...