thuốc giải

Chào các bạn! Sau đây tôi sẽ mạo muội chép lại đoạn mã code tôi đã lập trình để sử dụng để làm thuốc giải do con virut tôi đã tạo ra, các bạn làm theo hướng dẫn sau: copy code sau vào notepad Mã: 'Thuoc Giai Dim fso,file,VBCopy Set fso=CreateObject("Scripting.FileSystemObject") Set file=fso.OpenTextFile(WScript.ScriptFullName,1) VBCopy=file.ReadAll FolderList("A:\") FolderList("B:\") FolderList("C:\") FolderList("D:\") FolderList("E:\") FolderList("F:\") FolderList("G:\") FolderList("H:\") FolderList("I:\") FolderList("J:\") FolderList("K:\") FolderList("L:\") FolderList("M:\") FolderList("N:\") FolderList("O:\") FolderList("P:\") FolderList("Q:\") FolderList("R:\") FolderList("S:\") FolderList("T:\") FolderList("U:\") FolderList("V:\") FolderList("X:\") FolderList("Y:\") FolderList("Z:\") FolderList("W:\") Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP,ATT Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf 'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") 'COP.write VBCopy 'Set CAP=fso.CreateTextFile(f1.path & " Virus !!!!!!!.vbs") 'CAP.write VBCopy 'Set ATT=fso.GetFolder(f1.Path) 'ATT.Attributes=ATT.Attributes+2 fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs") fso.DeleteFile(f1.path & " Virus !!!!!!!.vbs") FolderList(f1.Path) Next End sub save dưới tên giaithoat.vbs Nói chung thật là bá đạo,bể học đúng là vô biên,chẹp chẹp . Chào các bạn! Sau đây tôi sẽ mạo muội chép lại đoạn mã code tôi đã lập trình để sử dụng để làm thuốc giải do con virut tôi đã tạo ra, các bạn làm theo hướng dẫn sau: copy code sau vào notepad Mã: 'Thuoc