VBS脚本:关机恶作剧

一、关于脚本

1)本文中的脚本完成以下功能:

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

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

2)在脚本运行过程中,退出本脚本的方法为:

在任务管理器中找到wscript.exe,选择结束进程即可(如下图)

VBS脚本:关机恶作剧_第1张图片

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

你可能感兴趣的:(VBS脚本:关机恶作剧)