在使用QTP中遇到的几个问题

jacksboy

1:如何录制WEB菜单,现在可以录到顶级菜单,显示为WEBELEMENT,想通过OBJECTSPY去识别下级菜单,用虚拟对象的办法好象也不能录到下级菜单.不管是SPY还是OBJECT REPOSITORY里面的添加对象到本地库都只能识别到本级菜单,请问通过这种手动识别对象的方法可不可能识别到下级菜单的.  也在WEB EVENT RECORDING中设置了WEBELEMENT的ONMOUSEOVER为ENABLE,脚本里加了FIREEVENT "ONMOUSEOVER" 方法,回放时只能点开顶级菜单,但是鼠标不会移到想要点击的菜单上,


2:如何录制WEBLIST:应该是WEBLIST,但是用OBJECTSPY显示的是WEBEDIT,后面那个下拉的箭头SPY识别不到,请问这种控件有什么办法能录到下拉选项中的值


3:如果自定义了一个虚拟对象,可不可以将它添加到本地库中去,在录制脚本时,预识别的对象好象并不会照设好的虚拟对象去设置.虚拟对象工作的原理是什么

谢谢

zte_boy

1、正常的链接是可以识别的，无论多少级，我的就是，如果是在不行，你可以试下如下代码：
function menuSelect(menuName)
        Set curPage=Browser("creationtime:=0").Page("index:=0")
        menu=split(menuName,"-")
        curPage.WebElement("innerhtml:="&menu(0)).Click
        if curPage.WebButton("name:=确 定").exist(2) then
                curPage.WebButton("name:=确 定").Click
        end if
'依次把每级菜单找出来，
For i= 1 to UBound(menu)
        Set menuDesc = description.Create()
        menuDesc("text").Value=menu(i)
        menuDesc("micclass").Value = "Link"
        if curPage.Exist(1) then
                label = 0
                While(label = 0)
                        Set menuLists = curPage.ChildObjects(menuDesc)        
                        NumberOfLists = menuLists.Count()
                        If NumberOfLists=1 Then
                                menu(i)=menuLists.Item(0).GetROProperty("html id")
                                label = label + 1
                        elseif NumberOfLists>1 then
                                For j=0 to NumberOfLists
                                        tempCode=menuLists.Item(j).GetROProperty("html id")
                                        If instr(tempCode,menu(i-1))>0 Then
                                                menu(i)=tempCode
                                                label = label + 1
                                                Exit For
                                        End If
                                Next                       
                        End If
                Wend
                curPage.Link("html id:="&menu(i)).Click
        end if
        Set menuLists = nothing
        Set menuDesc = nothing
Next
        Set curPage = nothing
End function

2、weblist标准控件QTP是能够识别的很好的，如果你的是非标准控件，你可以尝试用描述性编程实现
3、虚拟对象只对建立虚拟对象的测试机器有效