"不允许对非连接的套接字执行此操作"求解
pl99k 2008-06-05 10:15:22 按例子弄的,一个服务器端,一个客户端
服务器端:
Dim stm As Net.Sockets.NetworkStream
Dim lis As Net.Sockets.Socket
Dim rr As StreamReader
Dim wr As StreamWriter
Dim s As Sockets.Socket
Try
lis = New Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Stream, Sockets.ProtocolType.Tcp)
lis.Blocking = True
lis.Bind(New Net.IPEndPoint(Dns.Resolve(Dns.GetHostName.ToString).AddressList(0), 11000))
lis.Listen(0)
lis.Accept()
s = lis
lis.Close()
stm = New Net.Sockets.NetworkStream(lis)
rr = New StreamReader(stm)
wr = New StreamWriter(stm)
wr.Write("hellohello")
wr.Flush()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
启动服务器端后启动客户端,出现异常"不允许对非连接的套接字执行此操作",求高人解答。