软件测试工作中使用QTP的总结(2)

Eg:

Dim var_object

Set var_object=Browser("xx").page("xx").webedit("calendar_name").Object

Var_object.readonly=false

Browser("xx").page("xx").webedit("calendar_name").set "4/24/2009"

3、homepage menu

曾经困扰了我很久。Homepage dropdown menu 需要鼠标移动到主菜单名上才会显示子菜单目录，click子菜单目录进入页面。QTP总是无法捕捉到鼠标移动带出子菜单目录这个操作，解决办是用mouseover。

Eg:

Browser("xx").page("xx").webelment("homepage menu name").FireEvent "onMouseOver"

Browser("xx").page("xx").webelment("sub menu name").Click

4、自定义checkpoint

在页面提交保存后，自定义设置一个检查点，通过判断某个变量值是否满足预期，如果是，则保存成功，如果不是则保存失败。

Eg:

If Browser("xx").page.("xx").webedit("object_name").GetROProperty("value")="AA" Then