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
Explico sus instrucciones, le picais en direccion y os saldra la direccion que teneis que darle a la persona que quereis saber su ip, el le picara a la direccion y le saldrá en su navegador que no hay datos, o no se encuentran datos, y vosotros ya teneis la ip bastatne facil no?, si la victima pregunta que para que es esa direccion utilizar la imaginacion jeje 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
PD: Si poneis el source en alguna web o algo por lo menos poner la fuente ehh