【QTP】等待页面加载的几种方法

在脚本的编写过程中，经常会遇到脚本执行太快，导致页面还没有加载完毕，而脚本却已经执行到下面N条，为了避免这样的情况，列举了几种等待页面加载的方法：

【1】

在File-->Settings-->Run-->Objectsynchronization中设置，默认时间是20秒。也就是说QTP会在20秒内不断的查找对象，如果在20秒内，页面控件出现，则能正常进行，超过20秒就要报错了。

虽然加长超时时间是一种方法，但还是推荐下面几种方法。

【2】

[vb] view
plain copy

print?

Browser(":=").Navigate "http://www.baidu.com"

Browser("百度一下，你就知道").Page("百度一下，你就知道").Sync

msgbox "Over"

这种方法最简单，直接在Page对象后，家个Sync，会等待页面加载完成后再执行下面语句，但有时候也不好使。

【3】

[vb] view
plain copy

print?

Browser(":=").Navigate "http://www.baidu.com"

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").WaitProperty "visible", True, 100000

msgbox "Over"

在100秒的时间内，等待wd对象的visible属性，visible属性变为true，则执行下面语句。

最后的100000单位是毫秒，如果在100000毫秒=100秒。

【4】

[vb] view
plain copy

print?

Browser(":=").Navigate "http://www.baidu.com"

Do

wait 0,500

Loop Until Browser("百度一下，你就知道").Page("百度一下，你就知道"). WebEdit ("wd ").Exist(0.5)

msgbox "Over"

这也是我比较喜欢的方法，要用什么控件，判断下是否存在，也可以直接写成函数，达到复用。

【5】

[vb] view
plain copy

print?

Set oIE = CreateObject("InternetExplorer.Application")

oIE.Visible = True '设置可见

oIE.Navigate "http://www.baidu.com" '跳转URL

'等待IE页面加载完毕

While oIE.Busy :Wend

msgbox "Over"

这也是一种方法，有点类似【4】，不同的是用了点DOM，大家参考一下吧。

【6】

如果上面的都不会，下面的是终极奥义，只有1句话

[vb] view
plain copy

print?

wait 100 '你懂的