vb2010获取网页源码的函数

vb2010获取网页源码的函数如下：

 Function posthtml(ByVal _URL As String) As String
        Dim TitelStart, TitelEnd As Short
        Dim TitelTxt As String
        Dim url As String = _URL ' 网页地址
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
        Dim httpURL As New System.Uri(url)
        httpReq = CType(Net.HttpWebRequest.Create(httpURL), Net.HttpWebRequest)
        httpReq.Method = "GET"
        httpResp = CType(httpReq.GetResponse(), Net.HttpWebResponse)
        Dim reader As IO.StreamReader = New IO.StreamReader(httpResp.GetResponseStream)
        Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
        TitelStart = respHTML.IndexOf("<title>") + 7
        TitelEnd = respHTML.IndexOf("</title>")
        TitelTxt = respHTML.Substring(TitelStart, TitelEnd - TitelStart)
        Return TitelTxt.Trim
    End Function