Discussion :

[wilsongamo]

Bonjour
j'ai trouvé un programme d'une communication client serveur sur un site mais je n'arrive pas a executé le programme serveur et client en meme temps sur ma machine je vous pris de m'aider.
voici les programmes
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
Imports System.Net.Sockets
Imports System.Net
 
Module Module1
    Dim port As String = "8080"
    Dim ip As String = "127.0.0.1"
 
    Sub Main()
        Dim MonSocketServeur As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim MonEP As IPEndPoint = New IPEndPoint(IPAddress.Parse(ip), port)
 
        MonSocketServeur.Bind(MonEP) 'Lie le socket à cette IP
        MonSocketServeur.Listen(1) 'Se met en mode écoute
 
        Console.WriteLine("Socket serveur initialisé.")
 
        While True 'Boucle à l'infini
            Console.WriteLine("En attente d'un client.")
            'Se met en attente de connexion et appelle TraitementConnexion() lors d'une connexion.
            Dim SocketEnvoi As Socket = MonSocketServeur.Accept() 'Bloquant tant que pas de connexion
            TraitementConnexion(SocketEnvoi)
        End While
 
    End Sub
 
    Sub TraitementConnexion(ByVal SocketEnvoi As Socket)
        Console.WriteLine("Socket client connecté, envoi de l'heure.")
        Try
            Dim Heure As Byte() = System.Text.Encoding.ASCII.GetBytes(Now.ToLongTimeString) 'Convertit l'heure en bytes
 
            Dim Envoi As Integer = SocketEnvoi.Send(Heure) 'Envoie l'heure au client
            Console.WriteLine(Envoi & " bytes envoyés au client")
        Catch ex As Exception
            Console.WriteLine("Erreur lors de l'envoi du message au socket. " & ex.ToString)
        End Try
    End Sub
 
End Module

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Imports System.Net.Sockets
Imports System.Net
 
Module Module1
 
    Dim port As String = "8080"
    Dim ip As String = "127.0.0.1"
 
    Sub Main()
 
        Dim MonSocketClient As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim MonEP As IPEndPoint = New IPEndPoint(IPAddress.Parse(ip), port)
        Console.WriteLine("Socket client initialisé.")
 
        Try
            Console.WriteLine("Connexion au serveur ...")
            MonSocketClient.Connect(MonEP)
            TraitementConnexion(MonSocketClient)
        Catch ex As Exception
            Console.WriteLine("Erreur lors de la tentative de connexion : " & ex.ToString)
        End Try
 
        Console.ReadLine()
 
    End Sub
 
    Sub TraitementConnexion(ByVal SocketReception As Socket)
        Console.Write("Connecté, réception de l'heure : ")
        Dim Heure(255) As Byte 'Création du tableau de réception
        Try
            SocketReception.Receive(Heure) 'Réception
            Console.WriteLine(System.Text.Encoding.ASCII.GetString(Heure)) 'Affichage
        Catch ex As Exception
            Console.WriteLine("Erreur lors de la réception des données : " & ex.ToString)
        End Try
    End Sub
 
End Module

Merci

[jopopmk]

Salut,

quel est le souci exactement ? A part que le numéro de port devrait être un Integer, ton code semble tout à fait fonctionnel.

[wilsongamo]

Salut,

quel est le souci exactement ? A part que le numéro de port devrait être un Integer, ton code semble tout à fait fonctionnel.

je ne connais pas comment executer ces 2 programmes en meme temps sur visual basic

[Pol63]

Si les 2 projets dont dans la meme solution, clic droit sur la solution / choisir les programmes de démarrage
Tu peux en définir plusieurs à démarrer.

[wilsongamo]

Si les 2 projets dont dans la meme solution, clic droit sur la solution / choisir les programmes de démarrage
Tu peux en définir plusieurs à démarrer.

Non il sagit de deux programmes differents

[Pol63]

bah tu lances les 2 alors ...

et si tu nous réponds je ne sais pas comment lancer les 2 je te répondrais que si tu sais en lancer un alors tu sais en lancer 2

[wilsongamo]

bah tu lances les 2 alors ...

et si tu nous réponds je ne sais pas comment lancer les 2 je te répondrais que si tu sais en lancer un alors tu sais en lancer 2

sur la meme machine ? en meme temps ? je n'arrive vraiment pas a les tester

[jopopmk]

Pour faire au plus simple :
- tu crées une solution avec 2 projet VB.NET en mode console,
- un des projets s'appellera par exemple "server" et contiendra le code server que tu nous as présenté,
- l'autre s'appellera par exemple "client" et contiendra le code client que tu nous a présenté,
- tu compiles tout ça et là tu as deux possibilités : lancer les appli depuis VS, ou lancer directement à la main les exécutables générés (en pensant bien à lancer le server avant le client, ce dernier ne bouclant pas en attendant de trouver un server).

Pour lancer depuis VS il faut que click-droit sur le projet "server" et que tu choisisses "définir comme projet de démarrage", ensuite tu le lances avec Ctrl+F5. Une fois ton server lancé et en attente, tu fais la même manip' sur le projet "client". Et voilà !

[wilsongamo]

Pour faire au plus simple :
- tu crées une solution avec 2 projet VB.NET en mode console,
- un des projets s'appellera par exemple "server" et contiendra le code server que tu nous as présenté,
- l'autre s'appellera par exemple "client" et contiendra le code client que tu nous a présenté,
- tu compiles tout ça et là tu as deux possibilités : lancer les appli depuis VS, ou lancer directement à la main les exécutables générés (en pensant bien à lancer le server avant le client, ce dernier ne bouclant pas en attendant de trouver un server).

Pour lancer depuis VS il faut que click-droit sur le projet "server" et que tu choisisses "définir comme projet de démarrage", ensuite tu le lances avec Ctrl+F5. Une fois ton server lancé et en attente, tu fais la même manip' sur le projet "client". Et voilà !

Merci beaucoup