请教关于socket接收数据的问题！

[Qqwwee_Com]

Dim sck As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
sck.Connect(New Net.IPEndPoint(Net.IPAddress.Parse("61.141.8.70"), 80))


Dim StrGet As String = ""
StrGet += "GET /art/12.htm HTTP/1.1" & vbCrLf
StrGet += "Accept: */*" & vbCrLf
StrGet += "Referer: http://www.1t1k.net" & vbCrLf
StrGet += "Accept-Language: zh-cn" & vbCrLf
StrGet += "UA-CPU: x86" & vbCrLf
StrGet += "Accept-Encoding: gzip, deflate" & vbCrLf
StrGet += "Host: www.1t1k.net" & vbCrLf
StrGet += "Connection: Keep-Alive" & vbCrLf & vbCrLf

sck.Send(System.Text.Encoding.ASCII.GetBytes(StrGet))

Dim buf(8191) As Byte
Dim readed As Integer = 0
Do

readed = sck.Receive(buf, 0, buf.Length, SocketFlags.None)

If readed > 0 Then
Console.WriteLine(Now & "接收字节数：" & readed)
End If
Loop While readed > 0
Console.WriteLine(Now & "：结束")


以后代码为什么运行不到最后一行
Console.WriteLine(Now & "：结束")

，我调试跟踪，发现一直在readed = sck.Receive(buf, 0, buf.Length, SocketFlags.None)这句等待？

[Qqwwee_Com]

在线等待。

[Qqwwee_Com]

期待！

[Knight94]

你最好通过socket对象的Available属性判断一下是否有数据需要读

[www_123du_com]

Receive是阻塞的，它会一直等到接受到数据后才会返回，如果一直没有数据，就一直不会返回。(当然也有超时逻辑)