一个函数，随机选择页面上的下拉框：软件测试专业网站:51Testing软件测试网/A@k$L&g!U*B
××××××××××××××××××××××××××××××××××××××××××××××

 dim i 
 Set ōDesc = Descrīption.Create()
oDesc("html tag").Value = "SELECT"
 oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)
 For i = 0 To Lists.Count - 1
 Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
Next
End Sub

AllSelect(rightFrame)　'“rightFrame”为一个框架页面，过程调用成功！

×××××××××××××××××××××××××××××××××××××××××××××××

同理，给对象添加方法：

Public Sub  AllSelect(byref myPage)
 Set ōDesc = Descrīption.Create()
 oDesc("html tag").Value = "SELECT"
oDesc("disabled").Value = 0
Set lists = myPage.ChildObjects(oDesc)
For i = 0 To Lists.Count - 1
Lists(i).select RandomNumber(0, Lists(i).GetROProperty("items count")-1)
 Next
RegisterUserFunc "Frame", "AllSelect", "AllSelect",True

rightFrame.AllSelect　　'“rightFrame”为一个框架页面，方法调用成功

×××××××××××××××××××××××××××××××××××××××××××××××

问题解决