UDPClient - Ne fonctionne pas

Question

Bonjour,
Je suis un programmeur en VB6 et je viens de migrer vers VB.NET.
Question:
Dans mon programme VB, j'utilise Winsock.  Je suis configurer en UDP Protocol, parce que je dois me connecter avec un automate (PLC).

En VB6 voici mon code (Ce code est fonctionnel):
Configuration de winsock
- Protocole: sckUDPProtocol
- LocalPort: 9600
- RemotePort: 9600
- RemoteHost: 192.168.0.90

Dim SData() As Byte
--------------------------------------------------------------------------
Private Sub cmdSend_Click()
   Dim xx As Integer
   Dim SendTotal As String
   Dim SendResult As String


   SendTotal = "800002002000005A00000101820000000001"
   For xx = 1 To Len(SendTotal) Step 2
       SendResult = SendResult + Chr$(Val("&h" + Mid$(SendTotal, xx, 2)))
   Next


   Winsock1.SendData SendResult 
End Sub
------------------------------------------------------------------------------------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Donn&#233;es As Variant
Dim i%
Dim repon As String
Dim R&#233;sult As String


Winsock1.GetData Donn&#233;es, vbString


 


For i% = 1 To Len(Donn&#233;es)
    repon = repon + Right$("00" + Hex$(Asc(Mid$(Donn&#233;es, i%, 1))), 2)
Next i%


 


Resultat.Caption = Resultat.Caption & repon & vbCr


 


End Sub

Je veux prendre ce code et le rendre fonctionnel, mais je ne veux pas utilis&#233; le contr&#244;le "Microsoft Winsock control (MSWINSCK.OCX)", parce que je fait une application pour un pocket pc, qui utilise seulement Compact Framework .Net

Voici mon code VB.Net, mais il ne fonctionne pas 
Dim udpClient As New UdpClient()
Try
   udpClient.Connect("192.168.0.50", 9600)

   Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("800002002000005A00000101820000000001")
   
   udpClient.Send(sendBytes, sendBytes.Length)

   Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

   Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
   Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

   Console.WriteLine(("This is the message you received " + _
                                 returnData.ToString()))
    Console.WriteLine(("This message was sent from " + _
                                 RemoteIpEndPoint.Address.ToString() + _ 
                                 " on their port number " + _
                                 RemoteIpEndPoint.Port.ToString()))
   udpClient.Close()
 
Catch e As Exception
   Console.WriteLine(e.ToString())
End Try
   End Sub 

Lorsque j'ex&#233;cute mon code je plante &#224; la ligne suivante :
Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
Parcontre, je vois les lumi&#232;res (Send) et (Receive) allum&#233; lorsque je fais la commande (udpClient.Send)

Merci

predictus · Answer

Personne ne sait comment faire ????