inet下载的网页源文件为什么有时候下不全？

Question

做一个text1控件，设置成multiline=true
然后放一个inet（部件里面的micro$ost internet transfer control 6.0，然后多出来的控件）然后
Private Sub Command1_Click()
Text1 = Inet1.OpenURL("http://panojsp.p5w.net/wzpx/wytp.jsp")
MsgBox Len(Text1)
End Sub会发现和你用ie打开的看到的源文件不一样，少了很多......但是换一个比如http://download.pchome.net的又没问题了。

Answer 1

我都是在StateChanged接受数据
Private Sub INet_StateChanged(ByVal State As Integer)
Select Case State    
    Case 12    
       tmpNetString = INet(Index).GetChunk(1024)
       Do While tmpNetString <> ""
            ReceiveHtmlData = ReceiveHtmlData + tmpNetString
            tmpNetString = INet(Index).GetChunk(1024)
        Loop

Answer 2

GetChunked就是从缓存区里面逐步读入数据。
楼上的代码意思是每次从缓存里读入1024字节内容放入Text里面。一来这种方法比较正宗：IE的内容也是慢慢载下来的，不会一把抓的。另一点就是当OpenUrl返回长度太长时要发生错误。另外，TextBox的Text值的长度有上限32K。最好换成RichTextBox，不排除某些HTML长得怕人的可能性。