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(13) 
Tip = Tip & "这样吧，我给你出三道数学题，你做出来我就放了你" & Chr(13)
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(50 + 50 * Rnd())          '生成随机数a
b = int(50 + 50 * Rnd())          '生成随机数b
Equation = a & " + " & b & " = ?" '生成算式
Result = InputBox(Equation)       '询问问题
If Result <> cstr(a + b) Then     '判断是否回答正确
    MsgBox "这么简单的数学题你也不会算吗！"
    ShutDown     '关机
    WScript.Quit '退出脚本
End If 

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

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

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

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

END

转载于:https://my.oschina.net/Tsybius2014/blog/304369