Hellomy
Apr 22nd, 2008, 05:48 PM
I'm using this UDP Server & Client Code. Any way to make it accept multiple connections at once?
CLIENT:
Option Explicit
Private Sub cmdGO_Click()
txtHost.Text = Trim$(txtHost.Text)
txtPort.Text = Trim$(txtPort.Text)
If Len(txtHost.Text) > 0 And Len(txtPort.Text) > 0 And _
IsNumeric(txtPort.Text) And Len(txtData.Text) > 0 Then
sckClient.RemoteHost = txtHost.Text
sckClient.RemotePort = CInt(txtPort.Text)
sckClient.Bind 1024
sckClient.SendData txtData.Text
End If
End Sub
SERVER:
Option Explicit
Private Sub Form_Load()
sckServer.Protocol = sckUDPProtocol
sckServer.LocalPort = 3794
sckServer.Bind 3794
Me.Caption = "Server - OPEN"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sckServer.Close
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
sckServer.GetData strData, vbString, bytesTotal
Debug.Print strData
Me.Caption = "DATA RECEIVED"
End Sub
CLIENT:
Option Explicit
Private Sub cmdGO_Click()
txtHost.Text = Trim$(txtHost.Text)
txtPort.Text = Trim$(txtPort.Text)
If Len(txtHost.Text) > 0 And Len(txtPort.Text) > 0 And _
IsNumeric(txtPort.Text) And Len(txtData.Text) > 0 Then
sckClient.RemoteHost = txtHost.Text
sckClient.RemotePort = CInt(txtPort.Text)
sckClient.Bind 1024
sckClient.SendData txtData.Text
End If
End Sub
SERVER:
Option Explicit
Private Sub Form_Load()
sckServer.Protocol = sckUDPProtocol
sckServer.LocalPort = 3794
sckServer.Bind 3794
Me.Caption = "Server - OPEN"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sckServer.Close
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
sckServer.GetData strData, vbString, bytesTotal
Debug.Print strData
Me.Caption = "DATA RECEIVED"
End Sub