在某个节点上创建新组的测试

jackymail

希望能够有人修改并达到通用下面这段代码的目的。
Call NewGroupOnNode("My.*",10)
Public Function NewGroupOnNode(initNodeName,Depth,recursion)
Browser("b").Page("p").Frame("f").WebElement("innerhtml:="&initNodeName).Click
For i=1 to Depth
NodeName=SuperString(32)
Call NewGroup(NodeName)
If recursion="y" then
Browser("b").Page("p").Frame("f").WebElement("innerhtml:="&NodeName).Click
Else
Browser("b").Page("p").Frame("f").WebElement("innerhtml:="&initNodeName).Click
End if
Next
End Function

Function NewGroup(GroupName)
Browser("b").Page("p").Frame("f").Link("New group").Click
Browser("New group").Page("New group").WebEdit("_groupName").Set GroupName
Browser("New group").Page("New group").WebButton("OK").Click
End Function

Public Function SuperString(strLen)
   For i=1 to strLen
                Randomize
        tmpString=Chr(int(Rnd*(127-32))+32)
        SuperString=SuperString&tmpString
        Next
End Function

yzem99

这个逻辑还是比较简单的。
这个只是一个接一个的下来，要是实现通过一个ｓｔｒｉｎｇ实现会更方便点，/node1/node2/node3/node4/...
这样即可以给定名字，结构也清楚。