Discussion :

[walid kh]

bonjour à tous,
voilà je travaille avec vb 2008 et je veux réalisre une application P2P pour un réseau local donc j'ai réalisé une application client / seveur, je voudrais faire du client un serveur et de serveur un client; je m'explique :
un P2P c de client / serveur avec tout le monde serveur donc au démarrage tout le monde est serveur mais lors de l'envoie d'un message l'un est client et l'autre est un serveur le probloème ce résume là
je n'ai pas arrivé à le faire malgré tout le seforts que j'ai mis hélas rien ne marche voilà un bout de code que j'ai fait :

serveur :

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Call serveur()
    End Sub
 
    Public Sub serveur()
        NotifyIcon1.Visible = True
        NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
        NotifyIcon1.BalloonTipText = "Cette le serveur est ici marche bien"
        NotifyIcon1.ShowBalloonTip(20)
        ip = IPAddress.Parse("127.0.0.1")
 
        ecoute = New TcpListener(ip, port)
        ecoute.Start()
        Me.Text = "Ecoute .."
 
        clt = ecoute.AcceptTcpClient()
        NotifyIcon1.BalloonTipText = "Un client vient de se connecter"
        NotifyIcon1.ShowBalloonTip(20)
        Dim NWStream As NetworkStream = clt.GetStream
        Const BUFFER_SIZE As Integer = 10
 
        Dim bytesToRead(BUFFER_SIZE) As Byte
        '---read incoming stream
        Dim textReceived As String = ""
 
        Do
            Dim numBytesRead As Integer = _
                NWStream.Read(bytesToRead, 0, BUFFER_SIZE)
            textReceived += Encoding.ASCII.GetString(bytesToRead, _
                            0, numBytesRead)
        Loop Until Not NWStream.DataAvailable
        NWStream.Flush()
        RB_recu.Text += "Received :" + textReceived
    End Sub
 
    Public Sub client()
        clt.Connect("127.0.0.1", port)
        NotifyIcon1.Visible = True
        NotifyIcon1.BalloonTipText = "Le client a démarré"
        NotifyIcon1.ShowBalloonTip(50)
    End Sub
 
    Private Sub cmd_envoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_envoie.Click
        If Rb_envoie.Text <> "" Then
            Dim NWStream As NetworkStream = clt.GetStream
            Dim bytesToSend As Byte() = Encoding.ASCII.GetBytes(Rb_envoie.Text)
 
            MessageBox.Show("Le message : " & Rb_envoie.Text & " a été envoyé", "", MessageBoxButtons.OK)
            NWStream.Write(bytesToSend, 0, bytesToSend.Length)
            NotifyIcon1.BalloonTipText = "Le client a envoyé le message"
            NotifyIcon1.ShowBalloonTip(50)
            RB_recu.Text += "Le client dit : " + vbCrLf + vbCrLf + Rb_envoie.Text
            Rb_envoie.Text = ""
            NWStream.Flush()
        End If
    End Sub

client :

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
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clt.Connect("127.0.0.1", port)
        NotifyIcon1.Visible = True
        NotifyIcon1.BalloonTipText = "Le client a démarré"
        NotifyIcon1.ShowBalloonTip(50)
    End Sub
 
    Private Sub cmd_envoye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_envoye.Click
        Call mess()
    End Sub
 
    Public Sub mess()
        If rb_envoie.Text <> "" Then
            Dim NWStream As NetworkStream = clt.GetStream
            Dim bytesToSend As Byte() = Encoding.ASCII.GetBytes(rb_envoie.Text)
            '---send the text
            MessageBox.Show("Le message : " & rb_envoie.Text & " a été envoyé", "", MessageBoxButtons.OK)
            NWStream.Write(bytesToSend, 0, bytesToSend.Length)
            NotifyIcon1.BalloonTipText = "Le client a envoyé le message"
            NotifyIcon1.ShowBalloonTip(50)
            Rb_recu.Text += "Le client dit : " + vbCrLf + vbCrLf + rb_envoie.Text
            rb_envoie.Text = ""
            NWStream.Flush()
        End If
    End Sub

et aussi le serveur n'accepte qu'un seul message c tout

merci pour votre aide

[walid kh]

Pas la peine les amis j'ai trouvé une autre solution

[Sendusha]

La solution pourrait être utile aux autres. Merci de la poster.