恶搞程序代码

代码如下，复制到记事本，将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

加分哦

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

工具/材料

Sublime Text

01

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

02

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

03

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

04

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

---