首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > Web前端 >

WebTable上自动Click Link

2012-07-04 
WebTable下自动Click Link只写个函数 相信会vbs代码的人都能看懂?Function JreportLinkClick(BrowserName,

WebTable下自动Click Link

只写个函数 相信会vbs代码的人都能看懂

?

Function JreportLinkClick(BrowserName,PageName,FrameName,WebTableName,LinkName)

?? Dim oDesc,LinkNumber
?? Set oDesc = Description.Create()
?? oDesc("micclass").Value = "Link"
?? Set Lists = Browser(BrowserName).Page(PageName).Frame(FrameName).WebTable(WebTableName).ChildObjects(oDesc)
?? LinkNumber = Lists.Count()
?? For i = 0 to LinkNumber-1
??? ?? If Lists(i).GetRoProperty("innertext") = LinkName Then
??? ??? ?? Lists(i).Click
??? ?? End If

?? Next
??
End Function

热点排行