关于用VB6.0编写客户端自动升级程序

Private Sub Command1_Click()

　Command1Enabled = False

　' 运行更新程序

　Shell AppPath & "\updateexe", vbNormalFocus

End Sub

Private Sub Form_Load()

　If AppPrevInstance Then End

　UpdateIniPath = AppPath & "\Updateini"

　' 记录主程序的名字

　WritePrivateProfileString "Main", "Name", AppEXEName, UpdateIniPath

　' 记录运行状态

　WritePrivateProfileString "Main", "Active", "-1", UpdateIniPath

　' 记录更新次数

　WritePrivateProfileString "Update", "Num", "0", UpdateIniPath

　MeCaption = AppEXEName

End Sub

Private Sub Form_Unload(Cancel As Integer)

　' 记录运行状态

　WritePrivateProfileString "Main", "Active", "0", UpdateIniPath

End Sub

用记事本打开modCommonbas文件，copy以下内容到其中：

Attribute VB_Name = "modCommon"

Option Explicit

把思路告诉你:

在服务器端和客户端的某个文件夹下放置一个版本检测文件,比如versiontxt。

客户端可以自动向服务器查询当前的版本，服务器端程序根据客户端的请求，从versiontxt文件中获取当前版本号,并回复给客户端,客户端收到信息后,对照本地的versiontxt文件中存储的版本号,若有更新,就利用文件传送把服务器端的文件下载下来

以上就是关于关于用VB6.0编写客户端自动升级程序全部的内容，包括:关于用VB6.0编写客户端自动升级程序、求C++编写的自动升级程序C/S结构、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！