Question

急求VB软件自动更新源码！谢谢了，大神帮忙啊

要求：有进度条和下载详细信息。我把软件放到我的服务器上的如" www.baidu.com/1.rar ”当打开软件的时候就检测如果没有检测到新软件就提示无新版本然后关闭提示，反过来如果有更新那么旧软件就强制不能使用必须下载新版本使用，要求就这么简单高手速度回答谁的答案给力实用我就把分给谁。最后提醒一下如果需要什么控件一起打包别偷懒我要是用不了一分也没有。必须发送邮箱不发的没分，另外要求把全部工程给我打包传送给我。好了没要求了。希望大家认真的回答。 总的来说我的意思就是让各位帮忙写一个能实现软件自动更新。写好了源码工程打包发送ringi@qq.com必须我打开工程无错误。控件也要打包。本人高分作为报酬。如果不明白的加我Q来问我412069412.本人400分 事情办好了追加你200分

Answer 1

Private Function GetKey(ByVal str As String) As String Dim nOffset As Long nOffset = InStr(str, "=") If nOffset > 0 Then GetKey = Trim(Mid(str, 1, nOffset - 1)) Exit Function End If GetKey = vbNullString End Function Private Function GetVal(ByVal str As String) As String Dim nOffset As Long nOffset = InStr(str, "=") If nOffset > 0 Then GetVal = Trim(Mid(str, nOffset + 1)) Else GetVal = vbNullString End If End Function Private Function GetHttpFileName(ByVal str As String) As String Dim nOffset As Long nOffset = InStrRev(str, "/") Dim strTemp As String If nOffset > 0 Then strTemp = Trim(Mid(str, nOffset + 1)) End If GetHttpFileName = strTemp End Function Private Sub OnLoadConfigFaild() Label1.Caption = "获取更新列表失败" End Sub Private Sub LoadFile(ByVal strFile As String) mStatus = TaskLoadFile mFile = GetHttpFileName(strFile) If Len(mFile) = 0 Then Call LoadFileFaild Exit Sub End If Http.Open "GET", strFile, True Http.Send Label1.Caption = "开始读取文件" End Sub Private Sub LoadFileFaild() Label1.Caption = "下载文件失败" End Sub Private Sub LoadFileEnd() On Error GoTo lblErr: Dim bytData() As Byte bytData = Http.ResponseBody Open mFile & ".update.exe" For Binary As #1 Put #1, 1, bytData Close Label1.Caption = "正重启程序" On Error Resume Next Shell "Loader.exe " & mFile & "," & mFile & ".update.exe" End Exit Sub lblErr: Label1.Caption = "下载文件失败" End Sub Private Sub UpdatePercent(ByVal n As Long) If mStatus = TaskLoadFile Then Label1.Caption = "已下载 " & n & "%" DrawPerent n End If End Sub Private Sub Http_OnResponseStart(ByVal Status As Long, ByVal ContentType As String) nTotalSize = 0 nCurrSize = 0 On Error Resume Next nTotalSize = Http.GetResponseHeader("Content-Length") If Status <> 200 Then Http.Abort LoadFileFaild End If End Sub Private Sub DrawPerent(ByVal n As Long) For i = 0 To Picture1.ScaleWidth * n / 100 Picture1.Line (i, 0)-(i, Picture1.ScaleHeight), RGB(0, &HFF, &H66) Next End Sub