Question

vb问题:如何判断网页是否被正常打开

下面这段VB代码是连接远程服务器的,但发现当网络无连接,或网址错误,或网页无法显示时,程序没有反应.请帮我加入一些判断
1、网络不通；
2、网址错误；
3网页无法显示
返回错误提示的代码,十分感谢.

Private Sub Command1_Click()
With Inet1
.URL = "http://127.0.0.1/1.html"
.Execute , "post"
End With
End If
需要判断的有三个：1、网络不通；2、网址错误； 3、网页无法显示 。

判断当这些情况发生时如何返回错误信息。

先谢了。

秋色烽火 ,能解释一下你的代码吗谢谢.

Answer 1

用inet同样再获取的话可以通过header判断,不过麻烦很多,可以直接考虑判断
WebBrowser1.Document.documentElement.innerHTML的文本是不是你要的

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'检测URL，如果与你指定的URL一样，则表示正常打开

if lcase(url)=lcase("http://aaaa.bbbb.com") then msgbox "打开网页！"

End Sub

如果网页含有框架、框架中的地址打不开这可能检测不到。另外，如果网页有转向操作，这样也检测不到。

还有个笨办法：：

Dim a As String, b As Long

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.hao123.com"
End Sub

Private Sub WebBrowser1_DownloadComplete()
a = WebBrowser1.Document.documentElement.innerHTML
b = Len(a)
If b > 1000 Then
Text1.text = "网页已打开"
Else
Text1.text = "网页打不开"
WebBrowser1.Navigate "http://www.hao123.com"
End If
End Sub

以hao123网为例:
a获取的是打开页面的原代码(HTML源码),用Len来判断原代码字符串的长度.
(一般来说,网页打不开时的原代码比正常打开的网页的代码短,当然,hao123网的代码字符长度远超过1000)
你可以先用以下代码判断长度:
b = Len(a)
Text1.text = b(text里显示长度数值)

Answer 2

监控INet的StateChange事件：

Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error Goto handler

If State = icError Then

MsgBox "ERROR"

End If

Exit Sub ' so handler doesnt run every time

handler:
If err.number = 32576 then
MsgBox "Timeout occurred.. or something"
End If

'or you can:

Select Case Err.Number
Case 32756
'blah
Case 123456
'blah
End Select

End Sub

补充
=========================================
Private Sub Inet1_StateChanged(ByVal State As Integer
Select Case State
Case 0: msgbox "无状态可报告?"
Case 1: msgbox "该控件正在查询所指定的主机的 IP 地址。"
Case 2: msgbox "该控件已成功地找到所指定的主机的 IP 地址。"
Case 3: msgbox "该控件正在与主机连接?"
Case 4: msgbox "该控件已与主机连接成功?"
Case 5: msgbox "该控件正在向主机发送请求?"
Case 6: msgbox "该控件发送请求已成功?"
Case 7: msgbox "该控件正在接收主机的响应?"
Case 8: msgbox "该控件已成功地接收到主机的响应?"
Case 9: msgbox "该控件正在解除与主机的连接?"
Case 10: msgbox "该控件已成功地与主机解除了连接?"
Case 11: msgbox "与主机通讯时出现了错误?"
Case 12: msgbox "该请求已经完成，并且所有数据均已接收到。"
End Select
End Sub

上面0-12是对应State返回的常数值
比如icError = 11
对应检测信息就可以了 你可以配合使用Timer来检测相应设置的变量是否为真达到检测网络的效果

Answer 3

关注
主要是如何处理出错
比如无法打开网页，超时

Answer 4

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.163.com"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label1 = Text
End Sub

是不是你想要的？

Answer 5

网络不通