VB如何模拟点击网页按钮,并且获得d出窗口的网址

VB如何模拟点击网页按钮,并且获得d出窗口的网址,第1张

<html> <body> <input type="button" onclick="jg()";> </body> <script> function jg(){alert("出错了!");} </script> </html>

用VB打开网页有多种方法:

1)使用API函数。

Option Explicit

    Private Declare Function ShellExecute Lib "shell32dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

    ShellExecute MehWnd, "open", "

2)使用Shell函数。

Private Sub Command1_Click()

    Dim RetVal

    RetVal = Shell("C:\Program Files\Internet Explorer\iexploreexe" & " " & "

3)使用WebBrowser控件直接建立浏览器。

在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能,包括:Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件,它们提供了和Internet 有关的功能。这些控件包括

Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。

Private Sub Command1_Click()

    WebBrowser1Navigate ">

Dim btns As Object

Set btns = WebBrowser1DocumentgetElementById("J_proNav")getElementsByTagName("li")

btns(0)Click '这是点击第一个

btns(1)Click '这是点击第二个

btns(2)Click '这是点击第三个,类推……

以上就是关于VB如何模拟点击网页按钮,并且获得d出窗口的网址全部的内容,包括:VB如何模拟点击网页按钮,并且获得d出窗口的网址、VB中怎么单击一个按钮就可以打开网页、vb怎么点击到这个网页按钮等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/web/9713336.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-01
下一篇 2023-05-01

发表评论

登录后才能评论

评论列表(0条)

保存