SOCKET

USUARIO.EXCLUIDOS 08/04/2007 13:36:14
#210730
olhe ai galera!
preciso identificar na rede qual pc me mandou mensagem, o que devo fazer?
pois se eu colocar no winsock assim não funciona:
eu terei que colocar (0) no index do winsock? ou o quê? veja!

Private Sub WinCliente_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim dados As String
WinCliente(index).GetData dados
MsgBox dados

End Sub

se eu atribuir index as integer não dá certo por favor me mostrem a luz no fundo do túnel.
desde já muitíssimo obrigado!
ESLEYSANCHES 08/04/2007 13:43:41
#210731 Resposta escolhida
Tente colocar assim amigo:

Private Sub WinCliente_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim dados As String
WinCliente(index).GetData dados
MsgBox ("O cliente com o IP: " & wincliente(index).RemoteHostIP & " enviou os seguintes dados:" & vbcrlf & vbcrlf & dados),vbinformation, "Dados chegaram !!"

End Sub


Basicamente ele vai pegar o IP da máquina que enviou a mensagem e irá exibir, faça um teste e veja se é isso que precisa !!

Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar