一、关于脚本

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

[VBS]关机恶作剧的更多相关文章

  1. 一些恶作剧的vbs程序代码

    恶作剧的vbs代码,这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处,最多关机重启一下就可以了,将下面的任意一段代码保存为*.vbs即可 循环弹窗: do msgbox "hi&q ...

  2. vbs查看系统开关机时间

    如何获取XP系统的开机时间? 下面给出两种代码,保存到扩展名为vbs的文件中.具体哪个请根据自己需求决定. 一:根据系统日志,查看开机时间和关机时间,---- 使用弹出对话框的形式 Set WMI = ...

  3. 长时间关机测试脚本.VBS

    Sub Main Dim cnt Dim delay Dim time Dim atttime atttime = 20 delay = 3000 time = 50 cnt_time=3 crt.s ...

  4. VBS自动按键大全,vbs基本和特殊按键

    CreateObject("Wscript.Shell") SendKeys [String] 脚本实现自动按键盘的某个键 过程是:按下F5间隔50毫秒松开F5间隔3000毫秒按下 ...

  5. vbs 脚本2

    一些很恶作剧的vbs程序代码 作者: 字体:[增加 减小] 类型:转载 时间:2013-01-16我要评论 恶作剧的vbs代码,这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处,最多关机重启 ...

  6. vbs keys

    其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在 ...

  7. [VBS脚本]定时提示并关闭计算机

    一.Natalia.bat 双击这个文件可以运行Natalia 控制台在打开后会变成最小化,标题为PowerAssistant,黑色背景淡绿色文字 运行脚本Natalia.vbs @ECHO OFF ...

  8. Vbs脚本经典教材(转)

    Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...

  9. VBS常用使用技巧

    (一)VBS常用函数使用笔记: 1.Msgbox语法:msgbox "对话框内容", , "对话框的标题" 2.inputbox是VBS内建的函数,可以接受输入 ...

随机推荐

  1. Codeforces 721D [贪心]

    /* 不要低头,不要放弃,不要气馁,不要慌张. 题意: 给一列数a,可以进行k次操作,每次操作可以选取任意一个数加x或者减x,x是固定的数.求如何才能使得这个数列所有数乘积最小. 思路: 贪心...讨 ...

  2. python sorted和sort

    我们需要对List进行排序,Python提供了两个方法 对给定的List L进行排序, 方法1.用List的成员函数sort进行排序 方法2.用built-in函数sorted进行排序(从2.4开始) ...

  3. Chap3: question: 11 - 18

    11. double 数值的整数次方 note: 浮点数表示时有误差,判等时必须自己根据精度要求实现. #include <iostream> #include <ctime> ...

  4. myEclipse

    破解myEclipse 建立一个java项目,将reg.java放入,并且运行在控制台 输入账户 回车就会出现 序列号 菜单栏--->myeclipse-->substription in ...

  5. Android软件更新安装。

    app的开发有一个问题是避免不了的,那就是软件的升级维护. 这里我在查过一些资料和写了一个升级帮助类.使用很方便.直接导入就可以了. ( VersionBean.class为更新地址返回的数据对象,我 ...

  6. .Net的Excel 导出 格式设置

    添加引用:Microsoft   Excel   11.0   Object   Library ; 添加:using Microsoft.Office.Interop.Excel; 一.打开Exce ...

  7. dedecms代码研究五

    上一次留几个疑问: 1)DedeTagParse类LoadTemplet方法. 2)MakeOneTag到底在搞什么. 从DedeTagParse开始前面,我们一直在dedecms的外围,被各种全局变 ...

  8. Orcle常用语句

    在SQLPlus界面的操作语句: 查看\设置每行内显示的字符数:show\set linesize [linesize] 查看\设置一次显示的行数:show\set pagesize [pagesiz ...

  9. Orcle基本语句(一)

    --创建学生信息表,约束放在所有列定义之后 CREATE TABLE stu_info( stu_id INTEGER, stu_name NVARCHAR2() NOT NULL, stu_sex ...

  10. java 动态编译

    public class Main { public static void main(String[] args) { System.out.println("Hello World!&q ...