VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 154|回复: 1

如何判断 WebBrowser1 正常加载完一个网站的网页?

[复制链接]
发表于 2020-5-8 03:48:35 | 显示全部楼层 |阅读模式
程序添加了 3个 WebBrowser1 控件   用来测试 3种 可能性

WebBrowser1.Navigate "www.baidu.com"       ‘这个可以正常打开网站  然后Form2 打开

WebBrowser2.Navigate "www.XXX.com"         '这个 页面显示 404 错误 或者 无法显示      然后Form3 打开

WebBrowser3.Navigate "http://123.123.123.123"   ’这个是页面不存在  或者 无法显示      然后Form4 打开


我是如何用VB判断  这3个 效果 ?? 做出相应的 效果???






 楼主| 发表于 2020-5-21 01:22:16 | 显示全部楼层
Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is Web1.Object) Then
MsgBox "网页下载完毕!"
End If
End Sub

'----- 或者判断属性状态来确定是否加载完毕!
1=正在连接
3=已经链接到
4=加载完毕

Do
DoEvents
If Web1.ReadyState = 4 Then MsgBox "载入完成111111111111111111111111111111111": Exit Do
Loop
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-7 01:11

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表