一键清零.vbs
2018-10-6 乱云飞 标签: 一键清零 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本文链接:http://80c.cc/ez/181.html
发表评论: