Obtener la IP Pública

Esta sección es para compartir scripts, librerías y herramientas.
User avatar
Pinkfloydd
Posts: 104
Joined: 13 Apr 2014, 18:32
Location: Argentina

Obtener la IP Pública

10 Dec 2014, 14:23

Es una forma sencilla y efectiva de obtener la IP Pública.
Esta bueno para las personas que generalmente se les da por hostear servidores y tener que pasarles la IP a sus amigos; donde es un plomazo tener que meterse en páginas web cada vez que se la piden.

En mi caso personal la utilizo como función.

■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■

Función:
GetMyIP()

Code: Select all

GetMyIP(){
UrlDownloadToFile, http://ip.ahk4.me/, %A_Temp%\MyIP
FileRead, MyIP, %A_Temp%\MyIP
TrayTip, Mi IP:, %MyIP%
ClipBoard := MyIP
}
---------------------------------------------------------------------------------

Ejemplo de uso:

Code: Select all

:?*:GetMyIp::
GetMyIP()
return
La IP queda guardada en el ClipBoard y además como plus aparece como mensajito emergente en el TrayTip

Image

■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■

Para un poquito más de información y referente al tema te recomiendo pasar por el siguiente post:
http://ahkscript.org/boards/viewtopic.php?f=43&t=5537
Last edited by Pinkfloydd on 19 Oct 2015, 11:00, edited 3 times in total.
User avatar
empardopo
Posts: 336
Joined: 06 Oct 2013, 12:50
Location: Spain
Contact:

Re: Obtener la IP Pública

26 Mar 2015, 02:53

He encontrado esto y también me ha parecido interesante.

Code: Select all

MsgBox % GetPublicIP() ;Display the networks public IP
MsgBox % GetLocalIPByAdaptor("Ethernet") ;Display the local IP of the adaptor named "Ethernet"

For AdaptorName, IP in GetLocalIPs() { ;Display the IPs of all adaptors that have one
    MsgBox, %AdaptorName%: %IP%
}

GetPublicIP() {
    HttpObj := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    HttpObj.Open("GET","https://www.google.com/search?q=what+is+my+ip&num=1")
    HttpObj.Send()
    RegexMatch(HttpObj.ResponseText,"Client IP address: ([\d\.]+)",match)
    Return match1
}

GetLocalIPByAdaptor(adaptorName) {
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = '" adaptorName "'")._NewEnum, colItems[objItem]
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" objItem.InterfaceIndex "'")._NewEnum, colItems[objItem]
    Return objItem.IPAddress[0]
}

GetLocalIPs() {
    adaptors := Object()
    ips := Object()
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")._NewEnum, colItems[objItem]
    While (colItems[objItem])
        adaptors.Insert(objItem.InterfaceIndex,objItem.NetConnectionID)
    For index, name in adaptors {
        colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" index "'")._NewEnum, colItems[objItem]
        If (name && objItem.IPAddress[0])
            ips.Insert(name,objItem.IPAddress[0])
    }
    Return ips
}
Lo he encontrado en este link.

Otras webs para usar y que te devuelva la ip:
http://ipchk.sourceforge.net/rawip/
http://whatismyip.org/
http://www.ip-adress.eu/

Lo mismo también funciona con algo parecido a esto:

Code: Select all

:*:/ip:: 
MyExternalIP=0.0.0.0 
TmpFile=%WinDir%\TEMP\IPAddress.TMP 
UrlDownloadToFile,http://www.whatismyip.org/,%TmpFile% 
FileReadLine,MyExternalIP,%TmpFile%,1 
FileDelete,%TmpFile% 
Send, %MyExternalIP%
Link

Saludos
Everything is possible!
User avatar
mikeraze
Posts: 1
Joined: 03 Jan 2018, 03:14

Re: Obtener la IP Pública

03 Jan 2018, 03:19

También puede usar esta herramienta de búsqueda de IP.
https://www.purevpn.com/what-is-my-ip
--

You just don't get it. ;)
Mikey
cjwalker
Posts: 1
Joined: 04 Jul 2018, 06:57

Re: Obtener la IP Pública

04 Jul 2018, 06:59

Verifique su dirección IP actual usando esta herramienta: https://fastestvpn.com/what-is-my-ip
Guest

Re: Obtener la IP Pública

14 Jul 2018, 22:31

I found this new IP location Lookup tool, I would recommend you to verify your IPv4 or IPv6 using this tool: https://whatismyip.live/
KBMan1015
Posts: 1
Joined: 29 Aug 2018, 10:19

Re: Obtener la IP Pública

29 Aug 2018, 10:25

para saber cuál es tu dirección IP y cómo puedes ocultarla, echa un vistazo a la página que estoy vinculando. Si no desea visitarlo, simplemente sepa que puede usar un proxy o una VPN para ocultar su IP con una nueva, por lo que es difícil rastrearla.

https://www.ivacy.com/hide-your-ip-address/

Return to “Scripts y Funciones”

Who is online

Users browsing this forum: No registered users and 1 guest