QTP判断对象是否存在

1.       判断getElementById("")获取的对象存不存在

方法一：可以通过错误处理来实现

On   Error   Resume   Next    

      getElementById("")的操作

        (注意：如果是用set obj = object. getElementById("")  时，即使 object. getElementById("") 为空，也会返回一个nothing值，因此，Err.Number会等于0。因此如果是直接判断对象的话，还需要和 is nothing配合使用。)

       （而如果直接是对象的相关操作的话，就不用和is nothing结合使用了。如使用value = object. getElementById("") 如果对象不存在，Err.Number就会不等于零了，因此可以直接判断了。 ）

On   Error   GoTo  0

If   Err.Number   <>   0   Then 

    处理

Err.Clear

End If  

       方法二：用is nothing来判断

       注意，不能用is not nothing，否则如果对象为空则会报错。

       If object. getElementById("") is nothing Then

            处理

 

       End If

方法三：用Err 和is nothing结合来判断

最好是编写独立的函数，这样有关Err的配置就不会影响到大程序中有关Err的设置了。

可以用Err来保证判断不会报脚本错误，用is nothing来判断对象不为空。

2.       QTP内置支持的对象存不存在判断

对于QTP内置支持的对象（如，Browser）不能使用is nothing来判断是否存在，因为即使对象不存在，也会返回一个值的。

例：

Set objBrowser = Browser(“name:=不存在”)

即使Browser是不存在的，也会返回一个“CoBrowser”对象，这时objBrowser就不会等于nothing了。因此objBrowser is nothing 的值会永远为false的。达不到判断对象是否存在的效果。

解决方法：使用Exist，如下：

       Dim chkBrowser

       chkBrowser = Browser(“name:=不存在”).Exist(0)

       If chkBrowser then

              …..

       End if

 

[注] 当然可以加一个DO...Loop 便可以实现判断对象识别是否超时