SetTOProperty

For i=0 to 29

Browser("渠道管理系统").Page("渠道管理系统").WebList("model.status").Select "制作中"
Browser("渠道管理系统").Page("渠道管理系统").WebButton("查 询").Click
Browser("渠道管理系统").Page("渠道管理系统_2").SetTOProperty "index",i
Browser("渠道管理系统").Page("渠道管理系统_2").Link("详细").Click
Browser("渠道管理系统_2").Page("渠道管理系统").Frame("picUpload").WebFile("picfile").Set "D:\固定位图片\4 160×200.JPG"
Browser("渠道管理系统_2").Page("渠道管理系统").Frame("picUpload").WebButton("上传").Click
Browser("渠道管理系统_2").Page("渠道管理系统").WebButton("确定").Click
Browser("渠道管理系统_2").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("渠道管理系统").Page("渠道管理系统").Sync
Next