Get Internet IP Address.

[dandono]

Hi, I found this code on one of my computers and thought it might be usefull to someone. I did not write this code but i cannot remember who did. Please post if you are the writer of this code.

Put this code in a form

Function get_ip()
'Fetch external ip function
'- checks checkip.dyndns.org for computers ip adress
    Dim ReturnedHTML As String, sIp As Long, sStop As Long
 
    ReturnedHTML = ReturnHTML("http://checkip.dyndns.org/")
 
    sIp = InStr(ReturnedHTML, "Address: ") + 9
 
    If InStr(sIp, ReturnedHTML, ",") > 0 Then
        sStop = InStr(sIp, ReturnedHTML, ",")
    Else
        sStop = InStr(sIp, ReturnedHTML, "<")
    End If
 
    If sStop > 0 Then 'Fetched ip
        get_ip = Mid(ReturnedHTML, sIp, sStop - sIp)
    Else 'Error occured
        get_ip = "error"
    End If
End Function
 
Private Function ReturnHTML(URL)
'Return HTML function
'- retrieves HTML for the given url
    Dim objXMLHTTP, objRS, HTML
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    objXMLHTTP.Open "GET", URL, False
    objXMLHTTP.Send
    HTML = objXMLHTTP.responseBody
    Set objRS = CreateObject("ADODB.Recordset")
    objRS.Fields.Append "txt", 200, 45000, &H80
    objRS.Open
    objRS.AddNew
    objRS.Fields("txt").AppendChunk HTML
    ReturnHTML = objRS("txt").Value
    objRS.Close
    Set objXMLHTTP = Nothing
    Set objRS = Nothing
End Function

The code can be used like this

me.caption = Get_IP
'or
text1.text = Get_IP

i did not write this code and i do not remember who wrote it.

[Coreybellamy]

Nice thanks for posting

[sessi4ml]

Dandono, could you post the IP code again using 'code' tags.

The 'vbcode' tags will not allow to copy/paste....
Thanks
I want to add your code to the MAC code.

[Jimboat]

QUESTION:

This is a great code-bit. Seems to work flawlessly to get IP address of any connection.

I got this strange result from a remote customer. What does it mean if my parsed answer = "192.168.0.XXX", rather than the Publlic IP address?

Why or what conditions this method would give local machine ip address?