一、关于脚本
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