‘点正常链接方法很多，这里介绍的是自动点JavaScript链接
Function RunJS(scripts)
‘VB 自动点网页中的Javascript链接
Dim Document
On Error GoTo ErrHandle
If scripts = "" Then Exit Function
Set Document = WebBrowser1.Document
Document.ParentWindow.execScript scripts, "javascript"
Exit Function
ErrHandle:
MsgBox "Err"
End Function
‘——————
调用：Call RunJS(Javascript:jsfunci())
1. 按钮式：
<INPUT name="pclog" type="button" value="GO" onClick="location.href='http://xxxx.cn/'">
2. 链接式：
<a href="javascript:history.go(-1)">返回上一步</a>
<a href="<%=Request.ServerV ......
