VB 检测网络文件的修改时间

最新推荐文章于 2023-01-24 08:57:25 发布

wq1282

最新推荐文章于 2023-01-24 08:57:25 发布

阅读量772

点赞数

分类专栏： VB源码文章标签：网络 vb function url string exe

VB源码专栏收录该内容

45 篇文章 0 订阅

订阅专栏

用VB 检测一个网络的DAT或者EXE文件的修改时间或者MD5码之类的，主要就是想知道这个网络文件有没有改变，请不要说下载下来在检测，那个文件几G 根本不行！只要可以达到知道网络那个文件是不是有修改了就行了

Private Sub Form_Load() url = "http://zhidao.baidu.com/question/159150923.html" url = "http://www.baidu.com/img/baidu_logo.gif" Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") XMLHTTP.Open "HEAD", Trim(url), False XMLHTTP.send MsgBox XMLHTTP.getAllResponseHeaders If InStr(1, XMLHTTP.getAllResponseHeaders, "Last-Modified") Then MsgBox "文件最后更新时间：" & GMT_Trans(XMLHTTP.getResponseHeader("Last-Modified")) End If End Sub Function GMT_Trans(s_time) str_time = Mid(s_time, InStr(1, s_time, ",") + 1, InStr(1, s_time, "GMT") - InStr(1, s_time, ",") - 1) str_time = Trim(str_time) a_strtime = Split(str_time, " ", -1, 1) s_month = a_strtime(1) Select Case s_month Case "Jan" s_month = "01" Case "Feb" s_month = "02" Case "Mar" s_month = "03" Case "Apr" s_month = "04" Case "May" s_month = "05" Case "Jun" s_month = "06" Case "Jul" s_month = "07" Case "Aug" s_month = "08" Case "Sep" s_month = "09" Case "Oct" s_month = "10" Case "Nov" s_month = "11" Case "Dec" s_month = "12" Case Else s_month = "01" End Select GMT_Trans = a_strtime(2) & "-" & s_month & "-" & a_strtime(0) & " " & a_strtime(3) End Function

http://zhidao.baidu.com/question/159150923.html

直接使用以下模块

Function GetUrlTime(Url As String) On Error Resume Next Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") XMLHTTP.Open "HEAD", Trim(Url), False XMLHTTP.send If InStr(1, XMLHTTP.getAllResponseHeaders, "Last-Modified") = 0 Then MsgBox "获取文件的修改日期失败！", 16 GetUrlTime = "" Else GetUrlTime = GMT_Trans(XMLHTTP.getResponseHeader("Last-Modified")) End If End Function Function GMT_Trans(s_time) str_time = Mid(s_time, InStr(1, s_time, ",") + 1, InStr(1, s_time, "GMT") - InStr(1, s_time, ",") - 1) str_time = Trim(str_time) a_strtime = Split(str_time, " ", -1, 1) s_month = a_strtime(1) Select Case s_month Case "Jan" s_month = "01" Case "Feb" s_month = "02" Case "Mar" s_month = "03" Case "Apr" s_month = "04" Case "May" s_month = "05" Case "Jun" s_month = "06" Case "Jul" s_month = "07" Case "Aug" s_month = "08" Case "Sep" s_month = "09" Case "Oct" s_month = "10" Case "Nov" s_month = "11" Case "Dec" s_month = "12" Case Else s_month = "01" End Select GMT_Trans = a_strtime(2) & "-" & s_month & "-" & a_strtime(0) & " " & a_strtime(3) End Function