怎样用VB自动更新应用程序?

s=trim(command())

'取得命令行参数

应该是这个形式:FastCopy.exe

网络目录名，文件名

's的返回值是

网络目录名，文件名

如:“\\liang\,myadd.exe"

'然后为了区烂备分开目录名和文件名,就查销衡找","号

p=instr(1,s,",")

'如果找到饥斗毁就分别取“,”前面的目录和后面的应用程序名。

可以在服务器端放2个文件，一个假如是Update.ini，还有一个就是你的程序，假如是，在本地还要有一个文件，存放设置，假如是config.ini

Update.ini:

[update]

new=1.0.1

config.ini:

[config]

ver=1.0.0

代码：

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 Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Form_Load()

r = URLDownloadToFile(0,"", App.Path &"\Update\u.ini", 0, 0)

'下载好文件后，就开始读ini了

Dim ret As Long

Dim nowv, newv As String

nowv = Space$(1000) '事先定义读取值的字串宽度

'读出新版本和旧版本

ret = GetPrivateProfileString("update", "new", ""猜森, newv, 1000, App.Path &"\Update\Update.ini")

ret = GetPrivateProfileString("config", "ver", "", nowv, 1000, App.Path &"\Update\Update.ini")

'如果新版本和旧版本不同，则开始下载新版本

If nowv <>newv Then

r = URLDownloadToFile(0,"", App.Path &"\Update\1.exe", 0, 0)

End Sub

写了这么多，楼主是不是给点喊携分，多给点

一楼说文件类型，显然是没有看穗渗亩题

看到二楼说的，我无语~~

我自己写过一个这样的程序，但是由于我有商业用途，不方便给你源代码，给你点思路吧。

1、在你的网站上放一个可以存放文件版本信息的txt文件。

2、当打开你的程序时，先下载这个文件（这个步骤在网上搜索一下，很多这方面的资料）

3、读取该文件中的版本信息，如果与当前本机版本信息不符，启动中间升级程序，用第二步中的方法肆凯枝下载裂敏新的exe文件。并且记得关闭你孙核正在运行时的vb程序，为了后面替换用。

4、检查新下载的文件完整性，然后替换该文件。

---