Foro de elhacker.net

dim ncon as integer
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
ncon = ncon + 1
With ws(Index)
.Close
.Accept requestID
End With
Load ws(Index + 1)
With ws(Index + 1)
.LocalPort = port
.Listen
End With
ws(Index).SendData "hem acceptat la teva peticio de conexio" & vbCrLf
Beep
List1.AddItem (ws(Index).RemoteHostIP & " sa conectat")
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData strUserName
MsgBox "enviado"
End Sub

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strUserName As String
Call ws(Index).GetData(strUserName)
MsgBox "recibido"
Set ListItem = ListView1.ListItems.Add(, , "Nombre")
    ListItem.SubItems(1) = ws(Index).RemoteHostIP
    ListItem.SubItems(2) = strUserName

Call ws(Index).GetData(strUserName)

ws(Index).GetData strUserName
MsgBox strUserName  'para comprobar que los datos llegaron bien

Private Sub Winsock1_Connect()
msgbox strusername
Winsock1.SendData strUserName
MsgBox "enviado"
End Sub