当前位置:编程学习 > VB >>

VB如何检测软件更新?

我想用VB里的Inet控件实现网络硬盘里的软件更新检测。(我用的是RayFile)

已经能做到用OpenURL方法来检测网络硬盘里面的版本信息TXT了

但之后就不会怎样将指定地址里的软件下载到本机里。

请问有哪位高手能指点一下?。。。谢谢!!

追问:不是文件下载问题。

是文件下载地址问题。

上传个新文件后,下载地址就跟这着一起变。

答案:以下是我用在自己写的程式里的升级功能模块.自己看看.需要更详细的整体升级程式请联系我.

 

Global myVer As String
Global status$
Global UpdateTime As Integer

Public Function GetInternetFile(Inet1 As Inet, myURL As String, DestDIR As String) As Boolean
    ' Written by: Blake Pell
   
'    On Local Error GoTo 100
   
    Dim myData() As Byte
    If Inet1.StillExecuting = True Then Exit Function
    'Frm.Caption = Len(myfile$)
   
    myData() = Inet1.OpenURL(myURL, icByteArray)


    For X = Len(myURL) To 1 Step -1
        If Left$(Right$(myURL, X), 1) = "/" Then RealFile$ = Right$(myURL, X - 1)
    Next X
    myfile$ = DestDIR + RealFile$
    'frm.Caption = FileLen(
    Open myfile$ For Binary Access Write As #1
    Put #1, , myData()
    Close #1
   
    GetInternetFile = True
    Exit Function

' error handler
100 X = MsgBox("在文件传送或写入时发生错误,请稍后再试!", vbInformation)
    GetInternetFile = False
    Resume 105
105 End Function

你自己更新一个文本文件放在自己网站上
写好版本等等

然后用Winsock把文本文件下载下来(反正不大)

再根据你的定义读出来再返回结果就可以了~~

用api函数urldownloadtofile

声明

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

要下载时就用

URLDownloadToFile 0, "填写下载地址", "文件保存地址", 0, 0

上一个:VB 修改图片尺寸大小
下一个:VB程序判断打开图片

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,