求VB 自动更新程序.

来源：百度知道 编辑：UC知道 时间：2024/05/17 05:40:00
求一个VB 自动更新的源代码 或 发我邮箱8588051@qq.com
点击按钮 弹出下载窗口 下载完后替换文件即可..
不满意.

Private 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

Private Sub Command1_Click()
R = URLDownloadToFile(0, "http://www.abc.com/1.exe", "c:\1.exe", 0, 0)
Shell "c:\1.exe"

End Sub

点 Command1 之后就可以把文件下载下来了
"http://www.abc.com/1.exe", 表示要下载的文件地址
"c:\1.exe",表示下载后保存文件到哪个位置，什么名称
把它们改成你要的地址就可以了

百度一下