VBS小程序-d窗整人（代码+解析）

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

01

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

02

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

03

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

04

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

如果想在愚人节逗逗你的朋友，可以用电脑做个整人小程序吓吓对方哦，呵呵，下面就来看看如何设置。

工具/材料

Win7

01

首先，在桌面右击鼠标，在d出的命令中点击新建，在向右d出的命令中点击文本文档。

02

将刚才建立好的文本文档双击打开。输入如下图的代码，中文可改成自己想要的文字。

03

点击关闭按钮，点击保存文件。再对文件进行改名 *** 作，选中扩展名txt。

04

改成vbs。点旁边空白位置确定更改，更改后的文件如图。

05

双击一下文件看看，就运行出一个的提示框，按确定又会d出，无法中止。

06

如果要终止需要按Ctrl+Alt+Delete开启任务管理器，点击进程，选中wscript.exe，点击结束进程就可以了。

07

接下来想办法将该文件放入到朋友的开始菜单启动文件夹里就可以了。

这是我以前保存的共享出来呢 第一个:

程序代码

以下是引用片段：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true

dim a

do while(a <>"哥哥")

a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)

msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "又没让你叫老公"

msgbox chr(13) + chr(13) + chr(13) + "记住了,锡尔丁,是你""哥哥""呀!"

msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?"

msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!"

msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"

msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"

msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"

msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"

msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"

msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"

第二个:

程序代码

以下是引用片段：

Option Explicit

Private Sub Command1_Click()

Dim wood As String

MsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话

wood = InputBox("请输入密码:")

If wood = "骂自己" Then '密码可以自己设

End

Else

Shell "cmd.exe /c shutdown -s -t 60" '60秒后关几

End If

End Sub

Private Sub Command2_Click()

Shell "cmd.exe /c shutdown -a"

MsgBox "不怎么好玩", vbExclamation,"不玩了"

End

End Sub

第三个:

程序代码

以下是引用片段：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···"" ",0 ,true

dim a

do while(a <>"我是笨蛋")

a = inputbox ("说你自己是笨蛋。负责关机 ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说不就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，你真听话!哈.."

用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY...

复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）

---