自动点击页面中的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
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