Avant tout bonjour ,
Bon je fait un chat multiuser (je sais... j'innove... personne l'avait encore fait lol) je suis en udp (pour ceux que ca interesse...) et bon j'ai fait en sorte que quand un client envoie un message au serveur le serveur prenne en compte le message l'ajoute et le renvoei pour eviter que le client soit trop lourd en commande... malheuresement... quand le serveur renvoei el text.... bah... il est crypter ... toute la variable recu apres le senddata est transformer en chiffre.... voila je vous met ma source aider moi s'il vous plait...(l'erreur ne vien pas du clietn car la chaine de caractere qu'il envoei est recu et n'est pas crypter quand le serveur la recoit!)
Private Sub serveur_connectionrequest(ByVal requestid As Long)
index = index + 1
lblconnect.Caption = index
Load wck(index)
wck(index).Accept requestid
wck(index).SendData txtchatserv.Text
End Sub
Private Sub listserv_connectionrequest(ByVal requestid As Long)
Load wcklist(lblconnect.Caption)
wcklist(lblconnect.Caption).Accept requestid
End Sub
Private Sub wcklist_dataarrival(index As Integer, ByVal bytestotal As Long)
wcklist(index).GetData id
If (ltid.Text = "") Then
ltid.AddItem (id)
Else
ltid.AddItem (ltid.Text & vbCrLf & id)
End If
wcklist(index).SendData ltid.Text
End Sub
Private Sub wck_dataarrival(index As Integer, ByVal bytestotal As Long)
Dim textchat As String
wck(index).GetData textchat
If (txtchatserv.Text = "") Then
txtchatserv.Text = textchat
Else
txtchatserv.Text = txtchatserv.Text & vbCrLf & textchat
End If
wck(index).SendData txtchatserv.Text
End Sub
"La vie est le rêve de la mort... La mort est la vie du rêve..."