CHAT WINSOCK CLIENT/SERVEUR A AMELIORER !!

Commentaire de AtomiKiller le 03/02/2004 22:49:17

Désolé je n'ai pas reussi a mettre la capture , il y avais une erreur

Commentaire de PiterTheWood le 04/02/2004 03:37:18

À la place t'utilisé des "esleif" utilise un select case c plus compréhensible
pis ai pas peur de mettre des espace pis des tabulation pour que tu puisse de reconnaitre ds ton code

example

select MYSTRING

   case "condition 1"
      'écris ici ce que tu veux qui se passe

   case "condition 2"
      'écris ici ce que tu veux qui se passe

end select

voici une petite fonction qui peut t'aider

Function funLeftMot(ByRef strMot As String) As String
Dim i As Integer
Dim siRetour As Integer
Dim strNewMot As String
siRetour = 0
strMot = Trim(strMot)
If strMot = "" Then Exit Function
i = 1
Do
   strNewMot = strNewMot & Mid(strMot, i, 1)
   If Mid(strMot, i + 1, 1) = " " Then Exit Do
   If Len(strNewMot) = Len(strMot) Then Exit Do
   If Mid(strMot, i + 1, 2) = vbCrLf Then
      siRetour = 2
      Exit Do
   End If
   i = i + 1
Loop
strMot = Trim(Right(strMot, Len(strMot) - (Len(strNewMot) - siRetour)))
funLeftMot = strNewMot

End Function

cela retourne le premier mot de ta chaine
et l'enlève a la chaine que tu as transmit à la fonction

je sais que ma fonction pourrais etre mieux

par example

msg = "123 456 789"
TypeMSG = funLeftMot(Msg)

le résultat va etre
typemsg = "123"
msg = "456 789"

Lache pas c de meme kon commence

si tu as des questions a propos des winsock pose lé moi pis j'vais faire de mon mieux.

bonne continuité

Commentaire de LordPaolo le 04/02/2004 20:14:59

j'avais fait un prog comme ça, avec winsock, si tu veux, il est dispo à http://webpessac.free.fr/down/install%20GeekChaT%20v1-5-0.zip par contre, j'ai paumé les sources snif !

Commentaire de AtomiKiller le 05/02/2004 16:25:41

Si jamais vous avez d'autres remarques a me faire , veuillez me les faires qu'elles soient bonnes ou mauvaises car elles ne seront pour moi que bénéfiques !