一、关于脚本

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. oracle的char和varchar类型

    源地址:https://zhidao.baidu.com/question/140310197.html varchar与char的区别就在于是否可变长度.char(5)就是定义一个5个字符长度的字符 ...

  2. log4j打印mybatis sql语句

    Mybatis默认使用有slf4j 必须加上依赖 <dependency> <groupId>org.slf4j</groupId> <artifactId& ...

  3. poj 1416 (hdu 1539)Shredding Company:剪枝搜索

    点击打开链接 题目大意是有一个分割机,可以把一串数字分割成若干个数字之后求和,题目输入一个数字上界和待分割的数字,让我们求出分割后数字之和在不超过给定max的情况下的最大值,并且给出分割方案,如果没有 ...

  4. python_day3

    一.set的基本操作 >>> s1=set("abc123abc") >>> s1 #把字符串转化为set,去重 set([']) >&g ...

  5. 创建线程方式-GCD

    *:first-child { margin-top: 0 !important; } body > *:last-child { margin-bottom: 0 !important; } ...

  6. Vi中的^M问题

    一般情况下,windows下编辑过的文件放到Linux下行尾会多出一个^M符号 1.可以通过dos2unix 命令作用与文件消除 2.或者在VI内通过 只需要在vi/vim 中输入命令:%s/\r// ...

  7. EXT学习之——获取下拉框combobox的值与显示名

    //申请科室 var comboboxdept = new Ext.form.ComboBox({ xtype: "combobox", name: "Gender&qu ...

  8. 洛谷P3383 【模板】线性筛素数

    P3383 [模板]线性筛素数 256通过 579提交 题目提供者HansBug 标签 难度普及- 提交  讨论  题解 最新讨论 Too many or Too few lines 样例解释有问题 ...

  9. MySQL 的 RowNum 实现

    MySQL 的 RowNum 实现 MySQL 下面没有RowNum,排序后序号却无法得到,比较麻烦! 在网上找了再三,通过比较,确认了以下的方法是可行的 : rownum, CollectSn ,b ...

  10. mysql存储过程简介

    创建存储过程CREATE PROCEDURE productpricing(OUT pl DECIMAL(8,2),OUT ph DECIMAL(8,2),OUT pa DECIMAL(8,2))BE ...