为什么我用WINSOCK下载网页总不完整？？

Question

你这个HTTP/1.0的太旧了啊
虚拟主机全都是HTTP/1.1的

Answer 1

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    Dim o_strContent As String    strContent=Space(bytesTotal)    Winsock1.GetData strContent, vbString, bytesTotal    Text1.Text = Text1.Text & strContentEnd Sub

Answer 2

修正一下:Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)    Dim o_strContent As String    o_strContent=Space(bytesTotal)    Winsock1.GetData o_strContent, vbString, bytesTotal    Text1.Text = Text1.Text & o_strContentEnd Sub