Hey, und zwar habe ich mir überlegt ein kleines Programm zu schreiben, welches hilft, Dateien zu löschen. Hier mein Script:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $Zahler1
Dim $Zahler2
Dim $Zahler3
Dim $Zahler4
Dim $Zahler5
Dim $Zahler6
Dim $Zahler7
Dim $Zahler8
Dim $Zahler9
Dim $Zahler10
#Region ### START Koda GUI section ### Form=C:\Users\User\Desktop\Simple Cleaner.kxf
$SimpleCleaner = GUICreate("Simple Cleaner", 390, 493, 275, 166)
GUISetIcon("S-ico.ico")
$Checkbox1 = GUICtrlCreateCheckbox("Coockies löschen", 46, 48, 297, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Lokale Verlauf löschen", 46, 80, 297, 33)
$Checkbox3 = GUICtrlCreateCheckbox("Temporare Internet Dateien löschen", 46, 112, 297, 33)
$Checkbox4 = GUICtrlCreateCheckbox("Temp- Ordner leeren", 46, 144, 297, 33)
$Checkbox5 = GUICtrlCreateCheckbox("Recent- Ordner leeren", 46, 176, 297, 33)
$Checkbox6 = GUICtrlCreateCheckbox("Microsoft Office Dateien Löschen", 46, 208, 297, 33)
$Checkbox7 = GUICtrlCreateCheckbox("Installation Informationen", 46, 240, 297, 33)
$Checkbox8 = GUICtrlCreateCheckbox("Windows Temp- Ordner leeren", 46, 272, 297, 33)
$Checkbox9 = GUICtrlCreateCheckbox("--- NOCH NICHT BELEGT ---", 46, 304, 297, 33)
$Button1 = GUICtrlCreateButton("Markiertes Löschen", 134, 352, 121, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(26, 440, 337, 33)
$Label1 = GUICtrlCreateLabel("Simple Cleaner", 119, 16, 151, 33)
GUICtrlSetFont(-1, 18, 800, 2, "Script MT Bold")
$Label2 = GUICtrlCreateLabel("Bitte zu löschende Dateien auswählen.", 23, 408, 343, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
if bitand(guictrlread($checkbox1),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Cookies")
GUICtrlSetData ( $Label2, "Coockies löschen" )
ProgressSet (10)
else
endif
if bitand(guictrlread($checkbox2),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Lokale Einstellungen\Verlauf")
GUICtrlSetData ( $Label2, "Lokale Verlauf löschen" )
ProgressSet (20)
else
endif
if bitand(guictrlread($checkbox3),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Lokale Einstellungen\Temporary Internet Files")
GUICtrlSetData ( $Label2, "Temporare Internet Dateien löschen" )
ProgressSet (30)
else
endif
if bitand(guictrlread($checkbox4),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Lokale Einstellungen\Temp")
GUICtrlSetData ( $Label2, "Temp- Ordner leeren" )
ProgressSet (40)
else
endif
if bitand(guictrlread($checkbox5),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Recent")
GUICtrlSetData ( $Label2, "Recent- Ordner leeren" )
ProgressSet (50)
else
endif
if bitand(guictrlread($checkbox6),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Dokumente und Einstellungen\administrator\Anwendungsdaten\Microsoft\Office\Zuletzt verwendet")
GUICtrlSetData ( $Label2, "Microsoft Office Dateien Löschen" )
ProgressSet (60)
else
endif
if bitand(guictrlread($checkbox7),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Programme\InstallShield Installation Information")
GUICtrlSetData ( $Label2, "Installation Informationen" )
ProgressSet (70)
else
endif
if bitand(guictrlread($checkbox8),$GUI_CHECKED) then
_RunDOS("RD /s /q C:\Windows\Temp")
GUICtrlSetData ( $Label2, "Windows Temp- Ordner leeren" )
ProgressSet (80)
else
endif
if bitand(guictrlread($checkbox9),$GUI_CHECKED) then
_RunDOS("BEFEHL");
;~ GUICtrlSetData ( $Label2, "Coockies löschen" )
ProgressSet (90)
ProgressSet (100)
else
endif
if bitand(guictrlread($checkbox1),$GUI_UNCHECKED) then $Zahler1 = 1
if bitand(guictrlread($checkbox2),$GUI_UNCHECKED) then $Zahler2 = 1
if bitand(guictrlread($checkbox3),$GUI_UNCHECKED) then $Zahler3 = 1
if bitand(guictrlread($checkbox4),$GUI_UNCHECKED) then $Zahler4 = 1
if bitand(guictrlread($checkbox5),$GUI_UNCHECKED) then $Zahler5 = 1
if bitand(guictrlread($checkbox6),$GUI_UNCHECKED) then $Zahler6 = 1
if bitand(guictrlread($checkbox7),$GUI_UNCHECKED) then $Zahler7 = 1
if bitand(guictrlread($checkbox8),$GUI_UNCHECKED) then $Zahler8 = 1
if bitand(guictrlread($checkbox9),$GUI_UNCHECKED) then $Zahler9 = 1
$Zahler10 = $Zahler1 + $Zahler2 + $Zahler3 + $Zahler4 + $Zahler5 + $Zahler6 + $Zahler7 + $Zahler8 + $Zahler9
if $Zahler10 = 9 then GUICtrlSetData ( $Label2, "ES MUSS MINDESTENS EINE OPTION ANGEKLICKT SEIN" )
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]EndSwitch
WEnd
WEnd
Ich bekomme einen Error zurück. Hat das damit zu tun, das ich den Dos befehl falsch formuliert habe, oder das es ihn unter win7 nicht gibt. Ich habe die befehle in eine Bat datei auf einem xp rechner versucht. Und er hat erfolgreich alles gelöscht. Nun wollte ich es eben etwas schöner gestalten.
mfg Tim