我录制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
经验4：通过DESCRIPTION访问对象库中同一对象运行时动态对象中静态提示文本
在页面中经常出现的DIALOG对象，在同一页面中可能会出现很多不同的DIALOG，但是读取对象时只有一个对象，但是其中静态文本，却是动态生成的，不同的操作对应不同的提示，此时通过：Static(”text:=图片标题不能超过50字符“).Exist语句判断系统是否成功操作！
Set MyDescription = Description.Create()
MyDescription(”text”).Value = “此分类为系统分类，不可删除。\"
在这里的VALUE我们可以根据不同的对话框设置不同的静态文本：
If browser(”图片空间“).Dialog(”Windows Internet Explorer”).Static(MyDescription).Exist then
reporter.ReportEvent micPass,”pass”,”删除系统分类时提示成功“
browser(”图片空间“).Dialog(”Windows Internet Explorer”).WinButton(”确定“).Click
else
reporter.ReportEvent micFail,”fail”,”删除系统分类时提示失败“
End If
Set MyDescription = Nothing
也可以采取这种方式：
If browser(”图片空间“).Dialog(”Windows Internet Explorer”).Static(”text:=图片标题不能超过50字符“).Exist Then
reporter.ReportEvent micPass,”pass”,”图片标题不能超过50字符提示成功“
browser(”图片空间“).Dialog(”Windows Internet Explorer”).WinButton(”确定“).Click
else
reporter.ReportEvent micFail,”fail”,”图片标题不能超过50字符提示失败“
End If
