宜宾网站建设公司

VB.NET抓取网页出现错误如何解决

本篇内容主要讲解“VB.NET抓取网页出现错误如何解决”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“VB.NET抓取网页出现错误如何解决”吧!

成都创新互联专注于企业营销型网站、网站重做改版、萧县网站定制设计、自适应品牌网站建设、H5建站、商城系统网站开发、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为萧县等各大城市提供网站开发制作服务。

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

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

  1. Public Function LobDotCn(ByVal url_Link 
    As String, ByVal IsGb2312 As Boolean)   
  2. On Error Resume Next   
  3. Dim XmlHttp As Object   
  4. XmlHttp = CreateObject("Microsoft.XMLHttp")   
  5. XmlHttp.Open("POST", url_Link, False)   
  6. XmlHttp.Send()   
  7. Dim WebContent As Object   
  8. Dim Str_WebContent As String   
  9. If IsGb2312 Then   
  10. WebContent = XmlHttp.ResponseBody   
  11. Str_WebContent = System.Text.Encoding.
    Default.GetString(WebContent)   
  12. Else   
  13. WebContent = XmlHttp.ResponseText   
  14. Str_WebContent = WebContent.ToString   
  15. End If   
  16. XmlHttp = Nothing   
  17. LobDotCn = Str_WebContent   
  18. End Function  

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

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

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

到此，相信大家对“VB.NET抓取网页出现错误如何解决”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！


网页名称：VB.NET抓取网页出现错误如何解决
当前网址：http://hbruida.cn/article/pediig.html

其他资讯