QTP编码小知识:本文转自http://lyg5623.blog.163.com/blog/static/53274011200891911126654/
【QTP编码小知识 一】
在这里先给大家看看一下代码:
if browser("百度一下").page("百度一下").webbutton("百度一下").exist(0) and _
browser("百度一下").page("百度一下").webbutton("百度一下").object.disabled and _
browser("百度一下").page("百度一下").webbutton("百度一下").object.visible then
browser("百度一下").page("百度一下").webbutton("百度一下").click
end if
自然,如果学过编程的人,会觉得,恩,这样写很正常,但是没有怎么学过的人,他或者会写成这样
if browser("百度一下").page("百度一下").webbutton("百度一下").exist(0) then
if browser("百度一下").page("百度一下").webbutton("百度一下").object.disabled then
if browser("百度一下").page("百度一下").webbutton("百度一下").object.visible then
browser("百度一下").page("百度一下").webbutton("百度一下").click
end if
end if
end if
你学习过了编程,知道了,如果and的条件,如果有一个否,哪么就全部为否,自然是这个是逻辑条件的问题,你有学过,所以
你写成2个and的方法去简略代码。但问题往往发生在这里,就和变魔术一样,大人看不出,但小孩就可以看出里面的问题,因为大人
的思想会被自己所谓的经验所左右。
这段代码的错误地方发生在那里,估计读到这里的人大部分已经猜到了,错误会发生在第1片中的2 3行!!你会问为什么?这应
该没错菜对的呀?不存在它就条不进行点击了么?但不存在时候,其实QTP会去判断and的其他2个条件,因为webbutton的不存在,导致
了object不能使用,所以在这里会出现报错的情况。
首先说下QTP它在 逻辑判断这块的处理,有人说,如果and其中第一个条件是假的,哪么判断就直接跳出去了,对,没错,这个
是针对某些语言而言,但是QTP自己在使用VBS中,自己又加了点手脚,或者是VBS自己本身就存在这样的问题。
这些也都是在实际编码过程中会发现的问题,大家慢慢积累,让自己的代码出现更少的BUG,哈哈,感觉好像在做白盒测试。
【QTP 编码小知识 二】
大家看看下面代码,代码是运行在谷歌的主页面,如果大家要试的话,大家同样也可以试试这代码的运行结果。
Dim LinkDes
Set LinkDes=description.Create()
LinkDes("html tag").value="A"
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
For i=0 to LinkObj.count
LinkObj(i).click
browser("Google").Back
Next
代码运行完后,你会发现,原来在循环第2次连接点击的时候,抛出了一个“General run error”。这个是为什么会这样?之前也同样有论坛的朋友问到这样的问题,所以今天就在这里提到。
问题是出在了对第一个连接点击后,做了返回操作所导致的,在第一次back的时候,LinkObj对象就已经丢失了,失效了。所以你在做第2次操作的时候,LinkObj(i)就已经找不到了,因此它会出错。
正确的方法,这个也是我目前想到的,或者还有其它达人能做更好的方法出来。
Dim LinkDes
Set LinkDes=description.Create()
LinkDes("html tag").value="A"
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
For i=0 to LinkObj.count
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
LinkObj(i).click
browser("Google").Back
Next