IT数码

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

'××××××××××××××××××××××××××××××××××××
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”为一个框架页面，过程调用成功！

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