vb socket通信 1服务器N客户端(服务器使用同一端口)(2)
我们共享一下客户端程序,客户端程序比较简单,连接一下就可以了,呵呵
客户端:
Private Sub cmdConnect_Click()
sckclient.RemoteHost = Trim(txtServerIP.Text) '服务IP
sckclient.RemotePort = 6005 '服务端口
sckclient.Connect
End Sub
Private Sub sckclient_DataArrival(ByVal bytesTotal As Long)
Dim ss As String
sckclient.GetData ss
Text1.Text = Text1.Text & ss
End Sub
Private Sub sckclient_Close()
MsgBox ("socket closed")
End Sub
Private Sub sckclient_Connect()
MsgBox "连接成功!", vbInformation, "客户端"
End Sub
Private Sub sckclient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'MsgBox "错误", vbOKOnly, "注意!"
If Err.Number = 10048 Then
MsgBox "端口冲突,退出!", vbOKOnly, "注意!"
Else
MsgBox "错误", vbOKOnly, "注意!"
End If
End Sub