Retrieve External IP

[NELyon]

It's official. I'm back using Autoit! After a... 6 Month leave from programming. I stuck around the forums anyway

So anyway, this retrieves your external IP address using cleaner (and less) code then _GetIP()

It also has a param, $file, in which you can save your IP to an external file instead of the function returning it.

It is my first working script in over 6 months, so be gentle! Remember, I may be reinventing the wheel, but my wheel, IMO, gets better traction on those bumpy roads

Func _RetrieveIP($file = "")
    local $ip, $tempfile = @TempDir & "\ip.txt"
    If $file = "" Then
        InetGet("http://whatismyip.com/automation/n09230945.asp",  $tempfile)
        If @Error Then
            return 0
        Else 
            $ip = FileRead($tempfile)
            return $ip
        EndIf
    ElseIf $file <> "" Then
        InetGet("http://whatismyip.com/automation/n09230945.asp",  $tempfile)
    If @error Then
            return 0
        Else
            FileMove($tempfile, $file)
        EndIf
    EndIf
    FileDelete($tempfile)
EndFuncoÝ÷ ØX¥xLZ^jëh×6_RetrieveIP("C:\MyIP.txt")

Func _RetrieveIP($file = "")

local $ip, $tempfile = @TempDir & "\ip.txt"

If $file = "" Then

InetGet("http://whatismyip.com/automation/n09230945.asp", $tempfile)

If @Error Then

return 0

Else

$ip = FileRead($tempfile)

return $ip

EndIf

ElseIf $file <> "" Then

InetGet("http://whatismyip.com/automation/n09230945.asp", $tempfile)

If @error Then

return 0

Else

FileMove($tempfile, $file)

EndIf

FileDelete($tempfile)

EndFunc

Welcome back Autoit!

Edited January 8, 2008 by Senton-Bomb

[Dhilip89]

Welcome back!

I think this is shorter: http://www.whatismyip.org/

[NELyon]

OMG somebody save me from the Autoit Tags.

I can't edit my post. That random code sitting at the bottom of my post won't go away, and if i try to remove it, my code gets screwed.

EDIT:

Forgot to mention: This was developed in Linux with Wine, so it's 100% Wine Compatible

@Dhillip

This is to return your IP dynamically for use in code, such as for testing a web server.

Edited January 8, 2008 by Senton-Bomb

[Michel Claveau]

Hi!

You want short code?

Try this:

$ip=StringMid(InetGet("http://alexissoft.free.fr/ip.php",  "ip_temp.txt")&FileRead("ip_temp.txt"),2)

Edited January 8, 2008 by Michel Claveau

[GaryFrost]

Also look _GetIP in the help file

[NELyon]

Also look _GetIP in the help file

The whole point of this code was to retrieve the IP in less code than that very function

Thanks anyway!

[GaryFrost]

The whole point of this code was to retrieve the IP in less code than that very function

Thanks anyway!

That's what happens when i skim the thread...lol

[Richard Robertson]

At least you tried.