重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
有点困难……有一个方案,使用自身的webbrowser控件(浏览器控件)这样简单很多
创新互联建站主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、营销网站、网站程序开发、HTML5响应式重庆网站建设公司、手机网站制作设计、微商城、网站托管及网站建设维护、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为办公空间设计行业客户提供了网站营销服务。
不过系统附带的webbrowser控件不带这个接口的。
我有一个方案可以告诉你,不过我也不会做
1.导出网页源码
dim a
a = WebBrowser1.DocumentText'这里的documenttext就是网页的源码,是纯文本
'下面可以写修改的代码了
2.修改代码,反正是txt纯文本,这不需要说明了吧
3.修改完后保存为xml文件(保存代码→百度一下保存txt文件,然后你把保存的txt后缀名改成xml就OK了)
4.将浏览器要显示的网页设定为刚才保存的xml文件就OK了
WebBrowser1.Navigate “刚才保存的xml文件路径.xml”'注:此处不需要等于号
使用webbrowser控件来加载网页,然后再
Private
Sub
WebBrowser
1_DocumentCompleted下通过使用WebBrowser1.Document.Body.
InnerHtml
来获取网页的源代码,或使用
WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者
正则表达式
来精确获取到你所需的数据。
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就是网页源代码