可以换个办法。那个效率比较低
http://lucky_elove.www1.dotnetplayground.com/

解决方案 »

  1.   

    Dim wc As New WebClient()
    Dim s As Stream = wc.OpenRead("http://expert.csdn.net/")
    Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default)
    GrabUrl = sr.ReadToEnd
    s.Close()
    wc.Dispose()
    可以很方便地转换成C#版本
      

  2.   

    http://lucky_elove.www1.dotnetplayground.com/ShowDetail.aspx?id=C2BCFA0A-D4E5-4791-87F3-C0B2AA2B7B5BFunction GrabUrl() As String
    Dim wc As New WebClient()
    Dim s As Stream = wc.OpenRead("http://expert.csdn.net/")
    Dim sr As StreamReader = New StreamReader(s, System.Text.Encoding.Default)
    GrabUrl = sr.ReadToEnd
    s.Close()
    wc.Dispose()End Function