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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - !gbt Nick/!gbtip IP (https://www.ircforumlari.net/mirc-parca-kodlar/784246-gbt-nick-gbtip-ip.html)

!gbt Nick/!gbtip IP

Merhaba Arkadaşlar,
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...

Eksiklik olabilir varsa düzenleme yaparım.

Kullanımı:
!gbt nick
!gbtip IP

Kod:

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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

  }

}