<html> <body> <input type="button" onclick="jg()";> </body> <script> function jg(){alert("出错了!");} </script> </html>
用VB打开网页有多种方法:
1)使用API函数。
Option ExplicitPrivate 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怎么点击到这个网页按钮等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)