ilocan
Messages postés2Date d'inscriptionmercredi 10 février 2010StatutMembreDernière intervention 8 janvier 2011
-
4 janv. 2011 à 16:50
ilocan
Messages postés2Date d'inscriptionmercredi 10 février 2010StatutMembreDernière intervention 8 janvier 2011
-
8 janv. 2011 à 13:20
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
ilocan
Messages postés2Date d'inscriptionmercredi 10 février 2010StatutMembreDernière intervention 8 janvier 2011 8 janv. 2011 à 13:20
//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