!gbt Nick/!gbtip IP - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alper · 29 Ocak 2018, 17:54

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: 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) 
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
  }
}

Fredyyy · 05 Nisan 2018, 00:04

Bu sonuçlar çıkmıyor acaba yardımcı olur musunuz ?

[00:03] - Ülke: Belirsiz
[00:03] - Bölge: Belirsiz
[00:03] - Sehir: Belirsiz
[00:03] - ISP: Belirsiz

Alper · 05 Nisan 2018, 01:03

Fredyyy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu sonuçlar çıkmıyor acaba yardımcı olur musunuz ?

[00:03] - Ülke: Belirsiz
[00:03] - Bölge: Belirsiz
[00:03] - Sehir: Belirsiz
[00:03] - ISP: Belirsiz

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Her hangi bir sorun gözükmüyor kodda. Komutu nasıl uyguluyorsun?

EmekTar · 06 Mayıs 2018, 23:24

aynı hatayı bende almaktayım

Alper · 20 Eylül 2018, 14:31

Hata almanızın sebebi html aliasının olmamasından kaynaklı. Benim scriptte başka yerde ekli olduğunda sorun yaşamamıştım. Şuan sorunsuz şekilde her scriptte çalışacaktır.

Forbidden · 31 Ocak 2023, 20:37

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'in zamanında yaptıgı güzel bir @gbt kodundan alıntı yaparak yaptım onun ki kadar kapsamlı olmasada iş görür belki birilerinin işine yarar.
Komut: /gbt nick
Nerden kodu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] aittir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not: Kodun saglıklı bir sonuc verebilmesi icin en az +O flagı olması zorunludur.

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

alias gbt {
  .enable #gbt
  .ns listlinks $1
  .ns ajoin list $1
  .ns alist $1
  .ns info $1 all
  .ns getauth $1
  .ns status $1
  .ns listchans $1
  .timer1 1 7 .disable #gbt
  if $regex($1,/(\d+\.\d+\.\d+\.\d+)) { _nerden $1 }
  else { .enable #nerdenbul | .who +I $1  }
  set %gbt @GBT
  echo -a 2Suan da bakılan4 $1 2nickinin sonucunu4 @GBT 2'den alabilirsiniz.
}

#nerdenbul off
raw 352:*:_nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) cesuryurek.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{  
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf  
  } 
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { aline -h %gbt 2 $regml(1) $regml(2) }
}

#gbt off
on *:notice:*:?:{ 
  if $nick == NickServ {
    if ($window(@GBT) == $null) { window -ne @GBT }
    aline -h @GBT 2 $1- 
  }
}
#gbt end

menu @GBT {
  Gbtleri Temizle:clear
  .-
  Kapat:window -c @GBT
}

Tinba · 01 Şubat 2023, 21:02

Emeğine Yüreğine Klavyane sağlık Süper Bir iş Cıkarmışsınız peki Bunu input olarak Düzenleyip Kanala nasıl yansıtabilirim

Forbidden · 01 Şubat 2023, 22:16

Tinba Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Emeğine Yüreğine Klavyane sağlık Süper Bir iş Cıkarmışsınız peki Bunu input olarak Düzenleyip Kanala nasıl yansıtabilirim

Buyrun input olarak ayarlandım.

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

on *:input:*: {
  if $regex($1,/^[!.-]gbt$/Si)  {
    .enable #gbt
    .ns listlinks $2
    .ns ajoin list $2
    .ns alist $2
    .ns info $2 all
    .ns getauth $2
    .ns status $2
    .ns listchans $2
    .timer1 1 10 .disable #gbt
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
    set -u10 %gbt #
  }
}
#nerdenbul off
raw 352:*:_nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %_rand $+($1,$r(1000,99999)) | sockopen $+(nerden,%_rand) cesuryurek.net 80 | sockmark $+(nerden,%_rand) $1 }
on *:sockopen:nerden*:{  
  if ($sockerr) { sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$sock($sockname).mark) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Cache-Control: max-age=0
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf  
  } 
}
on *:sockread:nerden*:{
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden
  if $regex($1-,/<span>(.+)</span> <span>(.+)</span>/i) { msg %gbt 2 $regml(1) $regml(2) }
}



#gbt on
on *:notice:*:?:{ 
  if $nick == NickServ {
    msg %gbt 2 $1- 
  }
}
#gbt end

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Anope 2.0.6'da nick şifresini girmeyenlere default nick veremiyorum	Root\|0	Anope	6	25 Ocak 2018 03:28
!rootekle nick !rootsil nick !root bot'a üzerinde nasil uygularım?	ircmsn	mIRC Scripting Sorunları	30	20 Temmuz 2012 18:15
Nick renklendirici addon lazım sunucu sahibi nin nick rengi renkli olcak mesela	iCe-t	mIRC Scripting Sorunları	10	10 Kasım 2009 23:36

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.