Sign in to follow this  
Followers 0
cyanidemonkey

_GetIP

6 posts in this topic

Hi guys,

This is proberly out of date, but when I tried the _GetIP() I got displayed HTML

I found changing:

$ip = StringTrimLeft($ip, StringInStr($ip, "<TITLE>Your ip is ") + 17)

to:

$ip = StringTrimLeft($ip, StringInStr($ip, "<TITLE>Your ip is ") + 139)

fixed it. I guess www.whatismyip.com have changed the HTML a little?

I then modified the way it pulled the IP from the text string...

Func _GetIP()
    Local $ip
    If InetGet("http://checkip.dyndns.org/", @TempDir & "\~ip.tmp") Then
        $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
        FileDelete(@TempDir & "\~ip.tmp")
        $ip = StringReplace($ip, "<html><head><title>Current IP Check</title></head><body>Current IP Address: ", "")
        $ip = StringReplace($ip, "<!-- proxy --></body></html>", "")
        Return $ip
    Else
        SetError(1)
        Return
    EndIf
EndFunc

Hope this is useful, if there is a new way of getting you WAN IP instead of _GetIP, sorry 'bout this post :P


My AutoIt Scripts.- AutoHost and Password Enabler for Delta Force 2 Demo.| Caffine for Winamp 2.9x and WRS 2.0 | mp3 directory cleaner | CRAP DJ | A:B:J Radio Automation Software | FFMPEG batch conversion automator

Share this post


Link to post
Share on other sites



I think XML does a better job than HTML for finding specific information

Func GetIP()
    Local $xmldoc = ObjCreate('Microsoft.XMLDOM'), $ip
    If Not IsObj($xmldoc) Then Return -1
    $xmldoc.async = False
    $xmldoc.load ('http://xml.showmyip.com/')
    For $x In $xmldoc.documentElement.childNodes
        If $x.NodeName = "ip" Then
            $ip = $x.text
            ExitLoop
        EndIf
    Next
    $xmldoc = 0
    Return $ip
EndFunc

Writing AutoIt scripts since
_DateAdd("d", -2, _NowCalcDate())

Share this post


Link to post
Share on other sites

Hey the xml version looks cool MSLx Fanboy,

when I tried to run it I got an unknown function error for ObjCreate.

Where can I find this?

Cheers.


My AutoIt Scripts.- AutoHost and Password Enabler for Delta Force 2 Demo.| Caffine for Winamp 2.9x and WRS 2.0 | mp3 directory cleaner | CRAP DJ | A:B:J Radio Automation Software | FFMPEG batch conversion automator

Share this post


Link to post
Share on other sites

Do you have the beta version of AutoIt? The address is in my signature for it.


Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites

I've been working on a script that checks the IP of the system every hour, and if it changes, it notifies www.dyndns.com with the new address. As soon as I fix a bug, I'll post it up


Writing AutoIt scripts since
_DateAdd("d", -2, _NowCalcDate())

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0