随机选取webtable里checkbox

这里只写几句重要的,首先读取webtable的行数,然后,随机产生一个数,从这个数一直到webtable的行数为止.

  Randomize
  LoopCounter=int(webNum*Rnd) 
  For  i=1 to LoopCounter  'loopcounter是webtable的行数.
    set  chkbox=Browser("Browser").Page("***").WebTable("収集").ChildItem(i,1,"WebCheckBox",0)
    chkbox.set "ON"   '勾选上checkbox
    next