Bonjour,

je dois recuperer sur le port 7879 les messages suivants, je n'ai pas d'envoi de message sur ce port :
<MODESMESSAGE>
<DATETIME>20070622141943</DATETIME>
<MODES>400F2B</MODES>
<CALLSIGN>BAW134</CALLSIGN>
<ALTITUDE>120300</ALTITUDE>
<GROUNDSPEED>451</GROUNDSPEED>
<TRACK>234</TRACK>
<VRATE>0</VRATE>
<AIRSPEED></AIRSPEED>
<LATITUDE>-14.1102</LATITUDE>
<LONGITUDE>-31.5789</LONGITUDE>
</MODESMESSAGE>

J'ai parcourus les forums et j'ai trouve a construire ce code :
[
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
        Const portNo As Integer = 7879
        Dim localAdd As System.Net.IPAddress = _
            IPAddress.Parse("127.0.0.1")
        Dim listener As New TcpListener(localAdd, portNo)
        listener.Start()
              Console.WriteLine("Listening...")
 
        Dim TcpClient_0 As TcpClient
        TcpClient_0 = listener.AcceptTcpClient()
 
        Dim NWStream As NetworkStream = TcpClient_0.GetStream
        Dim bytesToRead(TcpClient_0.ReceiveBufferSize) As Byte
        Dim numBytesRead As Integer
        '---read incoming stream
         numBytesRead = NWStream.Read(bytesToRead, 0, CInt(TcpClient_0.ReceiveBufferSize))
 
        '---write back the text
        ' Console.WriteLine("Sending back : " & _
        '      Encoding.ASCII.GetString(bytesToRead, 0, numBytesRead))
        '  NWStream.Write(bytesToRead, 0, numBytesRead)
 
        TcpClient_0.Close()
        listener.Stop()
        Console.ReadLine()
J'ai fait avant les imports mais rien ne se passe. Que manque t il a tout cela.

KL