Socket 最简单的使用有关问题
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
窗体上一个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