$yesno=msgbox(36,"清除系统垃圾文件","是否要进行清除系统垃圾文件?")
if $yesno=6 then
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemRoot%\*.bmp","", @SW_HIDE);Windows自带的墙纸.
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemRoot%\Web\Wallpaper\*.*","", @SW_HIDE);Windows自带的墙纸.
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemRoot%\*.scr","", @SW_HIDE);Windows自带的屏幕保护程序.
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemRoot%\Temp\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemRoot%\Temp\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /q /a %SysTemRoot%\*.txt","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*.tmp","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*._mp","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*.log","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*.gid","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*.chk","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %SysTemdrive%\*.old","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %WinDir%\*.bak","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %systemdrive%\Thumbs.db","", @SW_HIDE);缩略图缓冲文件.
Run(@ComSpec & " /c " & "Del /f /s /q /a %WinDir%\prefetch\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /q /a %UserProfile%\cookies\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %UserProfile%\recent\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %UserProfile%\Local Settings\Temporary Internet Files\*.*","", @SW_HIDE);IE临时文件.
Run(@ComSpec & " /c " & "Del /f /s /q /a %UserProfile%\Local Settings\Temp\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q /a %systemdrive%\recycled\*.*","", @SW_HIDE);回收站里的文件.
Run(@ComSpec & " /c " & "Del /f /s /q /a %UserProfile%\Local Settings\Temp\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Rd /s /q %WinDir%\Temp & Md %WinDir%\Temp","", @SW_HIDE);系统临时文件.
Run(@ComSpec & " /c " & "del /s /q %systemdrive%\Program Files\InstallShield Installation Information\*.*","", @SW_HIDE)
Run(@ComSpec & " /c " & "Del /f /s /q %UserProfile%\recent\*.*","", @SW_HIDE)
msgbox(48,"","你已成功清除了系统垃圾!")
EndIf
这里有好多在我机器上不能用我的系统是SP3的
比如:Run(@ComSpec & " /c " & "del /s /q %systemdrive%\Program Files\InstallShield Installation Information\*.*","", @SW_HIDE)
:Run(@ComSpec & " /c " & "Del /f /s /q /a %UserProfile%\recent\*.*","", @SW_HIDE)
都不好用,是这个程序那里出的问题还是别的?
请明白的教教我!!!谢谢
[ 本帖最后由 clea01 于 2008-8-10 19:51 编辑 ] |