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

'en un modulo
'**************************
Public Declare Function URLDownloadToFile Lib "urlmon" _
                             Alias "URLDownloadToFileA" _
                            (ByVal pCaller As Long, _
                             ByVal szURL As String, _
                             ByVal szFileName As String, _
                             ByVal dwReserved As Long, _
                             ByVal lpfnCB As Long) As Long
   
        Private Const ERROR_SUCCESS As Long = 0
        Private Const BINDF_GETNEWESTVERSION As Long = &H10
        Private Const INTERNET_FLAG_RELOAD As Long = &H80000000


Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
    DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function
'************************************


'en el form normal

Private Const sSourceUrl = "http://www.andy21.com/ip/"
    Private Const sLocalFile = "c:\ip.htm"

    Dim pos2%, pos1%
    Dim ip_A$, ip$
    Dim hFile%
    Dim url As String


Private Sub Command1_Click()
    Dim a As Variant
        a = DownloadFile(sSourceUrl, sLocalFile)
        Text3.Text = a
        hFile = FreeFile
    Open "C:\ip.htm" For Input As #hFile
        a = Input(LOF(hFile), #hFile)
    Close hFile
        Text1.Text = a
        Kill ("C:\ip.htm")
        pos1 = InStr(1, Text1.Text, "REMOTE_ADDR: ", vbTextCompare)
        pos2 = InStr(pos1, Text1.Text, " - HTTP_X_FORWARDED_FOR:", vbTextCompare)
        ip = Mid(Text1.Text, (pos1 + 13), (pos2 - (pos1 + 13)))
        Text2.Text = ip

end sub