Cách sửa lỗi máy tính bị nhiễm virus BOSS.vbs liên tục sinh file .VBS tự động Windows XP 7 8 10

Cách sửa lỗi máy tính bị nhiễm virus BOSS.vbs liên tục sinh file .VBS tự động Windows XP 7 8 10, cách xoá diệt, loại bỏ virus lây lan vào hệ thống, khởi động cùng Windows, nhảy quảng cáo liên tục

Hiện tượng: Máy tính tự động sinh ra rất nhiều file có định dạng .VBS với tên file như: tên file/ thư mục của bạn + VIRUS BOSS!!!. Các file này có kích thước rất nhỏ, chỉ vài KB thôi. Nếu có xoá hết thì chúng cũng tự sinh ra trong vài phút sau đó.

diet-virus-boss-1.png




Máy tính tự sinh ra rất nhiều file .VBS


diet-virus-boss-2.png


Cách diệt: Tải file nén sau về, trong đó có 2 file, chạy lần lượt từng file là được

[DLLL]fshare.vn/file/96WQQ6FAT4Q6
tenlua.vn/Vforum/1237e628e60f6e0e143b/diet-virus-boss
mediafire.com/file/bhyqnl17n299heb/Diet_virus_BOSS.rar[/DLLL]

File thứ nhất "1.Thuoc giai VBS.vbs" có tác dụng giải phóng file VBS đang chạy cùng hệ thống, tức là ngăn chặn và cách ly nó ra khỏi các tiến trình đang chạy. Nội dung của nó mở bằng Notepad như sau:
[AH]
'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 Boss!!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus Boss!!!!!!!.vbs")
fso.DeleteFile(f1.path & "---\Virus Boss!!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub
[/AH]

Và file thứ 2 "2.Xoa vbs.bat" có tác dụng xoá toàn bộ các file VBS có trong máy tính, bao gồm cả file mới được sinh ra và file gốc (nguyên nhân gây ra sự khó chịu này). Nội dung:
[AH]
del C:\*.vbs /s /f /q
del D:\*.vbs /s /f /q
del E:\*.vbs /s /f /q
del F:\*.vbs /s /f /q
[/AH]
 
  • Chủ đề
    thuoc giai virus boss xoa vet
  • Thống kê

    Chủ đề
    101,868
    Bài viết
    469,235
    Thành viên
    340,263
    Thành viên mới nhất
    CUONG HUYEN
    Top