"不允许对非连接的套接字执行此操作"求解

pl99k pl99k 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
按例子弄的,一个服务器端,一个客户端
服务器端:
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

启动服务器端后启动客户端,出现异常"不允许对非连接的套接字执行此操作",求高人解答。
...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
pl99k
VB 16,718 成员 110,520 内容