脚本代码如何实现:不管上层菜单如何变化,总能选中最下层菜单

ylm77ojn

脚本如下:
Browser("首页").Page("首页_2").WebElement("系统菜单").Click
wait(5)
Browser("首页").Page("首页_2").Image("s").Click
wait(5)
Browser("首页").Page("首页_2").Image("s_2").Click
wait(5)
Browser("首页").Page("首页_2").Image("s_3").Click
wait(5)
Browser("首页").Page("首页_2").Link("按群组授权").Click
Browser("首页").Page("首页_2").WebElement("WebElement_2").Click
Browser("首页").Page("首页_2").WebButton("授权").Click

其中脚本Browser("首页").Page("首页_2").Image("s").Click表示展现根菜单
录制脚本时为点击根菜单前面的+号,是个image对象
Browser("首页").Page("首页_2").Image("s_2").Click为打开下一级菜单
...
按群组授权是最下层菜单
脚本代码如何实现,能直接选中按群组授权这个link
因为它的上级菜单可以增加个,也可以减少个,一旦增加或减少后,那下次再回放这段脚本就出错了的,因为那些image对象,s,s_2,s_3就变化了的

zte_boy

Function menuSelect(menuName)
        Set curPage=Browser("creationtime:=0").Page("index:=0")
        menu=split(menuName,"-")
        curPage.WebElement("innerhtml:="&menu(0)).Click
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
                                        tempText=menuLists.Item(j).GetROProperty("html id")
                                        If instr(tempText,menu(i-1))>0 Then
                                                menu(i)=tempText
                                                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
菜单格式为：一级—二级—三级 等
你只要把最下级的菜单路径输入进去就可以了

ylm77ojn

代码这样写的:
Dim menuName
menuName="按群组授权"

        Set curPage=Browser("首页").Page("首页_2")
        menu=split(menuName,"-")
        curPage.WebElement("innerhtml:="&menu(0)).Click
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
                                        tempText=menuLists.Item(j).GetROProperty("html id")
                                        If instr(tempText,menu(i-1))>0 Then
                                                menu(i)=tempText
                                                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


刚才尝试了下,好像不行,我的页面是这样的
首先打开一个下拉框,点击系统菜单
页面出现3个根菜单:系统管理控制台,即席查询系统,内容管理系统
点击根菜单:系统管理控制台,一级菜单打开,再点击其下面的子菜单:统一权限管理,二级菜单打开
最后再点击按群组授权这第三级菜单,选中

zte_boy

既然是多级，为什么写成menuName="按群组授权"？
应该是“系统管理控制台-统一权限管理-按群组授权”

ylm77ojn

现在设置了menuName="系统管理控制台-统一权限管理-按群组授权"
但是代码运行到while语句时,一直在运行,感觉是个死循环
我debug代码时跑到那也是不断的在跑while语句



[ 本帖最后由 ylm77ojn 于 2008-7-16 17:05 编辑 ]

zte_boy

在我的web系统里是正常的，你可以根据自己需求改动，应该是没问题的

ylm77ojn

不太明白你代码中这句curPage.WebElement("innerhtml:="&menu(0)).Click在系统中是什么操作
curPage.Link("html id:="&menu(i)).Click又是什么操作
  menuDesc("text").Value=menu(i)
        menuDesc("micclass").Value = "Link"
menu(i)=menuLists.Item(0).GetROProperty("html id")
  tempText=menuLists.Item(j).GetROProperty("html id")
这上面4句也不是很明白