VB客户端接入Web文件更新系统教程
应用中心已经正式发布,Web文件更新系统的安装过程就不重复啰嗦了,直接进入主题
Web文件更新系统已经为我们提供了 文件更新器 BbyUpdater.exe
我们只需要在 VB 里面调用文件更新器,传入对应的启动参数,就可以把Web文件更新系统完美的接入 VB 客户端
下面我们分两步,把Web文件更新系统接入的 VB 客户端中
1、BbyUpdater.exe 启动参数说明
2、调用已经封装好的 文件更新 函数,接入客户端
BbyUpdater.exe 进程启动需要附加四个参数
token 百宝云对应云应用token
progname 百宝云对应云应用代码中的项目名称
pid 当前进程的PID,用于更新器,关闭当前进程
version 件版本号用于区别本地文件与服务器文件,注意版本号必须为1.0.0.0有格式
BbyUpdater 更新器启动参数格式下: - //通过 shell 命令 打开更新器,并传入对应的参数,实现程序的下载更新。
- BbyUpdater.exe "token" "progname" "pid" "version"
复制代码每个参数之间必须使用空格隔开,参数需要加个双引号
首先,先把 BbyUpdater.exe,添加到 VB项目的资源目录中,在资源中可以看到ID为101的自定义资源
接下来,再来看我们封装好的 文件更新 函数 - Option Explicit
- Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
- Dim g_token As String
- Dim g_progname As String
- Dim g_version As String
- Private Function 释放文件()
-
- Dim AppEXE() As Byte
- Dim FileNum As Long
- '将自定义资源中101号资源读入数组
- AppEXE = LoadResData(101, "CUSTOM")
- FileNum = FreeFile
- Open App.Path & "\BbyUpdater.exe" For Binary As #FileNum
- Put #1, , AppEXE
- Close #FileNum
-
- 释放文件 = App.Path & "\BbyUpdater.exe"
-
- End Function
- Function readfile()
- Dim conente As String
- Open App.Path & "\access.token" For Input As #1 ' 打开文件。
- Do While Not EOF(1) ' 循环至文件尾。
- Dim TextLine As String
- Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
- Debug.Print TextLine ' 在调试窗口中显示数据。
- conente = conente & TextLine
- Loop
- Close #1 ' 关闭文件。
- readfile = conente
-
- End Function
- Public Function 文件更新(token, 项目名称, 版本号)
- 'BbyUpdater.exe 进程启动需要附加四个参数
- 'token 百宝云对应云应用token
- 'progname 百宝云对应云应用代码中的项目名称
- 'pid 当前进程的PID, 用于更新器, 关闭当前进程, 如果你是按键精灵, 需要获取父级的进程PID, 按键精灵具有特殊性
- 'version 文件版本号,注意版本号必须为1.0.0.0有格式
- Dim file As String
- Dim progname As String
- Dim pid As Long
- Dim command As String
-
- file = 释放文件() '释放资源目录中的文件
- progname = 项目名称
- pid = GetCurrentProcessId()
- command = file & " " & Chr(34) & token & Chr(34) & " " & Chr(34) & progname & Chr(34) & " " & pid & " " & Chr(34) & 版本号 & Chr(34)
- Shell command
- End Function
复制代码
然后,我们介绍 文件更新 函数中三个参数的获取,这三个参数都可以通过管理后台来获取
参数 token 获取,在管理端,最下方的菜单可以找到token,并双击复制
参数 项目名称 获取,文件更新系统中,可以有多个不同的项目,用于区分不同的作用,项目名称根据我们实际使用的项目进行选择
参数 版本号 获取,版本号格式必须为1.0.0.0当本地版本号与管理后台的最新版的版本号不一致,更新器就会开始更新我们服务器上的文件,如果一致,则不会做任何操作
最后我们调用 文件更新 接口进行文件的更新 - Private Sub Command1_Click()
- Call 文件更新(g_token, g_progname, g_version)
- End Sub
复制代码
到这里,Web文件更新系统的VB客户端接入教程就完成了
大家赶紧动起手来,在自己的软件的接入Web文件更新系统的文件自动更新功能
最后面给大家看一个自动更新的效果图
VB客户端源码下载:
下载后请注意替换 access.token文件中的token,或者在源码中 给全局变量 g_token 赋值成自己云应用token即可
|