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