IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - IP adresi şehir/ülke sorgulama (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1056128-ip-adresi-sehir-ulke-sorgulama.html)

IP adresi şehir/ülke sorgulama

aranan sorgulanan kodlardan bir tanesi,

Kod:

alias ip { if $sock(ip) { sockclose ip } | sockopen -e ip 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark ip $1 }

on *:sockopen:ip:{ 

  sockwrite -n $sockname GET $+(/,$sock(ip).mark) HTTP/1.1

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname Content-Type: text/html; charset=utf-8

  sockwrite -n $sockname Accept: */*

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:136.0) Gecko/20100101 Firefox/136.0

  sockwrite -n $sockname $crlf

}
 

on *:sockread:ip:{  

  if ($sockerr) { return }

  :ip

  var %ip | sockread -n %ip | tokenize 32 %ip

  if (!$window(@IP)) { window -ne @IP }

  if ($sockbr == 0) || (!%ip) return

  if (addressRegion isin %ip) { var %x = $remove(%ip,addressRegion,$chr(34), :) | echo @IP $left(%x,$calc($len(%x) -1))  | sockwrite -n ip Connection: close }

  goto ip

}

gerisi hayal gücünüze kalmış.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 12:48 -->-> Daha önceki mesaj 12:25 --

/ip 1.1.1.1