$xPost = ObjCreate("Microsoft.XMLHTTP")
$xPost.Open("GET", "http://www.google.com.hk/", 0)
$xPost.Send()
If $xPost.Status = 404 Then
MsgBox(0, '检查链接', "该网页不存在! ")
ElseIf $xPost.Status < 200 Then
MsgBox(0, '检查链接', "客户端错误,信息: " & $xPost.StatusText)
ElseIf 200 <= $xPost.Status < 300 Then
MsgBox(0, '检查链接', "成功,该网页能访问。 ")
ElseIf 300 < $xPost.Status < 400 Then
MsgBox(0, '检查链接', "重定向,信息: " & $xPost.StatusText)
ElseIf 400 < $xPost.Status < 500 Then
MsgBox(0, '检查链接', "客户端错误,信息: " & $xPost.StatusText)
ElseIf 500 < $xPost.Status < 600 Then
MsgBox(0, '检查链接', "服务器错误,信息: " & $xPost.StatusText)
EndIf
参考资料:
http://topic.csdn.net/t/20050420/12/3951663.html |