![VB.NET源码-156个实用实例哦……](http://www.zhzx123.com/VB.NET_03.gif)
Socket 最简单的使用问题
窗体上一个textbox ,一个button,点击button后执行:
Dim s As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
s.Connect(New IPEndPoint(IPAddress.Parse( 127.0.0.1 ), 80))
Dim sendString As String = GET / HTTP/1.0
s.Send(System.Text.Encoding.Default.GetBytes(sendString))
Dim b(4096) As Byte
s.Receive(b, Sockets.SocketFlags.None)
s.Disconnect(False)
s.Close()
tb.Text = System.Text.Encoding.Default.GetString(b)
为什么到s.Receive(b, Sockets.SocketFlags.None)这一句时发生错误?接收不到任何数据?
本机IIS已经启动,通过浏览器访问没有问题。
__________________________________________________________________________
1.看一下你的防火墙有没有打开.
2.Dim sendString As String = GET / HTTP/1.0
改为 GET / http/1.0 & vbcrlf & vbcrlf
__________________________________________________________________________
已解决,问题出在发送编码上。
__________________________________________________________________________
xx
__________________________________________________________________________