vb socket通信 1服务器N客户端(服务器使用同一端口)(2)
2009-02-18 10:46
477 查看
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
我们共享一下客户端程序,客户端程序比较简单,连接一下就可以了,呵呵
客户端:
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
相关文章推荐
- vb socket通信 1服务器N客户端(服务器使用同一端口)(1)
- windows下使用php socket 和 html5 websocket实现服务器和客户端之间通信
- 网络编程:使用Socket实现简单的服务器和客户端的通信
- C#使用Socket实现服务器与多个客户端通信(简单的聊天系统)
- Android客户端通过socket与服务器通信(解决源码使用出现的错误)
- 使用Socket进行一台服务器与多个Android客户端进行双向通信
- C#做客户端Java做服务器使用Socket通信的大小端序和行结束符的问题
- 使用Socket进行一台服务器与多个Android客户端进行双向通信
- Python网络编程之socket编程(一)--使用TCP和UDP客户端和服务器通信
- 使用C语言socket实现windows pc与ftp服务器通信---socket实现ftp客户端
- C#使用Socket实现一个socket服务器与多个socket客户端通信
- 客户端使用Socket与服务器通信
- socket通信,TCP协议,有多个客户端,服务器怎么向指定IP及端口的客户端发送数据!
- tcp通讯的方式并使用socket建立客户端与服务器的通信的过程
- 使用socket 将 服务器端和客户端通信的例子
- ServerSocket和Socket建立通信(服务器和客户端循环接收发送)
- Socket 通信原理(Android客户端和服务器以TCP&&UDP方式互通)
- socket实现服务器与客户端通信
- Java 的 Socket 服务器和客户端通信的例子 存在一个小问题
- Android中socket编程实现简单的客户端和服务器之间的通信