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

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

标题：如何判断一个网页完成加载,好像是一个什么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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-468063-1-1.html