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