Autor
para saber la ip del que queramos, si estamos hablando con el por el mesenger, pongo aqui el source:Asi es como queda la distribucion del formulario :
http://img466.imageshack.us/my.php?image=form16dl.png
Código:
Private Sub Command1_Click() ' este es el boton reiniciar
ws.Close
Call Form_Load
Lista.Clear
End Sub
Private Sub Command3_Click() ' este es el boton de direccion
direccion.Text = "http://" & ws.LocalIP & ":" & ws.LocalPort
End Sub
Private Sub Form_Load()
ws.Listen
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Lista.AddItem (ws.RemoteHostIP)
ws.Close
End Sub
bastatne facil no?, si la victima pregunta que para que es esa direccion utilizar la imaginacion jeje PD: Si poneis el source en alguna web o algo por lo menos poner la fuente ehh
En línea
