〓紧急求助〓 WebBrowser控件如何判断网页是否完全打开....解决后马上给分....十分感谢

2007-10-15 10:52:32 608 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

UE4数字孪生动态UI架构：基于WebSocket与JSON的实时通信实战在数字孪生与工业互联网应用开发中，实现运行时动态更新的用户界面（UI）是提升系统灵活性与可维护性的关键需求。其核心原理在于打破传统游戏引擎UI系统（如UE4的UMG）的编译依赖，通过建立高效的双向数据通道，实现外部系统对孪生场景内UI元素的实时控制与数据驱动。从技术价值看，这不仅是简单的功能实现，更是一种架构思维的升级，它将Web前端生态（HTML/CSS/JavaScript）在UI构建上的高效、灵活优势，与UE4在实时3D渲染和物理仿真方面的强大能力相结合。这种结合通过**WebSocket**协议与* 阅读详情

我的问题是这样的

我数据库中存有很多网页.我现在要循环打开这些网页.并取一些数据.
我想问一下我怎么判断网页是否完全打开呢?
我的程序是这样的..

do while not Rs.eof
strUrl=rs!url '取数据库中网页地址
WebBrowser1.Navigate StrURL '打开网页
'怎么判断网页是否已打开?还有如果失败了怎么判断..
call getWebValue '取数据
Rs.MoveNext
loop

...全文

DeepSeek与豆包无缝对接：5分钟搞定智能周报自动化（附完整代码）本文详细介绍了如何利用DeepSeek与豆包API，快速搭建一个智能周报自动化系统。通过整合豆包平台的工作流数据，并调用DeepSeek大模型进行深度分析与内容生成，该系统能在5分钟内自动抓取、分析多源信息，并生成结构清晰、富有洞察力的团队周报，显著提升工作效率。阅读详情

guxing110

网络编程 1,502 成员 18,427 内容

+ 关注 + 加入社区

切换为时间正序

guxing110 2007-10-16

打赏
举报

谢谢各位.我测试一下.
解决后结贴

zzyong00 2007-10-16

打赏
举报

别人告诉你，你得测试一下吧！
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
debug.print url
End Sub
这样，你不就知道DocumentComplete的触发过程了吗？当网页完全下载完，哪个url就是你navigate的url, 也是WebBrowser1.LocationURL

tianhuo_soft 2007-10-16

打赏
举报

documentcomplete 事件是在网页完全加载完的事件
如果有的图片打开速度很慢很慢你是等还是不等

一般是读取所有连接,能把所有连接读取完毕就证明这个网页全打开

guxing110 2007-10-16

打赏
举报

1200条数据代码打开了1200次网页.

guxing110 2007-10-16

打赏
举报

If Not (pDisp Is WebBrowser1.object) Then Exit Sub

我用了这个判断可以判断网络完全打开..
但当我采集到1200条左右的数据的时候就发现不能继续采数据了.

程序还在不停的打开网页.就是没数据
我一直这样循环的打开网页.然后取数据.是不是哪些地方不对?

guxing110 2007-10-16

打赏
举报

documentcomplete 的确是用这个事件

Private Sub Command1_Click()
StrURL = Rs!URL
If Rs.EOF Then
MsgBox ("读取完毕")
Else
WebBrowser1.Navigate StrURL
End If
Rs.MoveNext
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = StrURL Then
Call getWebValue
Command1_Click
End If
End Sub

这个思路是对的...没错
但是在If WebBrowser1.LocationURL = StrURL Then 判断这里出问题
问题是网页刚刚打开.网页中的内容还没完全显示出来.这里就为True了.
还是原问题.判断网页内容是否完全打开....

zzyong00 2007-10-15

打赏
举报

WebBrowser1控件的documentcomplete事件发生，说明网页下载完成

蒋晟 2007-10-15

打赏
举报

http://support.microsoft.com/kb/180366

clear_zero 2007-10-15

打赏
举报

leebo123 2007-10-15

打赏
举报

documentcomplete 的确是用这个事件

Private Sub Command1_Click()
StrURL = Rs!URL
If Rs.EOF Then
MsgBox ("读取完毕")
Else
WebBrowser1.Navigate StrURL
End If
Rs.MoveNext
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.LocationURL = StrURL Then
Call getWebValue
Command1_Click
End If
End Sub

我大概写了一下你看看吧思路是这样得你具体怎么实现看你自己了

guxing110 2007-10-15

打赏
举报

1 楼的有英文版本吗?
2 楼的回答好像也不行...
我那段是循环的...速度很快
而且有时网页还没有下载完成.这个事件也触发了

〓紧急求助〓 WebBrowser控件 如何判断网页是否完全打开....解决后马上给分....十分感谢

相关推荐

〓紧急求助〓 WebBrowser控件如何判断网页是否完全打开....解决后马上给分....十分感谢