随机选取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