VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 400|回复: 3

如何判断 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
回复 支持 反对

使用道具 举报

发表于 2020-7-10 15:10:08 | 显示全部楼层
前一段写判断网络和本地版本号的时候用了一个笨方法,楼主可以参考下
WebBrowser1.Navigate "www.xxx.com/1.php"  1.php里面是放的版本号,只写数字和.
Text2.Text = WebBrowser1.Document.body.innerhtml '调用WebBrowser1中的网络版本号
If Text2.Text Like "*a*" Or Text2.Text Like "*b*" Or Text2.Text Like "*c*" Or Len(Text2.Text) = 0 Then
Command2.Enabled = False '如果有字母
MsgBox "【出错】电脑没联网(请在联网后再次运行本程序)或未获取到最新版本号(请重新运行本程序尝试获得最新版本号)"
End
Else
Command2.Enabled = True '如果没字母
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-8-4 07:32

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