Question

vb 判断网页打开

1、打开一个网页的时候，有的时候网络不好，网页打不开，text显示“网页打不开”
2、接着刷新webbrowser

Answer 1

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里显示长度数值)