get public IP

[jeeswg]

Here's some code to get a computer's public IP. But it uses a specific website. Are there any other recommended websites, or is there a way to do this that doesn't involve using a website? Thanks.

Code: Select all

q:: ;get public IP
oWHR := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWHR.Open("GET", "http://www.netikus.net/show_ip.html")
oWHR.Send()
vIP := oWHR.ResponseText
oWHR := ""
MsgBox, % vIP
return

w:: ;get local IPs
vOutput := ""
Loop, 4
	vOutput .= A_IPAddress%A_Index% "`r`n"
MsgBox, % vOutput
vIP := A_IPAddress1
MsgBox, % vIP
return

See also:
recreate A_IPAddressXXX variables as a function - AutoHotkey Community
https://autohotkey.com/boards/viewtopic.php?f=5&t=57112

[Tigerlily]

Here's some code to get a computer's public IP. But it uses a specific website. Are there any other recommended websites, or is there a way to do this that doesn't involve using a website? Thanks.

Code: Select all

q:: ;get public IP
oWHR := ComObjCreate("WinHttp.WinHttpRequest.5.1")
oWHR.Open("GET", "http://www.netikus.net/show_ip.html")
oWHR.Send()
vIP := oWHR.ResponseText
oWHR := ""
MsgBox, % vIP
return

w:: ;get local IPs
vOutput := ""
Loop, 4
	vOutput .= A_IPAddress%A_Index% "`r`n"
MsgBox, % vOutput
vIP := A_IPAddress1
MsgBox, % vIP
return

See also:
recreate A_IPAddressXXX variables as a function - AutoHotkey Community
https://autohotkey.com/boards/viewtopic.php?f=5&t=57112

Maybe you could modify this code to use DNS Lookup to get the IP:

https://blog.protocolsyntax.com/2014/01/17/followup-dns-lookup-and-ping-in-excel/