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

Private Sub Command1_Click()
　Command1.Enabled = False

　' 运行更新程序

　Shell App.Path & "\update.exe", vbNormalFocus

End Sub

Private Sub Form_Load()
　If App.PrevInstance Then End
　UpdateIniPath = App.Path & "\Update.ini"
　' 记录主程序的名字
　WritePrivateProfileString "Main", "Name", App.EXEName, UpdateIniPath

　' 记录运行状态
　WritePrivateProfileString "Main", "Active", "-1", UpdateIniPath

　' 记录更新次数
　WritePrivateProfileString "Update", "Num", "0", UpdateIniPath
　Me.Caption = App.EXEName
End Sub

Private Sub Form_Unload(Cancel As Integer)
　' 记录运行状态
　WritePrivateProfileString "Main", "Active", "0", UpdateIniPath
End Sub

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

Attribute VB_Name = "modCommon"

Option Explicit

客户端自动升级建议重新另外写一个 autoupdata.exe 程序进行升级

也就是从网络上下载新的程序补丁,覆盖原文件.即可..很简单的.没什么技术含量.