Discussion :

[Guimbtz]

Bonjour a tous,
je cherche a faire un petit programme, tout compte qui:
- Ouvre un port,
- A chaque packet recu, on inscrit sa valeur dans richtextbox2

et c'est tout
j'ai compris comment on peut ouvrir un port mais pour mettre la valeur de tout les packet recu, plus compliquer.

merci de m'aider

[hugoclo]

voici le code dont je m sert Attention UDP

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Imports System.Net.Sockets
Imports System.Text

#Region "Déclarations & structures"
    Private m_UdpClient As UdpClient
    Private Delegate Sub m_DelegateUdpReceive(ByVal str As String, ByVal sIP As String)
    Private UDPPORTNO As Integer
    Private result As List(Of String)
    Private sRemoteIP As String = Nothing 

a mettre dans FORM LOAD
                UDPPORTNO = TON NUMERO DE PORT
                Invalidate()
                m_UdpClient = New UdpClient(UDPPORTNO) 'UDP port create..
                m_UdpClient.BeginReceive(AddressOf UdpReceiveMessage, Nothing) 'BeginReceive
                Exit Property
end sub


#Region " Méthodes privées "
    Private Sub UdpReceiveMessage(ByVal IAr As IAsyncResult)
        Dim receiveBytes() As Byte
        Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
        receiveBytes = m_UdpClient.EndReceive(IAr, RemoteIpEndPoint)
        Dim strReceived As String = Nothing
        strReceived = Encoding.Default.GetString(receiveBytes)
        Dim para() As Object = {strReceived, RemoteIpEndPoint.Address.ToString}
        Me.Invoke(New m_DelegateUdpReceive(AddressOf Me.prRecerved), para) 'Thread receive winform 
        m_UdpClient.BeginReceive(AddressOf UdpReceiveMessage, Nothing) 'BeginReceive continue
    End Sub
    Private Sub prRecerved(ByVal paraSTR As String, ByVal pRemoteIP As String)
        Dim localAdd As IPAddress = IPAddress.Parse(Dns.GetHostAddresses(My.Computer.Name)(0).ToString)
        Dim myIP As String = Nothing
        myIP = localAdd.ToString
        Dim udpClient As New UdpClient(myIP, UDPPORTNO + 1)
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(paraSTR)
        Try
            udpClient.Send(sendBytes, sendBytes.Length)
        Catch e As Exception
            Console.WriteLine(e.ToString())
        End Try
        ta_richtext_box.text  = ta_richtext_box.text & paraSTR

    End Sub


    Private Sub ConnectedUsers()
        'UDP users
        Dim localAdd As IPAddress = IPAddress.Parse(Dns.GetHostAddresses(My.Computer.Name)(0).ToString)
        Dim myIP As String = Nothing
        myIP = localAdd.ToString
        If myIP = Nothing Then Exit Sub
        Dim pNum As Integer
        Dim strSplit() As String = Nothing
        strSplit = Split(myIP, ".")
        Dim tUdpClient As UdpClient
        tUdpClient = New UdpClient
        Dim sendBytes As Byte() = Encoding.Default.GetBytes("/CON" & myIP.ToString & "$" & "NickName")

        Me.Cursor = Cursors.WaitCursor
        For pNum = 1 To 254
            '192.xxx.xxx.1~254
            sRemoteIP = strSplit(0) & "." & strSplit(1) & "." & strSplit(2) & "." & pNum
            If sRemoteIP <> myIP Then
                Try
                    Application.DoEvents()
                    tUdpClient.Connect(sRemoteIP, UDPPORTNO)
                    tUdpClient.Send(sendBytes, sendBytes.Length)
                Catch ex As Exception
                    Debug.Print(ex.Message)
                End Try
            End If
        Next pNum
        Erase strSplit
        tUdpClient.Close()
        tUdpClient = Nothing
        Me.Cursor = Cursors.Default
    End Sub
end region

[Guimbtz]

Je comprend pas comme t'inscrire la valeur de tout les packet reçu dans richtextbox2 ...
Un peu plus de précision ?

[hugoclo]

la variable "paraSTR" correspond aux packet de données arrivé sur ton port
donc pour la mettre dans ton richtextbox2 :
remplace la ligne en rouge dans 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
Private Sub prRecerved(ByVal paraSTR As String, ByVal pRemoteIP As String)
        Dim localAdd As IPAddress = IPAddress.Parse(Dns.GetHostAddresses(My.Computer.Name)(0).ToString)
        Dim myIP As String = Nothing
        myIP = localAdd.ToString
        Dim udpClient As New UdpClient(myIP, UDPPORTNO + 1)
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(paraSTR)
        Try
            udpClient.Send(sendBytes, sendBytes.Length)
        Catch e As Exception
            Console.WriteLine(e.ToString())
        End Try
        ta_richtext_box.text  = ta_richtext_box.text & paraSTR

    End Sub

par:

Code :

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

richtextbox2.text = richtextbox2.text & paraSTR

.
Avec ce code ton richtextbox va s'implemanter à chaque arrivée de données.

[Guimbtz]

Salut, je suppose que tout le monde connait wpe pro
esceque on peut se servir de se code pour

incrire la valeur des packet envoyer vers une ip genre 255.255.255.255:255 ?
et les inscrire dans richtextbox3 ?

sinon tu aurait un bon code pour faire cela ?
merci d'avance