Foxtable(狐表)用户栏目专家坐堂 → [求助]求助:Socket 客户端连接服务端


  共有3092人关注过本帖树形打印复制链接

主题:[求助]求助:Socket 客户端连接服务端

帅哥哟,离线,有人找我吗?
machle
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:355 积分:3925 威望:0 精华:0 注册:2014/7/29 23:42:00
[求助]求助:Socket 客户端连接服务端  发帖心情 Post By:2023/1/15 12:03:00 [只看该作者]

Socket 客户端连接服务端,没问题。问题:当通讯一方中断,会出现闪退和死掉不动的情况。下面代码是启动监听的界面,请问我该如何新建一个ServerSocket?
能否给我一个完整代码,找了很长时间,每个帖子都是解决某一个问题,但又会带来新的问题,拼凑在一起也不行。个人能力确实不太够。谢谢!!

Dim lab1 As WinForm.Label = e.Form.Controls("Label1")
'Dim ServerSocket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim listener As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim localEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("192.168.1.131"), 8080)

If ServerSocket Is Nothing Then
   Dim ServerSocket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp) 
End If 

'If listener.Close Is True Then
'    listener.
'End If 


If Vars("lianjie") = False Then
    
    ServerThread = New System.Threading.Thread(AddressOf Listen)
    ServerThread.Start()
    lab1.Text = "监听装态:" & "已经开始监听8080端口" 
    
Else
    lab1.Text = "监听装态:" & "已经开始监听8080端口"
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106566 积分:541995 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/15 20:38:00 [只看该作者]

请上传实例测试

 回到顶部