输出链接的target属性

set a= Browser("土豆网 - 视频 - 播客 - 每个人都是生活的导演")
set b= Browser("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演")
call CheckLinks(a,b)
Function CheckLinks (BrowserObject,BrowserPage)
CheckLinks=TRUE
Dim s_URL,i_CreationTime
Dim s_LinkOuterText,s_LinkInnerText,s_Linkhref
s_URL=BrowserPage.GetROProperty("url")
i_CreationTime=1
i_LinkCount=BrowserPage.object.links.length - 1
'msgbox i_LinkCount

Dim i_Link

For i_Link=0 to i_LinkCount
    If Trim(BrowserPage.object.links(i_Link).target)<>"" Then
  msgbox BrowserPage.object.links(i_Link).target
  msgbox i_Link
  'BrowserPage.object.links(i_Link).click
    End If

Next
End Function