编写图片空间QTP脚本时的一点经验

编写图片空间QTP脚本时的一点经验2009-11-06我录制QTP脚本的思路是让能跑起来的都跑起来，不能跑起来的暂时不管，同时先采取固化脚本的思路写脚本（详细），完成后再加入参数化，让脚本灵活起来！呵呵！

以下是我编写图片空间时的一点经验！

经验1：用FireEvent方法处理TOP菜单中弹出的子菜单

Browser（”淘宝网-店铺管理平台“）.Page（”淘宝网-店铺管理平台“）.Link（”素材管理（1）”）.Click

Browser（”淘宝网-店铺管理平台“）.Page（”淘宝网-店铺管理平台“）.Link（”图片空间“）.Click

我在编辑用鼠标点击TOP菜单时，发现脚本在运行时，不稳定，有时能捕捉到子菜单，有时又不能捕捉到子菜单，后加上FireEvent方法：

browser（”淘宝网-店铺管理平台“）.Page（”淘宝网-店铺管理平台“）.Link（”素材管理（1）”）.FireEvent “onmouseup”

Browser（”淘宝网-店铺管理平台“）.Page（”淘宝网-店铺管理平台“）.Link（”图片空间“）.Click

这时每次运行脚本时，都能捕捉到子菜单了。

经验2：通过对象唯一性确认页面访问对象

需要校验图片分类下图片的数量，思路是将页面显示的数目与数据库中查询的数据进行对比，但此时不能直接读取有图片数量的对象，因为此对象不具有“唯一性”，它属于动态生成的对象。改变校验思路是先取得页面中具有“唯一性”对象图片分类DESC对象（系统中图片分类是具有唯一性），然后通过DOM对象取得图片数量的INFO对象。

set my_obj=browser（”图片空间“）.Page（”图片空间“）.Link（”宝贝图片“）.Object

set my_b_info=my_obj.parentnode.nextSibling

然后取得有图片分类下图片数据：

tx=my_b_info.outertext

‘msgbox “a” + tx + “b”  用来校验是否有空格

text=left（tx,len（tx）-4）

‘text=text+0

‘msgbox IsNumeric（text）

经验3：通过CURRENTSYTLE判别LINK对象可用性

提供两种思路：

第一种方式：

V=strcomp（browser（”图片空间“）.Page（”图片空间“）.Link（”name:=下移“,”index:=5″）.GetROProperty（”class”）, “move-down J_TagMoveDown no-move-down”,1）

If v=0 Then

 reporter.ReportEvent micPass,”pass”,”提示成功“

else

 reporter.ReportEvent micFail,”fail”,”提示失败“

End If

第二种方式：

set my_obj =browser（”图片空间“）.Page（”图片空间“）.Link（”name:=下移“,”index:=5″）.object

x= my_obj.currentstyle.getattribute（”cursor”）

y=”not-allowed”

v=strcomp（x,y,1）

If v=0 Then

 reporter.ReportEvent micPass,”pass”,”提示成功“

else

 reporter.ReportEvent micFail,”fail”,”提示失败“

End If