依次勾选复选框，并进行修改的函数

Function Get_Ran(i)
   Randomize
  Get_Ran=RandomNumber (0,i)
End Function

Function chsnext(brws,page,frame,webtb,webtn)
Dim rows,i,j,pages,pagecount
set ōbjtb=Browser(brws).Page(page).Frame(frame).WebTable(webtb)
rows=cint(objtb.rowcount)   
pages=objtb.getcelldata(rows,1)
pagecount=cint(mid(pages,9,1))
For j=1  to pagecount
 If j>=2  Then
               Browser(brws).Page(page).Frame(frame).WebEdit("pageno").Set j
               Browser(brws).Page(page).Frame(frame).WebButton("跳转").Click
      rows=Browser(brws).Page(page).Frame(frame).WebTable(webtb).rowcount         
        else
              rows=Browser(brws).Page(page).Frame(frame).WebTable(webtb).rowcount
        End If 
For i=2  to rows-1
set ōbjcb=Browser(brws).Page(page).Frame(frame).WebTable(webtb).childitem(i,1,"WebCheckBox",0)
objcb.Set "ON"
Dim k,n
k=Get_Ran(4)
Browser（brws).Page(page).Frame(frame).WebButton("修改").Click
Browser（brws).Page(page).Frame(frame).WebEdit("PROD_SERVICE/SERVICE_CODE").Click
n=Get_Ran(2000)
Browser（brws).Page(page).Frame(frame).WebEdit("PROD_SERVICE/SERVICE_CODE").Set  i&n
Browser（brws).Page(page).Frame(frame).WebList("PROD_SERVICE/SERVICE_TITLE_COD").Select "#"&k
Browser（brws).Page(page).Frame(frame).WebButton("提交").Click
Browser(brws).Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Next
Next
End Function

chsnext "xxx系统登陆","xxx系统","result","服务编码","下页"

其中：set ōbjcb=Browser(brws).Page(page).Frame(frame).WebCheckBox("index:="&i-1)
这句也可以用childitem的方法，脚本如下：
set ōbjcb=Browser(brws).Page(page).Frame(frame).WebTable(webtb).childitem(i,1,"WebCheckBox",0)

用描述性编程的方法也可以依次勾选复选框，脚本如下：
Dim objckb,objwcb,i,objcb,objwle,num,text,j
Set ōbjckb=descrīption.Create
objckb("micclass").value = "WebCheckBox"
set ōbjwcb=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_22").Childobjects(objckb)
set ōbjwle=Browser("NYBOSS系统登陆").Page("nyboss系统").Frame("result").WebTable("服务编码")
num=cint(objwle.rowcount)
set ōbjwle=objwle.childitem(num,1,"WebElement",0)
text=objwle.getroproperty("innertext")
pages=cint(mid(text,9,1))
For j=1 to pages
    If j>=2  Then
      Browser("NYBOSS系统登陆").Page("nyboss系统").Frame("result").WebButton("下页").Click 
 End If
For i=1 to objwcb.count-1
set ōbjcb=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_22").Childobjects(objckb)
objcb(i).Set "ON"
Next
Next