自动点击页面中的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
版权声明：本文为xxaxx原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。