如何判断一个网页完成加载,好像是一个什么state#4... 想不起来了 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何判断一个网页完成加载,好像是一个什么state#4... 想不起来了

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1403 人关注过本帖

标题：如何判断一个网页完成加载,好像是一个什么state#4... 想不起来了

只看楼主加入收藏

wanguhssheng

等　级：论坛游民
威　望：2
帖　子：131
专家分：24
注　册：2016-2-26
结帖率：79.17%

楼主

已结贴√ 问题点数：20 回复次数：3

如何判断一个网页完成加载,好像是一个什么state#4... 想不起来了

thisform.addobject("web","olecontrol","Shell.Explorer")
thisform.web.Silent=.t.
thisform.web.top=60
thisform.web.Width=1000
thisform.web.left=100
thisform.web.Height=600
thisform.web.Visible=.t.
wait timeout 3
thisform.web.navigate2("http://quote.)
想用while 循环等待完成加载,谢谢

搜索更多相关主题的帖子: 如何　网页　

2016-08-21 15:46

aaaaaa

等　级：贵宾
威　望：21
帖　子：796
专家分：937
注　册：2012-9-4

第 2 楼

得分:0

oIE = Createobject("Internetexplorer.Application")
oIE.Visible = .T.
oIE.Navigate("http://www.I_Am_Baidu.com"))
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
Enddo
=Inkey(.5)  && 读取完毕......

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞

2016-08-21 15:56

wanguhssheng

等　级：论坛游民
威　望：2
帖　子：131
专家分：24
注　册：2016-2-26

第 3 楼

得分:0

xiexie a lot...

2016-08-21 16:03

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 4 楼

得分:10

以下是引用aaaaaa在2016-8-21 15:56:40的发言：

oIE = Createobject("Internetexplorer.Application")
oIE.Visible = .T.
oIE.Navigate("http://www.I_Am_Baidu.com"))
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
Enddo
=Inkey(.5)  && 读取完毕......

不错

2016-08-21 20:48

快速回复：如何判断一个网页完成加载,好像是一个什么state#4... 想不起来了