VB如何检测网上的某个网页能否打开

Question

本人翻了很多这方面的例子.其中用Inet1控件能返回其指定网页的大小.如果打不开则返回0.不过我需要的是这个网页的返回状态码.比如说如果返回200,说明网页能够正常打开,如果是500,则服务器内部发生错误,如果是404,则文件不存在等!
    我巳找遍CSDN和GOOGLE,百度了,仍无法查到,只好救助于网上的高手不惜赐教了!最好能讲详细点,附代码就最好不过了!
    在线等待!

Answer 1

用inet下载网页,然后分析返回的页面(读字符串)就是
或者用winsock发送http请求命令,然后比较返回信息

Answer 2

看看MSDN里中关于inet和winsock的介绍先....
你会用inet打开网页或者下载文件不?

Answer 3

RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))Select Case RetCodeCase 200MsgBox "成功"Case 404MsgBox "没有发现"Case ElseMsgBox "Error"End Select

Answer 4

完整代码为:
1 添加一Inet1控件
2 添加一按钮,以下是按钮内容Inet1.OpenURL ("http://www.sohu.com") '也可以是其它页面RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))Select Case RetCodeCase 200MsgBox "成功"Case 404MsgBox "没有发现"Case ElseMsgBox "Error"End Select感谢 lxcc(虫子|需要点勇气和信心)