其中：ClientInfor.inf 文件：

第一行的数据表示： 客户端游戏版本号

第一行的数据表示： 更新文件存放的网络路径

UpdateInfor.inf文件：

第一行的数据表示： 最新游戏版本号

第二行的数据表示： 有多少文件需要更新

后面每行的数据表示： 需要更新的文件的名称

frmUpdate.frm窗体： 负责下载

modZip.BAS模块： 只负责用来压缩文件和解压缩文件的

其中的 UnZipTo 函数用来解压缩的

zlib.dll： 为WinZip的dll文件



更新完毕后，ClientInfor.inf文件的第一行的数据会变为最新版本号







frmUpdate.frm窗体代码如下：





Private Sub cmdExit_Click()

Unload Me



End Sub





Private Sub cmdUpdate_Click()

Dim strClientInfor() As String

Dim strUpdateInfor() As String

Dim nNum As Integer 存-err