Jump to content
Sign in to follow this  

My IP Address,Location,ISP

Recommended Posts


Hi everyone

HERE'S the script

#include <Inet.au3>
$sSource = _INetGetSource("")
$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