51Testing软件测试论坛

标题: 大家一起来交流一下这段很纠结的代码 [打印本页]

作者: anjao 时间: 2010-12-9 19:29
标题: 大家一起来交流一下这段很纠结的代码
QTP对很多软件菜单名的识别很不好，在帮助文档里搜索，得到一下代码，可以识别菜单名并发送到结果报告里，我想把它识别出来的菜单名（text）导出到Excel表里，纠结我的问题是：里面竟然没有发现一个变量能够最终得到菜单名，大家试着找一下，怎样才能将文件名导出来。
其中“HP 智能文档扫描软件”是我录制的软件的窗体名，可以替换掉。
GetNamesRec "", dialog("text:=HP 智能文档扫描软件").winmenu("menuobjtype:=2")
Function GetNamesRec(itemPath, menuObj)
   ret = 0
   lbl = menuObj.GetItemProperty(itemPath, "Label")
   Reporter.ReportEvent 0, itemPath & lbl, lbl
   ret = menuObj.GetItemProperty(itemPath, "HasSubMenu")
   If ret Then
      cnt = menuObj.GetItemProperty(itemPath, "SubMenuCount")
      Reporter.ReportEvent 0, itemPath & " sub-menu items", cnt
      For n = 1 To cnt
         Path = menuObj.BuildMenuPath(itemPath, n)
         GetNamesRec Path, menuObj
      Next
End If
End Function

作者: gleamini 时间: 2010-12-10 12:52
GetNamesRec(itemPath, byref menuObj)
这样试试

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)