VB的webbrowser控件如何用代码来点击超链接

我想楼主是想问用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

楼上的javascript不是JAVA ，javascript的前身是LiveScrtipt!

VB中可以直接用shell ("explorer 你的超级连接地址")
下面的代码执行了以后就浏览百度，注意explorer与地址中间还有个空格
Shell ("explorer http://www.baidu.com")

他要的是点击按钮的代码 不是跳转吧
楼上你那个是直接跳转的
楼主说的那个按钮是java语言 你怎么跳?