一键清零.vbs - 洛阳翼展电脑


一键清零.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

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog