如何对软件进行自动升级

fuzq 2003-04-15 08:49:11

如上，，很多时候我们都要对软件进行自动升级的，，
小弟，对此十分不懂，，望各位能帮我下，，最好能给出点源代码！！！

...全文

152 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

chenyu5188 2003-04-21

打赏
举报

有了，就不再贴了。UP

fule 2003-04-21

打赏
举报

好东东，我正找这东西

fuzq 2003-04-21

打赏
举报

怎么给不了分的？？？
说是给分次数大于回复次数!!!!!!!!!!!!!

fuzq 2003-04-21

打赏
举报

先谢过了

fuzq 2003-04-20

打赏
举报

那么大的网站也没个人会的吗？？？

nydelphi 2003-04-20

打赏
举报

添加功能

gang75 2003-04-20

打赏
举报

fontz 2003-04-20

打赏
举报

'别人的代码，我自己又改了一下：
'需要：Microsoft Internet Transfer Control 6.0控件
'原理：在网站上建立一个updata.txt文件，里面保存升级信息
'updata.txt文件格式：
'文件内容：
'共三行，第一行：版本号；第二行：更新文件名；第三行: 文件长度

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Const SW_MINIMIZE = 6

Public Sub UpData() '在线升级
On Error GoTo 100
Dim MyData() As Byte, VerInfo() As Byte, Ti As Long, Tj As Long

If Inet1.StillExecuting = True Then Exit Sub
VerInfo() = Inet1.OpenURL("http://fontz.ajiang.net/updata.txt", icString)
Ti = InStr(1, VerInfo, vbCrLf) + 2
Tj = InStr(Ti, VerInfo, vbCrLf)

'检测版本号
If Val(Left$(VerInfo, Ti - 3)) <= Val(App.Major & "." & App.Minor & App.Revision) Then Exit Sub
If MsgBox("SWpsF 发布了新的版本：" + Left$(VerInfo, Ti - 3) + "，文件大小：" + Mid$(VerInfo, Tj + 2) + "，是否进行在线升级？", vbYesNo + vbQuestion, "在线升级") = vbNo Then Exit Sub
IsUp = True

'开始下载更新文件
MyData() = Inet1.OpenURL("http://fontz.ajiang.net/" + Mid$(VerInfo, Ti, Tj - Ti), icByteArray)
Open App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti) For Binary Access Write As #1
Put #1, , MyData()
Close #1
IsUp = False
'执行更新文件
ShellExecute 0, vbNullString, App.Path + "\" + Mid$(VerInfo, Ti, Tj - Ti), vbNullString, App.Path, SW_SHOWNORMAL
End
100
End Sub

fuzq 2003-04-17