在解決這個問題之前，我一直很苦惱。在網上到處搜尋，都找不到相應的解決辦法。網上，雖然有提及完全相同的問題的帖子，但是答案最後往往沒有得到發帖人的肯定，或者帖子就此die在論壇中。為了解決我設計網路爬蟲程式所不可迴避的獲取網頁編碼的問題，我克服重重困難，在MSDN的一個帖子中的一個高人的一句話點醒了我。我似乎已經找到了解決問題的辦法，但是後來，發現找到的那種辦法的確可以解決亂碼的問題，但是會出現獲取的網頁不完整的問題。

在我堅韌不拔的意志的支援下，我不停的嘗試，不停的改進，終於設計出了一個可以完全解決此問題的程式碼，在這裡和大家分享，並宣告：不可用於商業目的，僅用於愛好者學習思想。相信大家可以設計出更加好，更加高效的程式。

 Function GetWebCode(ByVal strURL As String) As String
        Dim httpReq As System.Net.HttpWebRequest
        Dim httpResp As System.Net.HttpWebResponse
        Dim httpURL As New System.Uri(strURL)
        Dim ioS As System.IO.Stream, charSet As String, tCode As String
        Dim k() As Byte
        ReDim k(0)
        Dim dataQue As New Queue(Of Byte)
        httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
        Dim sTime As Date = CDate("1990-09-21 00:00:00")
        httpReq.IfModifiedSince = sTime
        httpReq.Method = "GET"
        httpReq.Timeout = 7000

        Try
            httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
        Catch
            Debug.Print("weberror")
            GetWebCode = "<title>no thing found</title>" : Exit Function
        End Try
        '以上為網路資料獲取
        ioS = CType(httpResp.GetResponseStream, Stream)
        Do While ioS.CanRead = True
            Try
                dataQue.Enqueue(ioS.ReadByte)
            Catch
                Debug.Print("read error")
                Exit Do
            End Try
        Loop
        ReDim k(dataQue.Count - 1)
        For j As Integer = 0 To dataQue.Count - 1
            k(j) = dataQue.Dequeue
        Next
            '以上，為獲取流中的的二進位制資料
        tCode = Encoding.GetEncoding("UTF-8").GetString(k) '獲取特定編碼下的情況，畢竟UTF-8支援英文正常的顯示
        charSet = Replace(GetByDiv2(tCode, "charset=", """"), """", "") '進行編碼型別識別
            '以上，獲取編碼型別
        If charSet = "" Then 'defalt
            If httpResp.CharacterSet = "" Then
                tCode = Encoding.GetEncoding("UTF-8").GetString(k)
            Else
                tCode = Encoding.GetEncoding(httpResp.CharacterSet).GetString(k)
            End If
        Else
            tCode = Encoding.GetEncoding(charSet).GetString(k)
        End If
        Debug.Print(charSet)
        'Stop
            '以上，按照獲得的編碼型別進行資料轉換
            '將得到的內容進行最後處理，比如判斷是不是有出現字串為空的情況
            GetWebCode = tCode
            If tCode = "" Then GetWebCode = "<title>no thing found</title>"
    End Function
 

    Function GetByDiv2(ByVal code As String, ByVal divBegin As String, ByVal divEnd As String)  '獲取分隔符所夾的內容[完成，未測試]
        '僅用於獲取編碼資料
        Dim lgStart As Integer
        Dim lens As Integer
        Dim lgEnd As Integer
        lens = Len(divBegin)
        If InStr(1, code, divBegin) = 0 Then GetByDiv2 = "" : Exit Function
        lgStart = InStr(1, code, divBegin) + CInt(lens)

        lgEnd = InStr(lgStart + 1, code, divEnd)
        If lgEnd = 0 Then GetByDiv2 = "" : Exit Function
        GetByDiv2 = Mid(code, lgStart, lgEnd - lgStart)
    End Function
 

Imports System.Net
Imports System.IO
Imports System.Text.Encoding
Imports System.Text

然後，就可以使用這個程式碼完成網頁原始碼下載的工作了。

歡迎提出改進意見看法。