IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   Ip den şehir bulma remotesi !Who nick (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/43276-ip-den-sehir-bulma-remotesi-who-nick.html)

KivanC 14 Ekim 2020 21:13

Ip den şehir bulma remotesi !Who nick
 
Kod:

on *:input:*: {
if $regex($1,/^([!\.]who)$/i) {
if !$2 { msg # Lütfen !who IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
on *:input:*: {
if $regex($1,/^([!\.]who)$/i) {
if !$2 { msg # Lütfen !who IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) www.ipaddresslocation.org 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host: www.ipaddresslocation.org
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -n $sockname $crlf
}
on *:sockread:yerbul*:{
var %:yerbul | sockread -f %:yerbul
if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}


Sim 14 Ekim 2020 21:13

emegine saglik:d

Reyhan 15 Ekim 2020 00:11

Emeğinize sağlık ;ççk

Giant 22 Aralık 2021 16:48

Çalışıyor mu?

She 24 Aralık 2021 13:42

Paylaşım için teşekkür ederiz.

Mix 24 Aralık 2021 13:46

Emeğine sağlık.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:46.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Copyright ©2019 - 2023 | IRCRehberi