Forums Scripts & Popups Sock Snippet to return Public IP

alias pip { sockopen pip whatismyipaddress.com 80 }

on 1:sockopen:pip:{
  .sockwrite -n pip GET / HTTP/1.1
  .sockwrite -n pip HOST: whatismyipaddress.com
  .sockwrite -n pip $crlf
}

on 1:sockread:pip:{
  if ($sockerr > 0) return 
  var %x | sockread -fn %x
  if (LOOKUPADDRESS isin %x) { %F = Current Public $+(IP:,[,$gettok($regsubex(%x,/([aA-zZ]|["<>=])/g,),1,32),]) }
  if (IP ADDRESS LOCATION isin %x) { echo -a %F $remove(%x,<TR><TD,colspan=3>,</td>,$chr(9)) }
}

alias myip { sockopen myip www.whatismyip.com 80 }

on *:sockopen:myip:{
  if $sockerr { echo -a * Sockerr (myip): $sock(myip).wsmsg | return }
  sockwrite myip GET $+(/automation/n09230945.asp HTTP/1.0,$lf,HOST: whatismyip.com,$str($lf,2))
}
on *:sockread:myip:{
  sockread -f &a
  echo -a * My IP: $gettok($bvar(&a,1-).text,-1,10)
}