用VB 检测一个网络的DAT或者EXE文件的修改时间或者MD5码之类的，主要就是想知道这个网络文件有没有改变，请不要说下载下来在检测，那个文件几G 根本不行！只要可以达到知道网络那个文件是不是有修改了就行了
Private Sub Form_Load() url = "http://zhidao.baidu.com/question/159150923.html" url = "http://www.baidu.com/img/baidu_<a href="https://www.jb51.cc/tag/logo/" target="_blank" class="keywords">logo</a>.gif" Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") XMLHTTP.Open "HEAD",Trim(url),False XMLHTTP.send Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> XMLHTTP.getAllResponseHeaders If InStr(1,XMLHTTP.getAllResponseHeaders,"Last-Modified") Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>最后更新时间：" & 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,"GMT") - InStr(1,") - 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,"Last-Modified") = 0 Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>的<a href="https://www.jb51.cc/tag/xiugai/" target="_blank" class="keywords">修改</a>日期失败！",16 GetUrlTime = "" Else GetUrlTime = GMT_Trans(XMLHTTP.getResponseHeader("Last-Modified")) End If End Function Function GMT_Trans(s_time) str_time = Mid(s_time,") - 1) str_time = Trim(str_time) a_strtime = Split(str_time,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
