QTP判断对象是否存在

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

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

On  Error  Resume  Next    

     getElementById("")的操作

       (注意：如果是用set bj = 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 nothingThen

          处理

      End If

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

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

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

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

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

例：

Set bjBrowser = 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 便可以实现判断对象识别是否超时