循环遍历WebList对象实现的方法

 

循环遍历WebList对象实现的方法

rem WebList对象的测试

 

Browser("N.E.W. China").Page("N.E.W. China").WebEdit("code").Set "0001"

Browser("N.E.W. China").Page("N.E.W. China").WebEdit("password").SetSecure "4ad416ac113b1f2a3c09a3357ee52948"

Browser("N.E.W. China").Page("N.E.W. China").WebButton("登录").Click

Browser("N.E.W. China").Dialog("Windows Internet Explorer").WinButton("确定").Click

Browser("N.E.W. China").Page("N.E.W. China_2").Frame("carnoc").Link("呼入").Click

Dim clientList, itemCount

Set clientList = Browser("N.E.W. China").Page("N.E.W. China_2").Frame("main").WebList("currentClientId")

itemCount = clientList.GetROProperty("items count")

 

For i=0 to itemCount -1

msgbox clientList.Object.item(i).Value

Next

Browser("N.E.W. China").Page("N.E.W. China_2").Frame("main").WebEdit("customerPhone").Set "0739"

Browser("N.E.W. China").Page("N.E.W. China_2").Frame("main").WebButton("查找").Click