alias geton {
  sockopen $+(getonadrs-,$remove($1-,http://)) $gettok($remove($1-,http://),1,47) 80
}
on *:sockopen:getonadrs-*: {
  var %GetSend = $+(GET $+(/,$right($sockname,$+(-,$pos($sockname,/)))) HTTP/1.0,$CrLf,Accept: */*",$CrLf,User-Agent: Mozilla4.0,$CrLf,Host: $mid($sockname,$calc($pos($sockname,-) + 1),$calc($pos($sockname,/) - $pos($sockname,-) - 1)),$CrLf,$CrLf)
  sockwrite -n $sockname %GetSend
}
on *:sockread:getonadrs-*: {
  if ($sockerr > 0) return
  sockread %getonaddress
  ;aşağıdaki kısımdaki echo -s %getonaddress yerine write dosyaadi %getonaddress te yazdırabilirsin
  ;buradaki %getonaddress web sayfasından gelen değer 
  if $strip(%getonaddress) { echo -s %getonaddress }
}
on *:sockclose:getonadrs-*: {
  echo 4 -a $+([,$sockname,]) Socketi kapandı. 
  ;socket kapanınca uygulanacak komutlar için
}