測試文字功能,小工具,標題

記錄很重要,不然會浪費很多時間在找以前的記憶

一個人的氣度,決定他未來的高度。

2014年1月27日 星期一

VBS 開機程式延遲

VBS 開機程式延遲


XP Start.vbs,內容如下
======================================================
'建立 WScript.Shell 物件
Set WshShell = WScript.CreateObject("WScript.Shell")
'延遲90秒,單位是毫秒
WScript.Sleep 90000
'執行程式,要用路徑要用 / 反過來,"""三個雙引號包起來,後面接參數
WshShell.Run """C:/xxx/xxx.bat""", 1,TRUE
WScript.Sleep 10000
WshShell.Run """C:/xxx/clear.bat""", 1,TRUE
WScript.Sleep 10000
WshShell.Run """C:/Outlook Express Start.bat""", 1,TRUE
WScript.Quit
=======================================================


del xxx.bat,內容如下
=======================================================
del c:\xxx\xxx\*.* /q
=======================================================


clear.bat,內容如下
=======================================================
@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 Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系統垃圾完成!

EXIT

=========================================================