VB.NET抓取网页出现错误解决方案

VB.NET编程语言特点比较突出，它是一个真正的实现面向对象以及支持继承性的编程语言，其应用范围广泛，功能强大，帮助开发人员大大提高了编程效率。在调试VB.NET调用Microsoft.XMLHttp组件抓取网页时，遇到了抓取中文字符出现乱码，经测试若网页meta标签charset为utf-8的网页不会乱码，而charset为Gb2312的则会出现乱码，本文提供了一个完整的解决方法，希望对研究VB.NET抓取网页或者VB.NET实现采集功能的朋友有所帮助。

创新互联服务项目包括椒江网站建设、椒江网站制作、椒江网页制作以及椒江网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，椒江网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到椒江省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

以下为VB.NET抓取网页的函数LobDotCn 注：url_Link为抓取的目标页面 IsGb2312为是否Gb2312字符

 
 
   
  
  Public Function LobDotCn(ByVal url_Link 
As String, ByVal IsGb2312 As Boolean)     
  
  On Error Resume Next     
  
  Dim XmlHttp As Object     
  
  XmlHttp = CreateObject("Microsoft.XMLHttp")     
  
  XmlHttp.Open("POST", url_Link, False)     
  
  XmlHttp.Send()     
  
  Dim WebContent As Object     
  
  Dim Str_WebContent As String     
  
  If IsGb2312 Then     
  
  WebContent = XmlHttp.ResponseBody     
  
  Str_WebContent = System.Text.Encoding.
Default.GetString(WebContent)     
  
  Else     
  
  WebContent = XmlHttp.ResponseText     
  
  Str_WebContent = WebContent.ToString     
  
  End If     
  
  XmlHttp = Nothing     
  
  LobDotCn = Str_WebContent     
  
  End Function

VB.NET抓取网页的调用方式：

变量 = LobDotCn("http://www.lob.cn", True) '抓取 Gb2312网页

变量 = LobDotCn("此处填写网址", False) ' 抓取utf-8网页

【编辑推荐】

VB.NET读取内存具体代码编写方法
VB.NET类型转换相关运算符应用技巧分享
四步完成VB.NET读写注册表
VB.NET条件分支语句应用方法概述
VB.NET控件数组正确使用方法分析

网站名称：VB.NET抓取网页出现错误解决方案
当前网址：http://www.gawzjz.com/qtweb2/news12/6712.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容