探测服务器信息,如何利用xmlhttp检测url及探测服务器信息.docx

如何利用XMLHTTP 检测URL及探测服

务器信息

利用XMLHTTP检测或监测URL ,确认某个网页或网站是否可

以正常访问？

如何利用XMLHTTP探测服务器信息？检测网页

Microsoft XML Versio n 2.0 (C:Wi nn tSystem32msxml.dll)

Opti on Explicit

Private XmlHTTP As New XMLHTTPRequest

Private vUrl As Stri ng

Private vNumber As String

Private vDescripti on As String

Private vSource As String

Public Sub Conn ect()

On Error GoTo ErrorHa ndle:

XmlHTTP .Open \ Get\ , Url, False

ErrorHa ndle:

Call GetErrorHeadle(XmlHTTP)

AsEnd Sub

As

Private Sub GetErrorHeadle(ByRef XmlHTTP

XMLHTTPRequest)

If XmlHTTP .readyState 4 Then

Exit Sub

End If

If XmlHTTP .Status = 404 Then

Number = \ 404\

Description = \该网页不存在\

ElseIf XmlHTTP .Status 200 Then

Number = XmlHTTP .Status

Description = \客户端错误，信息：\ CStr(XmlHTTP .Status)

\ \ XmlHTTP .statusText

Number = XmlHTTP .Status

Description = \成功，该网页能访问。\

ElseIf XmlHTTP .Status 400 Then

Number = XmlHTTP .Stauts

Description = \重定向，信息：\ CStr(XmlHTTP .Status) \ \

XmlHTTP .statusText

ElseIf XmlHTTP .Status 500 Then

Description = \客户端错误，信息：\ CStr(XmlHTTP .Status)

\ \ XmlHTTP .statusText

Elself XmlHTTP .Status 600 Then

Number = XmlHTTP .Status