[Visual Basic 6.0] 簡單運用 Open .. For Output 製作一鍵電腦暫存垃圾清理Tools

2013-11-11

摘要:[Visual Basic 6.0] 簡單運用 Open .. For Output 製作一鍵電腦暫存垃圾清理Tools

Step1. 首先要先將以下 Bat Code 複製到 CmdCode (TextBox) 上

@echo off
echo 正在清除系統垃圾文件，請稍等......
del /f /s /q %systemdrive%*.tmp
del /f /s /q %systemdrive%*._mp
del /f /s /q %systemdrive%*.log
del /f /s /q %systemdrive%*.gid
del /f /s /q %systemdrive%*.chk
del /f /s /q %systemdrive%*.old
del /f /s /q %systemdrive%recycled*.*
del /f /s /q %windir%*.bak
del /f /s /q %windir%prefetch*.*
rd /s /q %windir%temp  md %windir%temp
del /f /q %userprofile%cookies*.*
del /f /q %userprofile%recent*.*
del /f /s /q "%userprofile%Local 
SettingsTemporary Internet Files*.*"
del /f /s /q "%userprofile%Local 
SettingsTemp*.*"
del /f /s /q "%userprofile%recent*.*"
echo 清除系系統垃圾完成！ 清理垃圾資
料.bat 請自行刪除
echo.  pause

(其實也可以直接貼在記事本另存為 XXX.bat 即可，只是自己的介面總比 MS-Dos 好看多了(?) (( 多此一舉 )

Step2. VB6 Code

Private Sub End_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "使用說明：" & vbCrLf & vbCrLf & "請點擊以下" & Chr(13) & "一鍵清理按" & vbCrLf & "鈕即可自動" & "清理！"
End Sub

Private Sub Play_Click()
Open App.Path & "/垃圾清理.bat" For Output As #1
Print #1, CmdCode
Close #1
S = MsgBox("垃圾清理即將開始！請選擇確認進行清理", vbYesNo, "軟體提醒！程序即將開始")
If S = 6 Then
    Shell App.Path & "/垃圾清理.bat"
    MsgBox "軟體已經順利運行，請等待軟體完成後自行刪除暫存檔 -> 垃圾清理.bat", , "開始清理系統垃圾文件"
Else
    Kill App.Path & "/垃圾清理.bat"
    MsgBox "軟體已由使用者自行取消。", , "軟體無法順利運行"
End If
End Sub

當然，您也可以將其他 Bat Code 貼到 TextBox 中，也可以達到其他相同的效果！

# 一鍵電腦暫存垃圾清理執行檔

一鍵電腦暫存垃圾清理(執行檔).rar

# 一鍵電腦暫存垃圾清理專案檔

一鍵電腦暫存垃圾清理(專案檔).rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁