To resolve your IP:

[logikal16]

expandcollapse popup

Func ResolveIP()
    InetGet("http://whatismyip.com", "incoming.dat", 1, 1)
    $contents = ""

    While @InetGetActive
        Sleep(50)
    Wend
    
   $file = FileOpen ("incoming.dat", 0)

   While 1
      $contents = $contents & FileRead ($file, 1000)
      If @error = -1 Then ExitLoop
    Wend
      
   $invalid = 0
   While StringLeft ($contents, 4) <> "lbIP"
      $contents = StringTrimLeft ($contents, 1)
      $invalid = $invalid + 1
      If $invalid = 5000 Then
         $invalid = 0
         MsgBox (0,"","Error retrieving IP address")
         ExitLoop
      EndIf
   Wend

   If $invalid <> 0 Then
  
   $contents = StringTrimLeft ($contents, 21)
   $letters = ""
  
   While StringLeft ($contents, 5) <> "</h1>"
      $letters = $letters & StringLeft ($contents, 1)
      $contents = StringTrimLeft ($contents, 1)
  Wend
  
   Return $letters
   EndIf
   
EndFunc

all you need to do is something like the following:

$ipaddr = ResolveIP()

and you're done!

Matt

[Lazycat]

This is works. But your external IP should be in the one of @IpAddressX macro. So you can simplify function.

[w0uter]

This is works. But your external IP should be in the one of @IpAddressX macro. So you can simplify function.

<{POST_SNAPBACK}>

External isnt in an macro AFAIK. There is _GetIP (a standard UDF) though.

btw lot of your code can be simplified. ill post it after i edited it.

[edit]

okey this is what is remaining of your code. well nothing really ...

still a nice script

its even better to use COM + regexp though but thats a bit complicated

Func ResolveIP()
    InetGet("http://whatismyip.com", "incoming.dat", 1)
    If @error Then Return 0
    $contents = FileRead("incoming.dat", FileGetSize('incoming.dat'))
    FileDelete('incoming.dat')
    $contents = StringTrimLeft($contents, StringInStr($contents, "lbIP") + 20)
    $contents = StringLeft($contents, StringInStr($contents, '<') - 1)
    Return $contents
EndFunc;==> ResolveIP()

Edited June 16, 2005 by w0uter

[ryeguy]

You can actually make your script a bit faster by using www.whatismyip.org instead, because that site doesn't require any trimming.

Also, a better way of reading the ENTIRE file is like this:

$content=FileRead ($file, filegetsize($file))

It will read the exact number of bytes that the file's size is.

[sanbin]

This is works. But your external IP should be in the one of @IpAddressX macro. So you can simplify function.

<{POST_SNAPBACK}>

;use @IpAddressX Macro get Ip Address :)
;Thanx w0uter
MsgBox(64,"Your Ip Address Is",@IpAddress1)

Also ThanX logikal16, U give me a fresh idea !

Edited June 16, 2005 by sanbin

[logikal16]

Good ideas, guys... here's the updated script:

Func ResolveIP()
    InetGet("http://www.whatismyip.org", "incoming.dat", 1, 1)
    
    While @InetGetActive
        Sleep(50)
    WEnd
    
    $file = FileOpen ("incoming.dat", 0)
    $contents = FileReadLine($file)
    $wAddress = $contents
    MsgBox(0,"",$wAddress)
    Return $wAddress
EndFunc

It's short enough so that it won't take too long to run, but long enough so that other newbies can see what's going on

Edited June 16, 2005 by logikal16

[JSThePatriot]

Just so you know... there is a _GetIP() UDF included with AutoIt... It checks 2 sites to be sure that the page hasnt been cached in the proxy server.

Look in the help file .

JS

[w0uter]

yawn why doesnt anyone read my post.

It checks 2 sites to be sure that the page hasnt been cached in the proxy server.

<{POST_SNAPBACK}>

wrong.

it uses the Random to prevent proxy/ISP cache'ing.

the 2 sites are just for backup if one fails.

[JSThePatriot]

Yea what you said :-P been a while since I read it

JS

[martinszutner]

This change will resolver problem with router and firewall mask!!!

Func ResolveIP()

InetGet("http://www.whatismyip.com/automation/n09230945.asp", "incoming.dat", 1, 1)

While @InetGetActive

Sleep(50)

WEnd

$file = FileOpen ("incoming.dat", 0)

$contents = FileReadLine($file)

MsgBox(0, "IP Address", "Your IP Address is: " & $contents)

$wAddress = $contents

MsgBox(0,"",$wAddress)

Return $wAddress

EndFunc

[NELyon]

I did this before too. I made it to do it with less code than _GetIP, and I made it a UDF.

http://www.autoitscript.com/forum/index.ph...c=61360&hl=

[spyrorocks]

#include <INet.au3>

func _GetExternalIP()
;Spyrorocks' Simple _GetExternalIP() function. Doesn't get much easier than this.
return _INetGetSource ("http://www.whatismyip.org");
endfunc

Oh yeah.

Edited July 30, 2008 by spyrorocks

[NELyon]

#include <INet.au3>

func _GetExternalIP()
;Spyrorocks' Simple _GetExternalIP() function. Doesn't get much easier than this.
return _INetGetSource ("http://www.whatismyip.org");
endfunc

Oh yeah.

You just owned everyone who posted in this thread

But yours relies on external UDF's. Booyah.

[spyrorocks]

External UDFs that are included with autoit, so it really doesn't matter.

I don't really ever have a need for external IP addresses, but since you guys were making functions to get them...

[WeMartiansAreFriendly]

#include <INet.au3>

func _GetExternalIP()
;Spyrorocks' Simple _GetExternalIP() function. Doesn't get much easier than this.
return _INetGetSource ("http://www.whatismyip.org");
endfunc

Oh yeah.

Simplicity rules.

[JRSmile]

#include <INet.au3>

func _GetExternalIP()
;Spyrorocks' Simple _GetExternalIP() function. Doesn't get much easier than this.
return _INetGetSource ("http://www.whatismyip.org");
endfunc

Oh yeah.

Damn, when i read the sources above i wanted th exactly post the same function :-) but you were faster then me.

*regards* J.

[trancexx]

hi,

you don't need to get to a special site like http://www.whatismyip.org

i used the following:

Func ResolveIP()    InetGet("incoming.dat", 1, 1)          
While @InetGetActive         
Sleep(50)     
WEnd          
$file = FileOpen ("incoming.dat", 0)     
$contents = FileReadLine($file)     
$wAddress = $contents       
Return $wAddress EndFunc

You should open 1.

Go now and learn more...

[Jos]

hi,

you don't need to get to a special site like http://www.whatismyip.org

i used the following:

Func ResolveIP()    InetGet("incoming.dat", 1, 1)          
While @InetGetActive         
Sleep(50)     
WEnd          
$file = FileOpen ("incoming.dat", 0)     
$contents = FileReadLine($file)     
$wAddress = $contents       
Return $wAddress EndFunc

You are sure this works?

Je weet het zeker dat dit werkt?

[sander1991]

hahha i already deleted it ^^ i forgot the place some more code xD

[Splash]

Look here: http://www.whatismyip.com/automation/n09230945.asp

And here: http://forum.whatismyip.com/f14/our-automation-rules-t241/

Igor Cemim