UC知道vb问题:如何判断网页是否被正常打开
来源：百度知道 编辑：UC知道 时间：2024/09/24 08:23:37
下面这段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、网页无法显示 。
判断当这些情况发生时如何返回错误信息。
先谢了。
秋色烽火 ,能解释一下你的代码吗谢谢.
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、网页无法显示 。
判断当这些情况发生时如何返回错误信息。
先谢了。
秋色烽火 ,能解释一下你的代码吗谢谢.
用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 = "网页已打开"