‘登录系统
Browser(“XXX系统”).Page(“XXX系统”).WebEdit(“userName”).Set “admin”
Browser(“XXX系统_2″).Page(“XXX系统”).WebEdit(“userPassword”).SetSecure “4f0d22267b85eb28c9555f89ef0ade75a82e”
Browser(“XXX系统”).Page(“XXX系统”).WebButton(“登 录”).Click
‘随机数

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

For i=1 to datatable.GetSheet(“Action1″).getrowcount
Browser(“XXX系统”).Page(“XXX平台”).Frame(“leftFrame”).Link(“XXX管理”).Click
Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame”).WebButton(“添加XXX”).Click
Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebEdit(“repositoryTitle”).Set DataTable(“keyftitle”, dtLocalSheet)
Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebEdit(“repositorySubTitle”).Set DataTable(“keyctitle”, dtLocalSheet)
‘获取下拉列表值，与C/S结构不一样
Dim stcount,stnum,rel,stobj
set stobj=Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebList(“repositoryTypeID”).Object
stcount=stobj.options.length
stnum=GetList(stcount-1)
rel=stobj.options.item(stnum).text
Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebList(“repositoryTypeID”).Select rel
‘获取下拉列表值，与C/S结构不一样
Dim stcount2,stnum2,rel2,stobj2
set stobj2=Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebList(“repositorySytleID”).Object
stcount2=stobj2.options.length
stnum2=GetList(stcount2-1)
rel2=stobj2.options.item(stnum2).text
Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebList(“repositorySytleID”).Select rel2

Browser(“XXX系统”).Page(“XXX平台”).Frame(“mainFrame_2″).WebButton(“提交”).Click
Browser(“XXX系统”).Page(“XXX平台”).Sync
datatable.GetSheet(“Action1″).setnextrow
Next
Browser(“XXX系统”).Close