Sign in to follow this  
Followers 0
DCCD

My IP Address,Location,ISP

3 posts in this topic

#1 ·  Posted (edited)

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 by DCCD

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