用VB6写在线更新程序（上篇）(1/3)

发布时间：2020-12-16 23:23:30 所属栏目：大数据来源：网络整理

导读：用 VB6 写在线更新程序（上篇）说起 VB6 ，算是老朋友了，从学计算机开始就接触它了。然而，有了 Delphi5 之后，再也不想用它了。毕竟，在 OOP 流行的年代， Delphi 相继推出了 6 和 7 （ 8 、 9 、 10 、 11 、 12 就不说了，伤心！），而 VB 还是 6.0 ，

用VB6写在线更新程序（上篇）

说起VB6，算是老朋友了，从学计算机开始就接触它了。然而，有了Delphi5之后，再也不想用它了。毕竟，在OOP流行的年代，Delphi相继推出了6和7（8、9、10、11、12就不说了，伤心！），而VB还是6.0，等到7.1出来之后，已经不是VB了，而是VB.NET，需要.NET Framework的支持，太麻烦了。

曾经有人说过，VB非常强大，几乎无所不能（当然，其实是依赖于Win32 API的运用，这点他不说也知道），甚至还说比Delphi强，这一点我是强烈反对的。先不说借助API不算是它的能力，用起来的感觉就不一样，没有指针、没有动态链表也就算了，就连最常用、的最基本的函都没实现（或者说内置），实在是难以容忍（可别再提API了，难道判断一个目录是否存在也要用API吗？封装一下也好呀。）！

最近在修改一个VB写的程序，为了增加下载更新功能，折腾好几天，还好没出现失败中止的惨剧，还是凭着好奇心坚持写出来了。实现的功能并不复杂，主要是写一个下载文件的更新程序，并修改主程序入口，让程序启动时检查更新，如果有新版本就启动更新程序进行下载。另外再写一个用于发布文件（也就是将文件拷贝到网络上）并更新配置文件的程序。当然，这只是局域网上使用的，并没有实现FTP上传功能。主要是对文件（版本信息等）的操作及XML技术的应用。这个思路我已经用了很久了，Delphi版本与C#.NET版本早就写出来了，所以，这次的工作有点像翻译。

「更新程序的编写」

更新程序首先要实现对XML配置文件的解析，得到需要更新的文件，再者就是比对这些文件的版本（或修改时间），并从网络上下载它们到本地覆盖旧文件。

首先，为了使程序更通用一些，更新程序必需的配置文件名与要更新的主程序文件名使用命令行参数传入。问题来了，对命令行参数的处理，在Delphi里是现成的，直接使用ParamStr数组即可；然而，VB6里只有一个Command变量，得到命令行的原始字符串，还需要自行拆分。

对命令行的拆分，本想直接用Split函数（这个函数不错，相对于Delphi，唯一令我赞赏的）简单拆分的，但是，得有点容错能力才行，命令中可能会出现双引号的哦。想依照Delphi的拆分方法（Delphi中几乎所有源码都可以跟踪查看的！再赞一下Delphi，呵呵）的，但Delphi中用的是PChar，一种同时具备指针和字符串特性的类型，这在VB中根本没有替代品。没办法，只有自己再创造一个算法了。所以，就有了下面这段拆分命令行参数的代码了（想了很久的，真的头都快要想爆了）：

'{ 将命令行参数拆分到数组。Cable Fan 2009-08-13 }

Public Function SplitCommandLine(CommandLine As String) As Variant

Dim Lines() As String

Dim S As String

Dim i As Integer

Dim j As Integer

Dim Quot As Boolean

Dim P As String

S = CommandLine

j = -1

While S <> ""

' 是否双引号开头。

If Left(S, 1) = """" Then

Quot = True

S = Mid(S, 2, Len(S)) ' 剔除双引号。

Else

Quot = False

End If

' 查找参数结束点。

For i = 1 To Len(S)

If i = Len(S) Then ' 查找到最后。

If Quot And Right(S, 1) = """" Then

P = Left(S, Len(S) - 1) ' 有双引号结束。

Else

P = S ' 无双引号开头与结束。

End If

S = ""

Quot = False

Exit For

ElseIf Mid(S, i + 1, 1) = " " Then ' 遇到分隔符(空格)。

If Quot Then

If Mid(S, i, 1) = """" Then ' 找到结束双引号。

P = Left(S, i - 1)

S = Mid(S, i + 2, Len(S))

Quot = False

Exit For

End If

Else '不以双引号结束。

P = Left(S, i)

S = Mid(S, Len(S))

Exit For

End If

Next

' 将参数添加到数组。

j = j + 1

ReDim Preserve Lines(j)

Lines(j) = P

Wend

SplitCommandLine = Lines

End Function

经过了简单的测试，基本上可以应付Windows下规范的命令行参数了。用法很简单，就像下面的几句即可：

Dim Lines() As String

Lines = SplitCommandLine(Command) ‘ 调用命令行拆分函数。

If UBound(Lines) >= 0 Then ConfigFile = Lines(0)

If UBound(Lines) >= 1 Then AppFile = Lines(1)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!