方法步骤如下：

1、首先打开计算机，在计算机的桌面上右键点击，选中“文件文档”选项。

2、生成之后，双击打开文件文档。

3、然后在界面内输入如图的代码。

4、输入完毕后，保存起来。

5、然后使用鼠标对文件进行右键，重命名。

6、将txt的后缀，改为vbs格式。

7、双击打开，就可以看见其效果了。这里是关不了的。（ctrl+alt+delete可以停止下来）

《SCRIPT language=JavaScript》alert(“这里写你的话“)《/SCRIPT》

这是因为电脑正在无限弹窗时，系统正在做读写操作，而您突然扣电池进行非正常关机，这就容易伤到硬盘。建议您检查一下硬盘情况，如果有点小问题的话进行修复一下，或者使用chkdsk这个命令修复一下磁盘文件。当然磁盘的碎片也需要整理一下。

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。if MsgBox(“对不起,您灌水太多需要重新启动计算机。“&chr(10)&“确定要重启吗？“,vbOKCancel+vbInformation,“重新启动计算机“)=vbCancel then msgbox “ 正在清理系统垃圾wow ~_^“,,“算你倒霉！！“ Set objShell = CreateObject(“Wscript.Shell“) objShell.Run “shutdown -s -t 5“,,true end if加分哦

你的代码很好。实现方法如下：1.右击sheet1工作表，选择“查看代码”。2.在自动弹出的代码窗口中粘贴上述代码。3.回到excel的sheet1工作表试试，即可看到效果。 代码解释：第一行定义一个过程，这个过程的含义是选择单元格区域时发生的第二行开始的if...else...endif多行语句，其实是一条完整的语句，如果你单击单元格中不是“请按我”三个字时，提示你“您乱按”，但当你单击“请按我”三个字时，这三个字又跑到其它地方去了，同时提示你“(“哈哈按不到“)”。其中的语句：Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1) = “请按我“就是“你按我”三个字跑到其它单元格中去的意思，cells的用法：cells(行号,列号)，即单元格地址。

VBS可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。

我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的

然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示

接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗

最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示

弹窗：msgbox “xxx“,x, “xxx“输入框：inputbox:“xxx““xxx“然后保存为xxx.vbs例如：hhaha.vbs要在Windows上有效

这个太容易实现了，直接多写几个alert就可以了，例如：《!doctype html》《html》《head》《meta charset=“UTF-8“》《title》实例《/title》《/head》《body》《script type=“text/javascript“》alert(’哈哈哈哈’);alert(’哈哈哈哈’);alert(’哈哈哈哈’);alert(’哈哈哈哈’);《/script》

《/body》《/html》把哈哈哈改为自己需要的字就可以了

VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面我给大家展示一下。

Sublime Text

首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示

然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗

接下来这个脚本每一次循环会展示4个弹窗，每个弹窗的内容不一样，每个弹窗的弹出间隔为1秒，如下图所示

最后一个脚本是带交互功能的，被整的人只有输入指定的内容才能关闭脚本，否则脚本会一直循环弹出，如下图所示