Discussion :

[hugoclo]

Bonjour,
Voila j'utilise ce code pour ecouter le port 900 de mon pc :

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
26
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Tester.Main()
    End Sub
 
End Class
 
Public Class Tester
    Public Shared Sub Main()
 
        Dim client1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim server1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim MyIP As IPAddress
        Dim bytes2(255) As Byte
        Dim Port1 As Integer = 900
        Dim port2 As Integer = 900
 
        MyIP = IPAddress.Parse("127.0.0.1")
        Dim server2 As New IPEndPoint(MyIP, Port1)
        Dim client2 As New IPEndPoint(MyIP, port2)
        client1.Bind(client2)
        client1.ReceiveFrom(bytes2, server2)
        client1.Close()
    End Sub
End Class

Je souhaiterais savoir comment faire pour que les données s'affichent dans un textbox de mon form 1.
Merci

[Pol63]

les classe encoder doivent etre pas mal, mais sinon moi j'utilise chr(byte) et asc(char), qui sont hérités de vb6

[hugoclo]

Voila cela fonctionne :

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
Public Class Tester
    Public Shared Sub Main(ByVal txt As textbox)
 
        Dim client1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim server1 As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        Dim MyIP As IPAddress
        Dim bytes2(255) As Byte
        Dim Port1 As Integer = 900
        Dim port2 As Integer = 900
        Dim str As String
        MyIP = IPAddress.Parse("127.0.0.1")
        Dim server2 As New IPEndPoint(MyIP, Port1)
        Dim client2 As New IPEndPoint(MyIP, port2)
        client1.Bind(client2)
        client1.ReceiveFrom(bytes2, server2)
        str = System.Text.Encoding.ASCII.GetString(bytes2)
        txt.Text = str
        client1.Close()
    End Sub
End Class

Par contre comment faire pour que l'ecoute soit en continue.
Dans quel evenement de mon form dois je mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Tester.Main(TextBox2)

Merci

[Pol63]

pour écouter en continue, il faut relancer un écoute dès que tu as recu quelquechose
(un thead peut etre utile)

pas compris ta question sur le textbox2 ?
si c'est pour envoyer des données, tu peux faire un bouton