Question

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

' 升级程序的例子
' 作者: 谢家峰
' 日期: 2003/12/19
'
' 这里是升级程序
'

全文地址在
http://tech.ddvip.com/2006-07/11541776326199_4.html

最后处这样写的:
实际工程中的代码编写时也根本没必要把projNewMain.exe放在资源文件中，读者只需将它放在服务器的某个位置，然后在projUpdate.vbp中的相应处写下载代码即可。

就是搞不明白在projUpdate.vbp中的哪个位置写入下载代码...要FTP或HTTP.最好是FTP地址

如果以知道下载代码,讲如何加入到projUpdate.vbp中?

Option Explicit
Dim WithEvents tg As DownLoad
Dim tmp As Long
Private Sub Form_Load()tg.URL= "ftp://www.skycn.com/admin.exe" '设置下载地址
tg.SaveFile=App.Path& "\admin.exe" '下载后的文件存放位置
tg.Execute '连接网络
tmp = CLng(tg.GetHeader("Content-Length")) '获取下载文件大小
tg.StartDownLoad '开始下载
End Sub

Answer 1

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

Answer 2

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

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