重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用VB打开网页有多种方法:
创新互联建站网站设计,为客户量身定制各类网站建设业务,包括企业型、电子商务型、响应式网站开发、行业门户型等各类网站,实战经验丰富,成功案例众多。以客户利益为出发点,创新互联建站网站制作为客户规划、按需网站设计符合企业需求、带有营销价值的网络建站方案认真对待每一个客户,我们不用口头的语言来吹擂我们的优秀,千余家的成功案例见证着我们的成长。
方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。
Shell 函数,
执行一个可执行文件,返回一个 Variant
(Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。
Private Sub Command2_Click()
Shell "explorer.exe "
End Sub
方法2)使用WebBrowser直接建立浏览器。
在 Visual Basic 里还可以向工程中增加其它类型的 Internet 功能,包括:
Visual Basic 应用程序的 Internet 扩展。可以使用一些特殊控件,它们提供了和Internet 有关的功能。这些控件包括
Internet Transfer 控件、 WebBrowser 控件,以及 WinSock 控件。
Private Sub Command1_Click()
WebBrowser1.Navigate ""
End Sub
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress为你上面的网页地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采纳率").ToString
'sr。readtoend读取网页流到末尾,即使用正则表达式从网页流中提取“回答采纳率”,赋值给Label1.Text ‘没有则为空
sr.Dispose() '关闭流
End Sub'要提取什么东西用正则表达式最好
End Class
你说的操作是像人一样用鼠标点击网页?
直接应该是不行的,可以考虑先抓包分析数据包,在模拟浏览器发送请求获取数据,然后进行相应处理
不想用点击,直接执行,那么你肯定就不能用onclick事件了。
在网页中JS函数自动执行常用三种方法
在HTML中的Head区域中,有如下函数:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
/SCRIPT
下面,我们就针对上面的函数,让其在网页载入的时候自动运行!
①第一种方法
将如上代码改为:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
window.onload=MyAutoRun();
//仅需要加这一句
/SCRIPT
②第二种方法
修改网页的Body为:
body onLoad="MyAutoRun();"
或者改为:
body onLoad="javascript:MyAutoRun();"
③第三种方法
使用JS定时器来间断性的执行函数:
setTimeout("MyAutoRun()",1000); //隔1000毫秒就执行一次MyAutoRun()函数
实现方法,将最上面的那JS函数,改为:
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码,请自行修改先!
alert("函数自动执行哦!");
}
setTimeout("MyAutoRun()",1000);
//这样就行拉
/SCRIPT
使用webbrowser控件来加载网页,然后再 Private Sub WebBrowser1_DocumentCompleted下通过使用WebBrowser1.Document.Body.InnerHtml 来获取网页的源代码,或使用 WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者正则表达式来精确获取到你所需的数据。