如何利用XMLHTTP检测URL及探测服务器信息

利用XMLHTTP检测或监测URL，确认某个网页或网站是否可以正常访问?

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

Microsoft XML Version 2.0 (C:)

Option Explicit

Private XmlHTTP As New XMLHTTPRequest

Private vUrl As String

Private vNumber As String

Private vDescription As String

Private vSource As String

Public Sub Connect()

On Error GoTo ErrorHandle:

”Get”, Url, False

ErrorHandle:

Call GetErrorHeadle(XmlHTTP)

End Sub

Private Sub GetErrorHeadle(ByRef XmlHTTP As XMLHTTPRequest)

If yState <> 4 Then

Exit Sub

End If

If us = 404 Then

Number = ”404”

Description = ”该网页不存在”

ElseIf us < 200 Then

Number = us

Description = ”客户端错误，信息：” & CStr(us) & ” ” & usText

ElseIf us < 300 Then

Number = us

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

ElseIf us < 400 Then

Number = ts

Description = ”重定向，信息：” & CStr(us) & ” ” & usText

ElseIf us < 500 Then

Number = us

Description = ”客户端错误，信息：” & CStr(us) & ” ” & usText

ElseIf us < 600 Then

Number = us