自动点网页中的JavaScript链接

‘点正常链接方法很多，这里介绍的是自动点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())