调用讯闪4.7的更新核心程序

风一样的男孩

2. '此脚本目的是：调用讯闪4.7的更新核心程序，每次开机后运行此脚本都会更新一次，而且只更新一次，不重启不会重复更新
3. '另外，你可以自定义版本号，这时，和使用菜单的效果是一样的，不管你重启多少次，版本号不变的时候是不会更新的
5. On Error Resume Next
6. dim FSO,WshNetwork,WSH,LoginProfiles,ComputerName,UserName,Ver
7. Set LoginProfiles = GetObject("winmgmts:").InstancesOf ("Win32_NetworkLoginProfile")
8. Set WSH=wscript.createobject("wscript.shell")
9. Set FSO = CreateObject("Scripting.FileSystemObject")
10. Set WshNetwork = WScript.Createobject("WScript.Network")
11. ComputerName = WshNetwork.ComputerName
12. UserName = WshNetwork.UserName
13. for each Profile in LoginProfiles
14.     if Profile.Name=ComputerName&"\"&UserName then
15.       Ver=Left(Profile.LastLogon,14) '读取当前用户登陆系统多长时间
16.     end if
17. next
19. '讯闪4.7的各项参数设置
20. LoadPath = "F:\常用软件备份\迅闪v4.7\data\load.exe" '讯闪4.7更新核心程序路径
21. Arg01 = "[腾讯QQ]更新中,请稍待......"    '更新窗口标题
22. Arg02 = "\\gameupserver\game$\qq\"    '远程目录
23. Arg03 = "d:\windows\qq\"     '本地目录
24. Arg04 = ""       '强制更新指定文件夹
25. Arg05 = ""       '导入注册表文件路径
26. Arg06 = ""       '预先执行
27. Arg07 = ""       '预先执行参数
28. Arg08 = "d:\windows\qq\qq.exe"    '正常执行(更新完成后执行的文件)
29. Arg09 = ""       '正常执行参数
30. Arg10 = ""       '更新窗口的图片
31. Arg11 = ""       '排除的文件夹
32. Arg12 = ""       '排除的文件名
33. Arg13 = "3"       '对比文件时间误差(秒)
34. Arg14 = Ver    '版本号(这里使用开机时间做版本号，自定义时需用引号括起版本号，例：Arg14 = "123")
35. Arg15 = "0"       '保留多余文件 0--不保留   1--保留
36. Arg18 = ""       '程序皮肤
37. Arg20 = "1"       '对比文件大小 0--不对比   1--对比
38. Arg21 = "1"       '对比文件时间 0--不对比   1--对比
40. '生成讯闪4.7的更新参数
41. Dim Arg
42. Arg = " "&Chr(34) & "%01" & Arg01 & Chr(34)_
43.        &" "&Chr(34) & "%02" & Arg02 & Chr(34)_
44.        &" "&Chr(34) & "%03" & Arg03 & Chr(34)_
45.        &" "&Chr(34) & "%04" & Arg04 & Chr(34)_
46.        &" "&Chr(34) & "%05" & Arg05 & Chr(34)_
47.        &" "&Chr(34) & "%06" & Arg06 & Chr(34)_
48.        &" "&Chr(34) & "%07" & Arg07 & Chr(34)_
49.        &" "&Chr(34) & "%08" & Arg08 & Chr(34)_
50.        &" "&Chr(34) & "%09" & Arg09 & Chr(34)_
51.        &" "&Chr(34) & "%10" & Arg10 & Chr(34)_
52.        &" "&Chr(34) & "%11" & Arg11 & Chr(34)_
53.        &" "&Chr(34) & "%12" & Arg12 & Chr(34)_
54.        &" "&Chr(34) & "%13" & Arg13 & Chr(34)_
55.        &" "&Chr(34) & "%14" & Arg14 & Chr(34)_
56.        &" "&Chr(34) & "%15" & Arg15 & Chr(34)_
57.        &" "&Chr(34) & "%18" & Arg18 & Chr(34)_
58.        &" "&Chr(34) & "%20" & Arg20 & Chr(34)_
59.        &" "&Chr(34) & "%21" & Arg21 & Chr(34)
61. Dim VerFile,VerPrefix,VerNumber,LocalFolder
62. VerFile = FSO.GetAbsolutePathName(Arg03) & "\◆.log" '迅闪4.7记录版本的文件
63. VerPrefix = "当前版本=" '保存版本的字段
64. VerNumber = Arg14 '版本号
65. LocalFolder = FSO.GetAbsolutePathName(Arg03) '本地目录的明确完整的路径
66. RunProfile = Arg08 '游戏主程序
68. If Not FSO.FileExists(VerFile) Then '如果版本文件不存在
69.     SubShowFolder LocalFolder '检查本地目录是否存在
70.     WSH.Run LoadPath & Arg '更新
71. Else
72.     If SubReadVer Then '版本文件存在时，判断版本号
73.       WSH.Run RunProfile '版本号相同，运行游戏程序
74.     Else
75.       SubShowFolder LocalFolder '检查本地目录是否存在
76.       WSH.Run LoadPath & Arg '版本号不相同，更新
77.     End If
78. End If
80. '如果指定目录不存在则创建(同时检查父目录是否存在)
81. Function SubShowFolder(FolderPath)
82.     If Not FSO.FolderExists(FolderPath) Then
83.       SubShowFolder FSO.GetParentFolderName(FolderPath)
84.       Set FD = FSO.CreateFolder(FolderPath)
85.     End If
86. End Function
88. '从版本文件里读出版本，并与指定的版本对比，相同则返回True，否则返回False
89. Function SubReadVer()
90.     Set F = FSO.OpenTextFile(VerFile)
91.     While F.AtEndOfLine <> True
92.       V = F.ReadLine
93.       Vn = InStr(V,VerPrefix)
94.       If Vn > 0 Then
95.         If CStr(VerNumber) = CStr(Right(V,Len(V)-Len(VerPrefix))) Then
96.           SubReadVer = True
97.           Exit Function
98.         End If
99.       End If
100.       SubReadVer = False
101.     Wend
102. End Function

复制代码

互联网

有中文解释吗

estly

够 细心的嘛

329967980

楼主                      辛苦了

wftcw

论坛有相关的补丁