大家一起来交流一下这段很纠结的代码
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 GetNamesRec(itemPath, byref menuObj)
这样试试
页:
[1]
