苹果手机被监控的症状:VB.NET抓取网页出现错误解决方案

来源：百度文库 编辑：九乡新闻网 时间：2024/04/27 17:07:18

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

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

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

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

VB.NET抓取网页出现错误解决方案 网页总是出现脚本错误怎么办 VB调用.NET DLL vb.net socket VB操作网页功能模块 路由器错误 678，解决方案 VB VB.NET和VB6.0有什么区别 VB.Net常用数学函数整理 ListControl.DisplayMember 属性的VB.NET例子 vb.net入门：CheckedListBox控件的使用 如何正确理解VB.NET延时函数 如何正确理解VB.NET延时函数1 asp.net网站开发程序规范 - 解决方案 搜索引擎喜欢抓取什么格式的网页内容？ 网页有错误怎么办？ 网页有错误怎么办？ 网页有错误怎么办？ VB提取网页源文件的函数 应用程序出现错误怎么办 Acrobat?Info.exe?-应用程序错误解决方案 VB.net与C#语法对比及转换 （VB.NET）XML查询子节点的一些方法 VB.Net:如何实现Aero玻璃界面？ - 志 - 网易博客 读取硬件信息的类(VB.NET原创)