如何禾IJ用XMLHTTP 检测URL及探测服 务器信息 利用XMLHTTP检测或监测URL,确认某个网页或网站是否可 以正常访问?如何利用 XMLHTTP探测服务器信息?检测网页 Microsoft XML Version (C:)Option ExplicitPrivate XmlHTTP As New XMLHTTPRequestPrivate vUrl As StringPrivate vNumber As StringPrivate vDescription As StringPrivate vSource As StringPublic Sub Connect()On Error GoTo ErrorHandle:XmlHTTP .Open " ” , Url, FalseXmlHTTP .sendErrorHandle:Call GetErrorHeadle(XmlHTTP)End SubPrivate Sub GetErrorHeadle(ByRef XmlHTTP As XMLHTTPRequest)If XmlHTTP .readyState 4 ThenExit SubEnd IfIf XmlHTTP .Status = " " ”该网页不存在” ElseIf XmlHTTP " ” " HTTP 服务器:” ”所有反馈 信息:” & XmlHTTP .getAllResponseHeadersEnd SubPublic Property Get Number() As StringNumber = vNumberEnd PropertyPublic Property Let Number(ByVal Val As String)vNumber = ValEnd PropertyPublic Property Get vDescriptionEnd Description。 As StringD