在VB中如何实现软件的自动更新

如何在一个窗体中添加一个按钮，使程序能自动从网上更新版本。求亲们能写下详细的方法及代码。还有我提供的更新内容又该放在哪里呢？asp空间可以吗

答案：
我们制作VB软件的时候，会考虑到客户端与服务端的问题，每次更新时，不希望都去一个个用户进行通知，于是就想到直接当有更新版时，在客户端就自动实现软件的更新提示，或添加一个按扭实现引导更新的作用，但这个具体要如何弄呢？我们来看看； 一》打开VB，然后新建一工程；  
　　在上面加一个LABEL控件、一个时间控件，定义LABELE控件的caption属性为：“程序正在检测更新中，请稍后……” 
　　并对时间控件添加如下代码： 
 Private Sub Timer1_Timer()  
 Static a As
程序设计的最终结果是软件。
 
ADO控件与数据库连接代码如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() '插入数据： If rs.State <> adStateClosed Then '检查记录集状态 rs.Close End If rs.Open "insert into T_user(name,age) values('" & txtname.Text & "'," & txtage & ")", conn, adOpenDynamic, adLockBatchOptimistic If rs.State <> adStateClosed Then rs.Close End If '更新DataGrid1数据 rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient '游标放在客户端 rs.CursorLocation = adUseClient rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close '释放 conn.Close Set rs = Nothing Set conn = Nothing End Sub
Private Sub Form_Load() Timer1.Enabled = True Inet1.Protocol = icHTTP Text1.Text = Inet1.OpenURL(" http://www.hv30.com/ceshi.txt ") End Sub Private Sub Text1_Change() If Text1.Text = "有更新" Then If MsgBox("发现新的软件可以更新，请问是否更新", vbYesNo, "更新

上一个：急求一份VB毕业设计
下一个：寻求 VB 后台邮件发送软件源码！