思路是让能跑起来都跑起来
不能跑起来暂时不管同时先采取固化脚本思路写脚本(详细)完成后再加入参数化让脚本灵活起来！呵呵！ 以下是我编写图片空间时
点经验！经验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对象 
my_obj=browser(”图片空间“).Page(”图片空间“).Link(”宝贝图片“).Object
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(”
”), “move-down J_TagMoveDown no-move-down”,1)
If v=0 Then
reporter.ReportEvent micPass,”pass”,”提示成功“
reporter.ReportEvent micFail,”fail”,”提示失败“
End If第 2种方式:
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”,”提示成功“
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
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
reporter.ReportEvent micFail,”fail”,”图片标题不能超过50提示失败“
End If
最新评论