VB6.0 制作升级程序

我原来写的一个自动升级程序,是在服务器站用了一个ini文件,记录exe的版本号,然后使用URLDownloadToFile下载到本地,然后与本地文件进行对比,如果版本号不一样,再使用URLDownloadToFile下载exe文件到本地
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
'//
'/函数功能：从服务器下载文件
'/参数说明：参数一 服务器文件路径,本地文件路径
'/编 写 人：于莹莹
'/编写日期：2007-8-28
'//
Public Function DownloadFile(url As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
DeleteUrlCacheEntry url
End If
End Function
使用方法:
DownloadFile ">双击打开电脑右下角的管家婆服务器 上面有版本信息
检查本地电脑的管家婆服务器版本是否是102
检查服务器的管家婆服务器版是否是102
如果不是退出这个服务器打开正确版本的服务器

---