My IP Address,Location,ISP

[DCCD]

Hi everyone

HERE'S the script

#include <Inet.au3>
;
$sSource = _INetGetSource("70.86.96.219/ib1")
;
$sCountry = StringRegExpReplace($sSource, '(?i)(?s).*?Country: <strong>(.*?)</strong>.*$', "\1")
$sIP__Add = StringRegExpReplace($sSource, '(?i)(?s).*?Your IP Address is <strong>(.*?)</strong>.*$', "\1")
$sISP = StringRegExpReplace($sSource, '(?i)(?s).*?ISP: <strong>(.*?)</strong>.*$', "\1")

MsgBox(0,"_INetGetSource","Country: "& $sCountry & @CR &"Your IP Address is: " & $sIP__Add & @CR &"ISP: " & $sISP)

Edited March 22, 2009 by DCCD

[Authenticity]

Heh, thanks for the sharing.

Just if you're interested:

http://www.autoitscript.com/forum/index.ph...=90976&hl=e

http://www.autoitscript.com/forum/index.ph...=89247&hl=o

[DCCD]

Umm,, wanna pizza!!