怎么不能读取完整网页的源代码？？？

Question

OpenUrl = "www.xxxxx.com"'网址省去
If Inet1.StillExecuting Then
        DoEvents
        Exit Sub
End If
RichTextBox1.Text = ""
RichTextBox1.Text= Inet1.OpenUrl(OpenUrl)
为什么我只能读取网页源代码的一部分，用
Private Sub Inet1_StateChanged(ByVal State As Integer)
End Sub

Answer 1

我用 Inet 的时候也和你一样，后来改成webbrowser就解决了。

Answer 2

Private Function GetUrlFile(stUrl As String) As String
    Dim lgInternet As Long, lgSession As Long
    Dim stBuf As String * 1024
    Dim inRes As Integer
    Dim lgRet As Long
    Dim stTotal As String
    stTotal = vbNullString
    lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0)
    If lgSession Then
        lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
                                     0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
        If lgInternet Then
            Do
                inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
                If (lgRet = 1024) Then
                    stTotal = stTotal & stBuf
                Else
                    stTotal = stTotal & StrConv(LeftB$(StrConv(stBuf, vbFromUnicode), lgRet), vbUnicode)
                End If
            Loop While (lgRet <> 0)
            '
        End If
        inRes = InternetCloseHandle(lgInternet)
    End If
    GetUrlFile = stTotal
End Function
Private Sub Command1_Click()
Debug.Print GetUrlFile("http://www.163.com")
End Sub