重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'runFile是一个字符串变量,包含可执行文件的路径和文件名,或者是指定的网址
成都创新互联专业为企业提供城东网站建设、城东做网站、城东网站设计、城东网站制作等企业网站建设、网页设计与制作、城东企业网站模板建站服务,十多年城东做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
System.Diagnostics.Process.Start(runFile) '运行文件或打开网站
你说的操作是像人一样用鼠标点击网页?
直接应该是不行的,可以考虑先抓包分析数据包,在模拟浏览器发送请求获取数据,然后进行相应处理
首先你得找到浏览器的路径。然后在vb中使用如下代码,例如用猎豹浏览器打开指定网页:
Private Sub Command1_Click()
Shell "F:\Program Files\liebao\LBBrowser\liebao.exe 网页绝对地址"
End Sub
路径和地址之间有一空格。
可以参考URLRefresher-真正的多线程刷百度贴吧点击 这篇文章哦,我不懂.NET但是凑巧看到里面有道你说的这个东西了、
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
用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