Du skal bruge den
property, der kaldes
RemoteHostIP for at finde den anden computers IP addresse:
<pre>
'
' ------------------------------------------------------------------
' Procedure : Winsock_DataArrival
' Date/Time : 20030830131414
' Author : HH
' Purpose : Outputs the IP address of the remote host to the
' Immediate window, whenever data arrives on the
' socket.
' ------------------------------------------------------------------
'
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
'
' Output the remote IP address to the Immediate window.
'
Debug.Print Winsock.RemoteHostIP
End Sub
</pre>
Med kode-eksemplet ovenfor, udskrives IP addressen til debug-vinduet hver gang, data ankommer.
Håber det hjælper dig videre.
Software is here and now but rock and roll is forever.