[VBS]关机恶作剧

一、关于脚本

1）本文中的脚本完成以下功能：

随机生成3道二位数加法题，如果答题错误则在60秒后关机。

如果全答对了，也会在60后关机，但脚本会提示解除定时关机的办法

2）在脚本运行过程中，退出本脚本的方法为：

在任务管理器中找到wscript.exe，选择结束进程即可（如下图）

3）如果已经进入了关机倒计时读秒阶段，打开命令提示符输入下面命令即可结束倒计时：

 shutdown -a

二、VBS脚本

 'Version: 1.0.20140819.1

 On Error Resume Next '出现错误时跳开语句

 '申明程序意图
 Dim Tip
 Tip = "小伙你现在已经落入我的圈套了！" & Chr()
 Tip = Tip & "这样吧，我给你出三道数学题，你做出来我就放了你" & Chr()
 Tip = Tip & "你看怎么样？"

 '必须选是
 Dim Choice
 While Choice <> VbYes
     Choice = MsgBox(Tip, VbYesNo)
     If Choice = VbNo Then
         MsgBox "小伙你挣扎的样子颇有几分我年轻时的神韵"
     End If
 Wend

 '声明变量
 Dim a        '加数
 Dim b        '加数
 Dim Equation '生成的算式
 Dim Result   '输入的和

 '生成伪随机数
 Randomize()

 '第一题
 a = int( +  * Rnd())          '生成随机数a
 b = int( +  * Rnd())          '生成随机数b
 Equation = a & " + " & b & " = ?" '生成算式
 Result = InputBox(Equation)       '询问问题
 If Result <> cstr(a + b) Then     '判断是否回答正确
     MsgBox "这么简单的数学题你也不会算吗！"
     ShutDown     '关机
     WScript.Quit '退出脚本
 End If 

 '第二题
 a = int( +  * Rnd())
 b = int( +  * Rnd())
 Equation = a & " + " & b & " = ?"
 Result = InputBox(Equation)
 If Result <> cstr(a + b) Then
     MsgBox "这么简单的数学题你也不会算吗！"
     ShutDown
     WScript.Quit
 End If 

 '第三题
 a = int( +  * Rnd())
 b = int( +  * Rnd())
 Equation = a & " + " & b & " = ?"
 Result = InputBox(Equation)
 If Result <> cstr(a + b) Then
     MsgBox "这么简单的数学题你也不会算吗！"
     ShutDown
     WScript.Quit
 End If 

 '宿命：虽然也会试图关闭计算机，但还是网开一面
 Dim Destiny
 Destiny = "小伙子挺屌啊，算我服了你了，我给你指条明路吧" & Chr()
 Destiny = Destiny & "一会儿你打开命令行，输入 shutdown -a 就没事了"
 MsgBox Destiny
 ShutDown

 '例程：60秒后关闭计算机
 Sub ShutDown
     Set ws = WScript.createobject("wscript.shell")
     ws.Run "shutdown -s -t 60",
 End Sub