自动点击页面中的JavaScript链接

 1 '点正常链接方法很多，这里介绍的是自动点JavaScript链接
 2 
 3 Function RunJS(scripts)
 4 'VB 自动点网页中的Javascript链接
 5 Dim Document
 6                 On Error GoTo ErrHandle
 7                 If scripts = "" Then Exit Function
 8 Set Document = WebBrowser1.Document
 9                 Document.ParentWindow.execScript scripts, "javascript"
10                 Exit Function
11 ErrHandle:
12     MsgBox "Err"
13 End Function
14 '------------------
15 调用：Call RunJS(Javascript：jsfunci())
16