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

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

01

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

02

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

03

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

04

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

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

程序代码

以下是引用片段：

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就可以了！）

如果没有特殊的控件，比如winsock等，可以不用打包发送。

还有，如果你通过QQ发送给对方，腾讯公司为了安全会把后缀名做更改，所以打不开。比如你程序名是 整人.exe 发给对方以后就变成 整人.exe.重命名

所以如果想要运行的话，要把 整人.exe.重命名 改成 整人.exe 这样就可以了。

---