vb.net 采集网页

[vb]代码库

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