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

风一样的男孩

2. '此脚本目的是：调用讯闪3.1的更新核心程序，每次开机后运行此脚本都会更新一次，而且只更新一次，不重
4. 启不会重复更新
5. '另外，你可以自定义版本号，这时，和使用菜单的效果是一样的，不管你重启多少次，版本号不变的时候是不
7. 会更新的
9. On Error Resume Next
10. dim FSO,WshNetwork,WSH,LoginProfiles,ComputerName,UserName,Ver
11. Set LoginProfiles = GetObject("winmgmts:").InstancesOf ("Win32_NetworkLoginProfile")
12. Set WSH=wscript.createobject("wscript.shell")
13. Set FSO = CreateObject("Scripting.FileSystemObject")
14. Set WshNetwork = WScript.Createobject("WScript.Network")
15. ComputerName = WshNetwork.ComputerName
16. UserName = WshNetwork.UserName
17. for each Profile in LoginProfiles
18.     if Profile.Name=ComputerName&"\"&UserName then
19.       Ver=Left(Profile.LastLogon,14)
20.     end if
21. next
23. '讯闪3.1的各项参数设置
24. LoadPath = "F:\常用软件备份\讯闪服务端\data\load.exe" '讯闪3.1更新核心程序路径
25. Arg01 = "\\gameupserver\game$\qq"    '远程目录
26. Arg02 = "D:\windows\qq"    '本地目录
27. Arg03 = "[腾讯QQ]正在更新，请稍等..."   '窗口标题
28. Arg04 = "D:\windows\qq\qq.exe"   '更新完成后运行的程序
29. Arg05 = ""      '更新完成后执行程序的运行参数
30. Arg06 = "D:\windows\qq\qq.reg"   '注册表的路径
31. Arg07 = Ver   '版本号(这里使用开机时间做版本号，自定义时需用引号括起版本号，例：Arg14 =
33. "123")
34. Arg08 = "1"       '更新模式，1---马上更新 其它---手动选择
35. Arg09 = "0"       '未知参数，必加
36. Arg10 = "0"       '未知参数，必加
38. '生成讯闪3.1的更新参数
39. Dim Arg
40. Arg = " "&Chr(34) & "/fdir:" & Arg01 & Chr(34)_
41.        &" "&Chr(34) & "/tdir:" & Arg02 & Chr(34)_
42.        &" "&Chr(34) & "/name:" & Arg03 & Chr(34)_
43.        &" "&Chr(34) & "/Run:" & Arg04 & Chr(34)_
44.        &" "&Chr(34) & "/cmd:" & Arg05 & Chr(34)_
45.        &" "&Chr(34) & "/reg:" & Arg06 & Chr(34)_
46.        &" "&Chr(34) & "/ver:" & Arg07 & Chr(34)_
47.        &" "&Chr(34) & "/now:" & Arg08 & Chr(34)_
48.        &" "&Chr(34) & "/f_f:" & Arg09 & Chr(34)_
49.        &" "&Chr(34) & "/f_d:" & Arg10 & Chr(34)
51. Dim VerFile,VerPrefix,VerNumber,LocalFolder
52. VerFile = FSO.GetAbsolutePathName(Arg02) & "\$ver.txt" '存有版本的文件名
53. VerPrefix = "2=" '保存版本的字段
54. VerNumber = Arg07 '版本号
55. LocalFolder = FSO.GetAbsolutePathName(Arg02) '本地目录的明确完整的路径
56. RunProfile = Arg04 '游戏主程序
58. If Not FSO.FileExists(VerFile) Then '如果版本文件不存在
59.     SubShowFolder LocalFolder '检查本地目录是否存在
60.     WSH.Run LoadPath & Arg '更新
61. Else
62.     If SubReadVer Then '版本文件存在时，判断版本号
63.       WSH.Run RunProfile '版本号相同，运行游戏程序
64.     Else
65.       SubShowFolder LocalFolder '检查本地目录是否存在
66.       WSH.Run LoadPath & Arg '版本号不相同，更新
67.     End If
68. End If
70. '如果指定目录不存在则创建(同时检查父目录是否存在)
71. Function SubShowFolder(FolderPath)
72.     If Not FSO.FolderExists(FolderPath) Then
73.       SubShowFolder FSO.GetParentFolderName(FolderPath)
74.       Set FD = FSO.CreateFolder(FolderPath)
75.     End If
76. End Function
78. '从版本文件里读出版本，并与指定的版本对比，相同则返回True，否则返回False
79. Function SubReadVer()
80.     Set F = FSO.OpenTextFile(VerFile)
81.     While F.AtEndOfLine <> True
82.       V = F.ReadLine
83.       Vn = InStr(V,VerPrefix)
84.       If Vn > 0 Then
85.         If CStr(VerNumber) = CStr(Right(V,Len(V)-Len(VerPrefix))) Then
86.           SubReadVer = True
87.           Exit Function
88.         End If
89.       End If
90.       SubReadVer = False
91.     Wend
92. End Function

复制代码