Visual Basic UDPClient Client/Serveur de modèle?

Vous devez d'abord besoin de mettre en place deux UdpClients. Un client à l'écoute et les autres pour l'envoi de données. (Vous aurez également besoin de choisir un disponible/inutilisée numéro de port et l'adresse IP de votre cible - la machine que vous souhaitez envoyer de données.)

De configurer le récepteur,

1. Instancier votre UdpClient variable avec le numéro de port que vous avez choisi plus tôt,

2. Créer un nouveau thread pour éviter le blocage lors de la réception de données,

3. Boucle sur le client de recevoir méthode pour aussi longtemps que vous le souhaitez à recevoir des données (la boucle d'exécution devraient être dans le nouveau thread),

4. Lorsque vous recevez un lot de données (appelé un "paquet") vous pouvez avoir besoin de convertir le tableau d'octets à quelque chose de plus significatif,

5. De créer un chemin pour sortir de la boucle quand vous voulez à la fin de la réception des données.

Pour configurer l'expéditeur,

1. Instancier votre UdpClient variable avec le numéro de port que vous avez choisi plus tôt (vous souhaiterez peut-être activer la possibilité d'envoyer des paquets de diffusion. Cela vous permet d'envoyer des données à tous les auditeurs sur votre réseau local),

2. Lorsque vous avez besoin de transmettre des données, de convertir les données dans un tableau d'octets, puis appel Send().

^{je proposerais que vous avez un rapide écrémé lire à travers cette.}

Voici un code pour obtenir vous avez commencé...

'''''''''''''''''''''''Set up variables''''''''''''''''''''
Private Const port As Integer = 9653                         'Port number to send/recieve data on
Private Const broadcastAddress As String = "255.255.255.255" 'Sends data to all LOCAL listening clients, to send data over WAN you'll need to enter a public (external) IP address of the other client
Private receivingClient As UdpClient                         'Client for handling incoming data
Private sendingClient As UdpClient                           'Client for sending data
Private receivingThread As Thread                            'Create a separate thread to listen for incoming data, helps to prevent the form from freezing up
Private closing As Boolean = False                           'Used to close clients if form is closing
''''''''''''''''''''Initialize listening & sending subs'''''''''''''''''
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
InitializeSender()          'Initializes startup of sender client
InitializeReceiver()        'Starts listening for incoming data                                             
End Sub
''''''''''''''''''''Setup sender client'''''''''''''''''
Private Sub InitializeSender()
sendingClient = New UdpClient(broadcastAddress, port)
sendingClient.EnableBroadcast = True
End Sub
'''''''''''''''''''''Setup receiving client'''''''''''''
Private Sub InitializeReceiver()
receivingClient = New UdpClient(port)
Dim start As ThreadStart = New ThreadStart(AddressOf Receiver)
receivingThread = New Thread(start)                            
receivingThread.IsBackground = True                            
receivingThread.Start()                                       
End Sub
'''''''''''''''''''Send data if send button is clicked'''''''''''''''''''
Private Sub sendBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendBut.Click
Dim toSend As String = tbSend.Text                  'tbSend is a textbox, replace it with whatever you want to send as a string
Dim data() As Byte = Encoding.ASCII.GetBytes(toSend)'Convert string to bytes
sendingClient.Send(data, data.Length)               'Send bytes
End Sub
'''''''''''''''''''''Start receiving loop''''''''''''''''''''''' 
Private Sub Receiver()
Dim endPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, port) 'Listen for incoming data from any IP address on the specified port (I personally select 9653)
While (True)                                                     'Setup an infinite loop
Dim data() As Byte                                           'Buffer for storing incoming bytes
data = receivingClient.Receive(endPoint)                     'Receive incoming bytes 
Dim message As String = Encoding.ASCII.GetString(data)       'Convert bytes back to string
If closing = True Then                                       'Exit sub if form is closing
Exit Sub
End If
End While
End Sub
'''''''''''''''''''Close clients if form closes''''''''''''''''''
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
closing = True          'Tells receiving loop to close
receivingClient.Close()
sendingClient.Close()
End Sub

^{Voici quelques autres exmples: Ici, ici, ici et ici.}

OriginalL'auteur Sam