16,547
社区成员
发帖
与我相关
我的任务
分享
Me.Winsock1.Close
Me.Winsock1.RemoteHost = "x.x.x.x"
Me.Winsock1.RemotePort = 10000
Me.Winsock1.Connect
Do
DoEvents
Loop Until Me.Winsock1.State = 7
Me.Winsock1.SendData "haha"
Me.Winsock1.Close
Private Sub ReceiveAsync(obj As Object)
Dim msg As String
Dim b() As Byte = New Byte(1024) {}
Try
Dim Listener As Socket = CType(obj, Socket)
Dim s As Integer = Listener.Receive(b, SocketFlags.None)
If s = 0 Then
msg = Now + " 收到客户端消息(" + Listener.RemoteEndPoint.ToString + "):" + vbNewLine + "Nothing"
Else
msg = Now + " 收到客户端消息(" + Listener.RemoteEndPoint.ToString + "):" + vbNewLine + System.Text.Encoding.UTF8.GetString(b, 0, s)
End If
....
_Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
_Socket.Bind(New IPEndPoint(IPAddress.Parse("x.x.x.x"), 10000))
_Socket.Listen(20)
While True
Dim Listener As Socket = _Socket.Accept
Dim t As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf ReceiveAsync))
t.IsBackground = True
t.Start(Listener)
End While