一键清零.vbs
2018-10-6 乱云飞 评论(0) 浏览(916) 标签: 一键清零 vbs代码 vbs脚本 自动输入脚本
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
WshShell.AppActivate "_SSCOM"
WScript.Sleep 2000
WshShell.SendKeys "^{Z}"
WScript.Sleep 2000
WshShell.SendKeys "/1{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "N1{ENTER}"
WScript.Sleep 20000
WshShell.SendKeys "^{C}"
WScript.Sleep 5000
msgbox " "& vbCrlf &"^_^ 清零完成，可以拔掉硬盘了。"& vbCrlf &" ",0,"一键清零硬盘通电时间"
wscript.quit
实时监控
电脑维修
