用VB编写自动升级程序.求助

其实要写自动更新程序很简单的。。。我写过几次，这里要看你想写详细的（检测+下载），还是简单的（下载）

原理很简单，不要什么SQL。

既然要用FTP，那么需要一个控件，MSINET.ocx也就是Microsoft

Internet

Transfer

Control

6.0

这个控件的属性protocol设为ICFTP，

首先连接

FTP服务器

：

Inet1.URL

=

"你的FTP地址"

Inet1.UserName

=

"FTP用户名"

Inet1.Password

=

"FTP密码"

下载

配置文件

（检测是否需要更新）

Inet1.Execute

,

"GET

Config.ini

"

&

App.Path

&

"\Config.ini"

'下载配置文件(Config.ini)到本地，然后读取这个文件里面的内容和本地的是否是一样的，或者哪些不一样，需要下载哪些，

然后就下载需要更新的文件

Inet1.Execute

,

"GET

你要下载的文件.exe

"

&

App.Path

&

"\下载到的目录和文件名"

这样就可以实现一个简单的更新了。。。

可以在服务器端放2个文件，一个假如是Update.ini，还有一个就是你的程序，假如是http://www.abc.com/1.exe，在本地还要有一个文件，存放设置，假如是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,"http://www.abc.com/Update.ini", 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,"http://www.abc.com/1.exe", App.Path &"\Update\1.exe", 0, 0)

End Sub

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

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

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

---