programación de red vb

Atenuar S como cadena

Atenuar ss como cadena

Atenuar i como entero

Atenuar recUser como cadena

Dim senUser As String

Dim senIP As String

sckServer(index).GetData S 'Recibir información para s

Si userState(index) = 0 Entonces 'Si acaba de entrar y winsock aún no se ha utilizado

senUser = Trim(S)

senIP = sckServer(index).RemoteHostIP

If InStr (1, senUser, "*") = 1 Entonces

senUser = Right(senUser, Len(senUser) - 1)

Else

If checkUserName( senUser) = 1 Entonces

Llamar a SendToOne("SystemOrder: ¡Nombre duplicado, el cliente sale y vuelve a entrar!", índice)

Salir de Sub

Fin si

Si checkUserIP(senIP) = 1 Entonces

Llamar a SendToOne("SystemOrder: ¡IP duplicada, el cliente sale y vuelve a entrar!", índice)

Salir Sub

End If

End If

S = "~~~~~~Bienvenido" amp; senUser "¡Ingrese a la sala de chat! ~~ ~~~~~"

userState(index) = 1 'Establece el estado del usuario en línea normal

user(index) = senUser

userIP(index ) = senIP

List1.AddItem usuario(índice) 'Agregar a lista en línea

Combo1.AddItem usuario(índice)

zxrs = zxrs 1

Label1.Caption = " " amp; zxrs amp; "Personas en línea"

Llamar a SendToAllExcept("SystemOrder: addtolist" amp; user(index) amp; "038868", index)

Para i = 0 A List1.ListCount - 1

ss = ss amp; List1.List(i) amp "038868"

Siguiente

Llamar a SendToOne("SystemOrder: addtolist" amp; ss, index)

Finalizar si

Si InStr(1, S, "038868SendToOne") = 0 Entonces

Llamar a SendToAll(S) 'modo de transmisión

Else

recUser = Izquierda(S, InStr(1, S, "038868SendToOne") - 1)

S = Derecha(S, Len(S) - Len (recUser) - Len("038868SendToOne"))

Llame a SendToOne(S, FindSckIndex(recUser))

Si usuario(index) lt;gt; recUser Luego llame a SendToOne(S) , index)

End If

'Escribe también la información enviada al servidor

Llama a AddToText1(S)

End Sub

Este es un programa de chat que hice. Pero también descargué el programa fuente de Internet. No he cambiado este programa. Puedo enviártelo si quieres.

Jaja. Se ha enviado a tu correo electrónico. Compruébalo.