Nickname List Help with Winsock

[BladeZ]

not sure if this will help you much but in my client i have this in winsock connect

Winsock.SendData "N:" & frmLogin.txtnick.Text

and in the server data arrival i have

If Left(strRecivedData, 2) = "N:" Then
  txtchat.Text = strRecivedData & " has joined chat."
  arr() = Split(strRecivedData, ":")
  Call addit(arr(1))
End If
 
 
Sub addit(x As String)
  Dim a As Integer
  For a = 0 To lstusers.ListCount - 1
    If x = lstusers.List(a) Then Exit Sub
  Next a
  lstusers.AddItem x
End Sub

the only problem is that it wont take the names out when they disconnect but that would be easy to put in

hope it helps


-BladeZ