一、实现原理
         一般来说Update分为客户端和服务器端两个组成部分，客户端接收服务器上的更新信息，并下载更新文件，然后完成一系列注册、配置等更新工作，全部自动化，不用人工操作。
　　根据笔者的经验，Update程序最好独立于主程序之外，也就是说有一个单独的Update.exe程序来执行更新操作，这样既可以直接更新主程序，也便于完成Update的“自身更新”。
　　首先，我们遇到的第一个问题是选择合适的开发工具。一般来说Update的功能并不复杂，只是完成下载更新的功能，所以本文就用VB语言编写代码。另外也可以选用一些成熟的Update组件，例如用.NET框架开发的应用程序更新组件AppUpdater等，都可以很方便地帮助我们而只需要编写极少的代码。
　　由于各种Update程序的种类繁多，本文主要介绍通用的一些特性以及适合个人编程、小型公司的Update经济方案，执行流程如下：
　　1.下载网站某个页面,根据页面内容获得最新版本号；
　　2.如果最新版本高于当前版本,则下载升级文件(一般为压缩包)；
　　3.释放文件,并用最新文件替换旧文件完成升级。
　　按照这个最简化的方案，当开发者需要更新升级软件的时候，只用FTP上传更新文件即可。好处是可以不必开发服务器端，更不用购买或租用昂贵的升级服务器。
　　OK，我们现在开始详细剖析Update的具体执行过程，软件界面如图。
二、穿tou防火墙
　　首先，Update要对网络是否已经连通进行判断。笔者在这个问题上反复使用过多种方法：Ping某个IP地址、获取注册表键值、网卡连通判断等等，最终都不理想。原因在于IP地址可能变化、甚至有时候即使物理连通了，也不一定能够确保文件的下载更新。
　　笔者使用的方法是利用Microsoft Internet Con　trols控件访问开发者的官方首页来判断网络是否已经连通。代码如下：
　　Dim Network As Long
　　Private Sub Form_Load()
　　WebBrowser1.Navigate "http://www.boobsoft.com"
　　End sub
　　Private Sub WebBrowser1_DownloadComplete() '当Web页面载入完毕此事件激活
　　If Network = 0 Then
　　Label1.Caption = "正在升级，请稍后..."
　　Update '调用升级过程
　　End If
　　End Sub
　　Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean) '当Web页面浏览失败的时候此事件激活
　　Network = -1'必需此语句，在Update过程中要判断网络是否持续通畅
　　MsgBox "网络没有连通，或升级服务器临时关闭，请稍后再试。"
　　End Sub
　　小经验：Internet Controls控件的好处不仅是代码简单，它是微软官方控件，更重要的是可以直接穿tou防火墙，节省了我们很多时间。

本新闻共2页,当前在第1页  1  2  

本新闻共2页,当前在第2页  1  2