定义自动检测版本文件
网页内容直接写版本号就行了, 不需要其它HTTP代码
Sub ddd()Dim http, Pols, Arr, i, u
dqbb = "配货单发出工具:1.1"
Set http = CreateObject("Microsoft.XMLHTTP")
u = "http://192.168.1.252/www/excel.html"
http.Open "POST", u, False
http.send ""
v = http.responseText
MsgBox v
'a = InStr(0, v, dqbb, vbTextCompare)
If IsError(Application.Find(dqbb, v, 1)) Then
MsgBox "版本错误"
Else
MsgBox "正确"
End If
Set http = Nothing
End Sub
结束