Application chat/serveur

Signaler
Messages postés
2
Date d'inscription
mercredi 10 février 2010
Statut
Membre
Dernière intervention
8 janvier 2011
-
Messages postés
2
Date d'inscription
mercredi 10 février 2010
Statut
Membre
Dernière intervention
8 janvier 2011
-
Bonjour, Bonsoir,

J'explique mon petit projet.
J'ai crée un programme client et un serveur, il marche bien
quand je me connecte en local 2 pc la connexion réussie très bien !

Le problème c'est juste que quand je connecte au serveur pour chater par exemple a un client2 le serveur brodcast mon message a tout les clients qui en connecté au serveur
je veux m'aidé comment doit faire pour connecter juste avec le client qui j'ai chois

Merci !!
ilyass

2 réponses

Messages postés
3
Date d'inscription
dimanche 13 décembre 2009
Statut
Membre
Dernière intervention
8 janvier 2011

salut ilyass! tu peux m'envoyer le code ?
Messages postés
2
Date d'inscription
mercredi 10 février 2010
Statut
Membre
Dernière intervention
8 janvier 2011

//voila code client .........................
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream
Dim readData As String
Dim infiniteCounter As Integer

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
End Sub

Private Sub msg()
If Me.InvokeRequired Then
Me.Invoke(New MethodInvoker(AddressOf msg))
Else
TextBox1.Text = TextBox1.Text + _
Environment.NewLine + " >> " + readData
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
readData = "Conected to Chat Server ..."
msg()
clientSocket.Connect("127.0.0.1", 8888)
'Label1.Text = "Client Socket Program - Server Connected ..."
serverStream = clientSocket.GetStream()

Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(TextBox3.Text + "$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()

Dim ctThread As Threading.Thread = _
New Threading.Thread(AddressOf getMessage)
ctThread.Start()
End Sub

Private Sub getMessage()
For infiniteCounter = 1 To 2
infiniteCounter = 1
serverStream = clientSocket.GetStream()
Dim buffSize As Integer
Dim inStream(10024) As Byte
buffSize = clientSocket.ReceiveBufferSize
serverStream.Read(inStream, 0, buffSize)
Dim returndata As String = _
System.Text.Encoding.ASCII.GetString(inStream)
readData = "" + returndata
msg()
Next
End Sub
End Class