higkoo

一个函数，随机选择页面上的下拉框：

'××××××××××××××××××××××××××××××××××××
Public Sub  AllSelect(byref myPage)
 dim i
 Set oDesc = Description.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”为一个框架页面，过程调用成功！

'××××××××××××××××××××××××××××××××××××

同理，给对象Frame添加一个Select的方法：

'××××××××××××××××××××××××××××××××××××

Public Sub  AllSelect(byref myPage)
 dim i
 Set oDesc = Description.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
RegisterUserFunc "Frame", "Select", "AllSelect",True

rightFrame.Select　　'“rightFrame”为一个框架页面，过程调用成功！

'××××××××××××××××××××××××××××××××××××

如果要有返回值则可以如下：

Public Function  AllSelect(byref myPage)
 dim i,j' i ，j 为临时变量，rlt 为返回的结果
  AllSelect = ""'初始化函数返回值
 Set oDesc = Description.Create()
 oDesc("html tag").Value = "SELECT"
 oDesc("disabled").Value = 0
 Set lists = myPage.ChildObjects(oDesc)
 For i = 0 To Lists.Count - 1'随机选择
  j = RandomNumber(0, Lists(i).GetROProperty("items count")-1)
  Lists(i).select j
     AllSelect = AllSelect & Lists(i).GetItem(j+1) & "," '记录选择的选项
 Next
End Function

 msgbox "选择结果依次为：" & AllSelect(rightFrame)