复制来的,与你分析!以下是信息
我想楼主是想问用WebBrowser自动点这个链接吧。
Dim Str1 As String
Str1 = "发送" '判断是否为要点击的A标签的特征字符
'历遍所有A标签,查找含有"发送"字符的A标签并点击
Set aSet = WebBrowser1.document.All.tags("A")
For i = 0 To aSet.length - 1
If (InStr(1, aSet(i).innerText, Str1)) Then
aSet(i).onclick
' 如果aSet(i).onclick不能点击的话,请试试aSet(i).click
End If
Next i
获取onclick属性,这个属性是一个函数,想办法调用它
.net的做法我不会,不过只要.net可以在webbrowser执行js就可以了