ngochoan2006
Thành viên chính thức
- Tham gia
- 26/9/07
- Bài viết
- 60
- Được thích
- 1
Đặc điểm virus macro
Chứa trong các file Excel *.xls
Là một đoạn macro viết trên MacroSheet 4.0
Tự động lưu thêm một bản sao có tiền tố là "ban ten gi" và ngày tháng hiện tại trong hệ thống
Tự động lây nhiễm qua các file Excel khác khi cùng được mở ra
Không làm mất và ảnh hưởng tới dữ liệu nhưng làm tăng kích thước của file rất nhiều -> file lớn, thao tác chậm
Làm đầy bộ nhớ bằng những file "ban ten gi"
Đây là mã nguồn đoạn mở file và kiểm tra xem có dính không !
Nhưng hơi bất tiện ! Bác nào có cách diệt con này không chỉ giúp anh em với !
Chứa trong các file Excel *.xls
Là một đoạn macro viết trên MacroSheet 4.0
Tự động lưu thêm một bản sao có tiền tố là "ban ten gi" và ngày tháng hiện tại trong hệ thống
Tự động lây nhiễm qua các file Excel khác khi cùng được mở ra
Không làm mất và ảnh hưởng tới dữ liệu nhưng làm tăng kích thước của file rất nhiều -> file lớn, thao tác chậm
Làm đầy bộ nhớ bằng những file "ban ten gi"
Đây là mã nguồn đoạn mở file và kiểm tra xem có dính không !
Mã:
Sub Virus_kill()
On Error Resume Next
crnt = ActiveWorkbook.Name
'* Dong cac file .xls
For ii = 1 To Workbooks.Count
If Not Workbooks.Item(ii).Name = crnt Then
Workbooks.Item(ii).Close False
End If
Next ii
'1. Xoa nhung file "Luungay"
ttt = Range("b20").Value
Directory = ttt
r = 23
Range("b22:C65000").ClearContents
Cells(r, 2) = "Virus File"
Cells(r, 3) = "Status"
Cells(r - 1, 3) = "virus found"
Range("B23:C23").Font.Bold = True
r = r + 1
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*ban ten gi*"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 2) = .FoundFiles(i)
Cells(r, 3) = "File deleted"
Kill (.FoundFiles(i))
Ln = Ln + 1
Workbooks(crnt).Sheets("Killer").Range("b22").Value = Ln
r = r + 1
Next i
End With
'End
'2. Tim nhung file co sheet virus -> xoa sheet virus
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.xls"
.SearchSubFolders = True
.Execute
For ij = 1 To .FoundFiles.Count
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
'Kiem tra truoc khi mo
Thoi_gian = Range("d20").Value
If FileDateTime(.FoundFiles(ij)) < Thoi_gian Then GoTo Bo_qua
'Mo file
't = .FoundFiles(i)
'MsgBox t
Workbooks.Open .FoundFiles(ij), False
atw = ActiveWorkbook.Name
Application.DisplayAlerts = False
'Tim sheet virus
For n = 1 To ActiveWorkbook.Sheets.Count
tt = Empty
If Sheets(n).Name Like "*~*" Then
Ln = Ln + 1
Workbooks(atw).Sheets(n).Visible = True
Workbooks(atw).Sheets(n).Delete
Workbooks(crnt).Sheets("Killer").Range("b22").Value = Ln
Workbooks(crnt).Sheets("Killer").Cells(r, 2) = .FoundFiles(ij)
Workbooks(crnt).Sheets("Killer").Cells(r, 3) = "Virus deleted"
r = r + 1
Workbooks(atw).Close True
tt = 1
End If
Next n
If Not atw = crnt And tt = Empty Then
Workbooks(atw).Close False
End If
Bo_qua:
Next ij
End With
'Ket thuc
End SubNhưng hơi bất tiện ! Bác nào có cách diệt con này không chỉ giúp anh em với !
pen
