vb 判断WebBrowser1是否打开

来源：百度知道 编辑：UC知道 时间：2024/09/20 19:26:56
WebBrowser1打开的时候什么提示都不出,只有WebBrowser1打不开并无法找到的时候出一个对话框 MsgBox "猪头!找不到" 并转到一个我门自己设置的网页打开.

请各位帮忙!!!!!!!!
请给我写VB代码!!!

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
MsgBox "错误"
WebBrowser1.Navigate "http://www.tlovem.88pl.com/"
End Sub