VBS 恶搞小脚本

VBS：恶搞小脚本

今天刚学了一个小的VBS脚本，感觉有点意思，可以在闲暇的时候恶搞一下朋友。下面是模板代码，内容可以自己编辑哦。

msgbox("窗口标题")
x=msgbox("文字主题",VbOkCancel)
if x=VbOk then
	msgbox("左按钮")
elseif x=VbCancel then
	msgbox("右按钮")
set ws=createobject()
	ws.run"cmd.exe /c shutdown -s -f -t 0"//关机
end if

1. 打开脚本后，根据 “确定”-“确定”-“确定” 运行的界面。采用反向思维，出现关机提醒，如果朋友选择 “取消” ，那么他就上套了，立刻关机。如果朋友选择 “确定” ，那么他就不会发生什么事情，逃过一劫。
2. 如果执行 “确定”-“取消”-“确定” ，就真的会关机哦，一定要保存好电脑正在运行的东西哦。

msgbox("关机警告！")
x=msgbox("10s之内，你的电脑将会关机！",VbOkCancel)
if x=VbOk then
   msgbox("你逃过一劫！")
elseif x=VbCancel then
   msgbox("你中圈套了！")
set ws=createobject()
   ws.run"cmd.exe /c shutdown -s -f -t 0"
end if