IRCDefteri - En İyi IRCForum Sayfasi

IRCDefteri - En İyi IRCForum Sayfasi (https://ircforumda.net/)
-   mIRC Scripting Hazır Kodlar (https://ircforumda.net/mirc-scripting-hazir-kodlar/)
-   -   Mirc gbt sorgulama kodu (https://ircforumda.net/mirc-scripting-hazir-kodlar/11085-mirc-gbt-sorgulama-kodu.html)

Bozkurt 28.Ocak.2021 06:23

Mirc gbt sorgulama kodu
 
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) 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) | .timerlist 1 4 .ns alist %nck1 }
  }
  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
  }
}

!gbt nick !gbt ipadresi şeklinde kullanabilirsiniz.İp adresi ve nick'e ait bilgileri görmenizi sağlar


Forum Saati: 00:41. Zaman dilimi GMT +4 olarak ayarlanmıştır.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.