mIRCForumlari - mIRC ve IRC Kullanıcılarının Paylaşım Platformu
  https://www.mircforumlari.net/iletisim/


SohbetG.Com

Kullanıcı Etiket Listesi

Ağaç Şeklinde Aç1Beğeni
  • 1 gönderen RahmetLi

Yeni Konu aç Cevapla
 
Seçenekler
Alt 01 Şubat 2023, 21:08   #1
Çevrimdışı
Üyelik tarihi: 07 Aralık 2022
Konular: 21245
Mesajlar: 24.248
Nerden: İstanbul
Cinsiyet: Erkek
Web Site: TRmIRC.Net
IRC Sunucu: IRC.TRmIRC.Net
Alınan Beğeni: 3770
Beğendikleri: 6794
@RahmetLi
Ruh Hali : : Olu Gibi
!gbt Nick/!gbtip IP

Adminler için kayıtlı nickleri sorgulamaya yarayan bir kod. İsteğe göre geliştirilebilir. Belirlediğiniz nickin kaç tane link nicki var girdiği ip'e kayıtlı kaç tane nick var ajoin listesindeki kanallar Ülke Şehir ISP bilgisi vs...


Kullanımı:
!gbt nick
!gbtip IP


Kod : Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:input:#:{ if $regex($1,/^[.!]gbt$/Si) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4-2 ****** $2 için Bilgiler Sıralanıyor ****** if (!$2) { .timer -h 1 500 echo 2 -t @GBT Nick belirtmedin ;) } else { .set -u5 %nck1 $2 | .ns info $2 all | .enable #gbt } } if $regex($1,/^[.!]gbtip$/Si) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4-2 ****** $2 için Bilgiler Sıralanıyor ****** if (*.*.* !iswm $2) { .timer -h 1 500 echo 2 -at IP belirtmedin ;) } else { .ns list $+(*@,$2) | .enable #gbt | var %:r = $r(1000,99999) | .sockopen $+(gbt,%:r) www.ipaddresslocation.org 80 | sockmark $+(gbt,%:r) $2 } } } #gbt off on ^*:NOTiCE:*:*:{ if ($nick == NickServ) { if (*Son gorulen adres* iswm $1-) || (*Online oldugu adres* iswm $1-) { .timerlinks 1 1 .ns listlinks %nck1 | .timerlist 1 2 .ns list $+(*@,$token($4,2,64)) | .timerajoin 1 3 .ns ajoin list %nck1 | var %:r = $r(1000,99999) | .sockopen $+(gbt,%:r) www.ipaddresslocation.org 80 | sockmark $+(gbt,%:r) $token($4,2,64) } } if ($nick == NickServ) && (*kayitli*nick*degil* iswm $1-) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4- 2Arama yapmak istediğiniz nick kayıtlı değil. | .timerdis 1 1 .disable #gbt halt } if ($nick == NickServ) && (*kayitli*nick*degil* !iswm $1-) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4-2 $1- halt } } #gbt End on *:sockopen:gbt*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 sockwrite -nt $sockname Host: www.ipaddresslocation.org sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $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 -nt $sockname $crlf } on *:sockread:gbt*:{ if ($sockerr) { .sockclose $sockname | return } var %:gbt | sockread -f %:gbt if (IP Country: isin %:gbt) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4- 2Ülke:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58)) } if (IP Region: isin %:gbt) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4- 2Bölge:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58)) } if (IP City: isin %:gbt) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4- 2Sehir:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58)) } if (ISP Provider: isin %:gbt) { if ($window(@GBT) == $null) { window -ne @GBT } echo 2 -t @GBT 4- 2ISP:4 $iif($token($htmlfree(%:gbt),2,58) == $null,Belirsiz,$token($htmlfree(%:gbt),2,58)) sockclose $sockname .timerdis 1 5 .disable #gbt } }
ALINTI
Burcu bunu beğendi.


Kalbim Atar Cansız, Geçmez Gün Ahsız, Vahsız..
  Alıntı ile Cevapla

Cevapla
Etiketler
100, 1000, adres, arama, city, değil, hal, info, istediğiniz, kaç, kod, line, link, null, user, xml, yapmak


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)