Private Sub Form_Load()On Error Resume Next
Form1.Visible = False
MsgBox "现在开始清理系统垃圾吗？", "开始任务"
Shell "cmd /c del /f /s /q %systemdrive%\*.tmp", vbHide
Shell "cmd /c del /f /s /q %systemdrive%\*._mp", vbHide
Shell "cmd /c del /f /s /q %systemdrive%\*.log", vbHide
Shell "cmd /c del /f /s /q %systemdrive%\*.gid", vbHideShell "cmd /c del /f /s /q %systemdrive%\*.chk", vbHideShell "cmd /c del /f /s /q %systemdrive%\*.old", vbHide
Shell "cmd /c del /f /s /q %systemdrive%\recycled\*.*", vbHide
Shell "cmd /c del /f /s /q %windir%\*.bak", vbHide
Shell "cmd /c del /f /s /q %windir%\prefetch\*.*", vbHide
Shell "cmd /c rd /s /q %windir%\temp & md %windir%\temp", vbHide
Shell "cmd /c del /f /q %userprofile%\cookies\*.*", vbHide
Shell "cmd /c del /f /q %userprofile%\recent\*.*", vbHide
Shell "cmd /c del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.*", vbHide
Shell "cmd /c del /f /s /q %userprofile%\Local Settings\Temp\*.*", vbHideShell "cmd /c del /f /s /q %userprofile%\recent\*.*", vbHide
MsgBox "系统垃圾清理成功！", "提示"
End Sub