从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Dim url As String=" 网址"
创新互联专业为企业提供乐清网站建设、乐清做网站、乐清网站设计、乐清网站制作等企业网站建设、网页设计与制作、乐清企业网站模板建站服务,十多年乐清做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值,该值指示是否与
Internet资源建立持久连接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
使用webbrowser控件来加载网页,然后再 Private Sub WebBrowser1_DocumentCompleted下通过使用WebBrowser1.Document.Body.InnerHtml 来获取网页的源代码,或使用 WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者正则表达式来精确获取到你所需的数据。
有点困难……有一个方案,使用自身的webbrowser控件(浏览器控件)这样简单很多
不过系统附带的webbrowser控件不带这个接口的。
我有一个方案可以告诉你,不过我也不会做
1.导出网页源码
dim a
a = WebBrowser1.DocumentText'这里的documenttext就是网页的源码,是纯文本
'下面可以写修改的代码了
2.修改代码,反正是txt纯文本,这不需要说明了吧
3.修改完后保存为xml文件(保存代码→百度一下保存txt文件,然后你把保存的txt后缀名改成xml就OK了)
4.将浏览器要显示的网页设定为刚才保存的xml文件就OK了
WebBrowser1.Navigate “刚才保存的xml文件路径.xml”'注:此处不需要等于号
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图