【Web文件更新系统】 - VB接入教程

adminwal

VB客户端接入Web文件更新系统教程

应用中心已经正式发布，Web文件更新系统的安装过程就不重复啰嗦了，直接进入主题
Web文件更新系统已经为我们提供了 文件更新器 BbyUpdater.exe
我们只需要在 VB 里面调用文件更新器，传入对应的启动参数，就可以把Web文件更新系统完美的接入 VB 客户端

下面我们分两步，把Web文件更新系统接入的 VB 客户端中
1、BbyUpdater.exe 启动参数说明
2、调用已经封装好的 文件更新 函数，接入客户端

1、BbyUpdater.exe 启动参数说明

BbyUpdater.exe 进程启动需要附加四个参数
token                百宝云对应云应用token
progname         百宝云对应云应用代码中的项目名称
pid                    当前进程的PID,用于更新器,关闭当前进程
version              件版本号用于区别本地文件与服务器文件,注意版本号必须为1.0.0.0有格式

BbyUpdater 更新器启动参数格式下:

1. //通过 shell 命令 打开更新器，并传入对应的参数，实现程序的下载更新。
   
2. BbyUpdater.exe "token" "progname" "pid" "version"

复制代码

每个参数之间必须使用空格隔开,参数需要加个双引号

2、调用封装好的 文件更新 接口

首先，先把 BbyUpdater.exe，添加到 VB项目的资源目录中，在资源中可以看到ID为101的自定义资源

接下来，再来看我们封装好的 文件更新 函数

1. Option Explicit
   
2. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
   
3. 
   
4. Dim g_token As String
   
5. Dim g_progname As String
   
6. Dim g_version As String
   
7. 
   
8. Private Function 释放文件()
   
9.    
   
10.     Dim AppEXE() As Byte
    
11.     Dim FileNum As Long
    
12. 
    
13.     '将自定义资源中101号资源读入数组
    
14.     AppEXE = LoadResData(101, "CUSTOM")
    
15.     FileNum = FreeFile
    
16. 
    
17.     Open App.Path & "\BbyUpdater.exe" For Binary As #FileNum
    
18.     Put #1, , AppEXE
    
19.     Close #FileNum
    
20.    
    
21.     释放文件 = App.Path & "\BbyUpdater.exe"
    
22.    
    
23. End Function
    
24. 
    
25. Function readfile()
    
26. 
    
27.     Dim conente As String
    
28.     Open App.Path & "\access.token" For Input As #1 ' 打开文件。
    
29.     Do While Not EOF(1) ' 循环至文件尾。
    
30.      Dim TextLine As String
    
31.      Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
    
32.      Debug.Print TextLine ' 在调试窗口中显示数据。
    
33.      conente = conente & TextLine
    
34.     Loop
    
35.     Close #1 ' 关闭文件。
    
36.     readfile = conente
    
37.    
    
38. End Function
    
39. 
    
40. Public Function 文件更新(token, 项目名称, 版本号)
    
41. 
    
42.     'BbyUpdater.exe 进程启动需要附加四个参数
    
43.     'token          百宝云对应云应用token
    
44.     'progname       百宝云对应云应用代码中的项目名称
    
45.     'pid            当前进程的PID, 用于更新器, 关闭当前进程, 如果你是按键精灵, 需要获取父级的进程PID, 按键精灵具有特殊性
    
46.     'version        文件版本号,注意版本号必须为1.0.0.0有格式
    
47. 
    
48.     Dim file As String
    
49.     Dim progname As String
    
50.     Dim pid As Long
    
51.     Dim command As String
    
52.    
    
53.     file = 释放文件() '释放资源目录中的文件
    
54.     progname = 项目名称
    
55.     pid = GetCurrentProcessId()
    
56.     command = file & " " & Chr(34) & token & Chr(34) & " " & Chr(34) & progname & Chr(34) & " " & pid & " " & Chr(34) & 版本号 & Chr(34)
    
57.     Shell command
    
58. End Function

复制代码

然后，我们介绍 文件更新 函数中三个参数的获取，这三个参数都可以通过管理后台来获取
参数 token 获取，在管理端，最下方的菜单可以找到token,并双击复制


参数 项目名称 获取，文件更新系统中，可以有多个不同的项目，用于区分不同的作用，项目名称根据我们实际使用的项目进行选择

参数 版本号 获取，版本号格式必须为1.0.0.0

当本地版本号与管理后台的最新版的版本号不一致，更新器就会开始更新我们服务器上的文件，如果一致，则不会做任何操作

最后我们调用 文件更新 接口进行文件的更新

1. Private Sub Command1_Click()
   
2.     Call 文件更新(g_token, g_progname, g_version)
   
3. End Sub

复制代码

到这里，Web文件更新系统的VB客户端接入教程就完成了
大家赶紧动起手来，在自己的软件的接入Web文件更新系统的文件自动更新功能

最后面给大家看一个自动更新的效果图


VB客户端源码下载:
下载后请注意替换 access.token文件中的token，或者在源码中 给全局变量 g_token 赋值成自己云应用token即可