Question

vb6 中，用webbrowser 写的控件打开网页，如何能判断网页是否正常打开、超时、不能打开。

vb6 中，用webbrowser 写的控件打开网页，如何能判断网页是否正常打开、超时、不能打开。

Answer 1

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Debug.Print Text
End Sub

追问

这是测试的吧，怎么用的

追答

Text 就是网页的状态啊。

追问

怎么使用。使用方法能说说？？？直接在代码中写好后，直接按执行按钮吗？

追答

Dim a
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Me.Print a
End Sub
Private Sub WebBrowser1_DownloadComplete()
If a = "Internet Explorer 无法显示该网页" Then a = "打开网页失败"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
a = Text
End Sub

追问

你这样不行的，有些站是跳转，比如用过联通的宽带都知道，出错的网址就到wo.com.cn一大串地址上了。你无法判断这是很明显的能打开。只不过是跳转了 或者有办法知道跳转就好了。跳转的网页怎么判断出来 这是主要的

追答

那你自己多加一些ＩＦ判断嘛，例如
If a = "陕西电信纠错页面" Then a = "不能打开"

追问

呵呵，这样不准，我目前是这样做的。直接读取返回值，然后，比对网址。但也有些问题。才想找个更好的办法，没想到你这个办法这么笨，呵呵