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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Gelismis Whois Addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/778361-gelismis-whois-addonu.html)

SaNCaK 28 Kasım 2017 01:31

Gelismis Whois Addonu
 
Kod:

on *:load: {
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Whois $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.tr $+ $crlf $+ $crlf $+ Thank you for using this Addon,igo,Addon: Whois $chr(40) $+ v5.4 $+ $chr(41))
  .echo -s _____________________________________________________
  .echo -s 0,1 Loading 9,1Whois0,1 Add-On...
  .echo -s 0,1 You are running mIRC $version on Windows $+ $os
  .echo -s ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: {
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Whois $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Whois $chr(40) $+ v5.4 $+ $chr(41))
}
;############################  -«•»SaNCaK ScripT«•»-    ############################




alias clonecntrl { who +h $1 | set %jnk $1 }
alias kanalclone {
  if ($ial($address($1,2),0) == 1) return
  var %nickler = 0 | var %clone = $1
  while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
  return %clone
}

#whocontrol off
raw 352:*: {
  haltdef
  if %jnk { %cloneleri = $addtok(%cloneleri,$6,32) } 
}
raw 315:*:if %jnk { haltdef | unset %jnk |  echo -a $timestamp 14|---› 14 Clone nick:1 $eval(%cloneleri,2) | .disable #whocontrol }
#whocontrol end
raw 301:*: {
  haltdef
  echo -a $timestamp 14|---› 14Away:1 ( $+ $3- $+ )
}
raw 307:*: {
  haltdef
  echo -a $timestamp 14|---› 14Registered Info:1 Bu Nick Kayıtlı ve İdentify Edilmiştir.
}
raw 310:*: {
  haltdef
  echo -a $timestamp 14|---› 14Ircop:1 $3 $4 $5 $6 
}
raw 335:*: {
  echo -a $timestamp 14|---›  14Bot:1 Yes (+B). 
  halt
}
raw 311:*:{
  haltdef
  echo -a $timestamp 14___[1Whois:1 $2 14] -------------------------------------------------------------•
  ;echo -a $timestamp 14|---› 14Nick:1 $2
  echo -a $timestamp 14|---› 14FullName:1 $6-
  echo -a $timestamp 14|---› 14Ip Address:1 $3 $+ 14 $+ @ $+ 01 $+ $4
  var %clone = $kanalclone($2)
  if (%clone == $null)  echo -a $timestamp 14|---› 14Clones:1 (No Clone!)
  else  echo -a $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
  haltdef
}
raw 312:*:{
  haltdef
  echo -a $timestamp 14|---› 14Server:1 $4 $5 $6
}
raw 313:*: {
  haltdef
  echo -a $timestamp 14|---› 14Network Info:1 $3 $4 $5 $6 $7 $8 $9
}
raw 314:*:{
  haltdef
  echo -a $timestamp 14¯°--------------------------------------------------------------------------------• 
  echo -a $timestamp 14|---› 14Nick:1 $2
  echo -a $timestamp 14|---› 14FullName:1 $6-
  echo -a $timestamp 14|---› 14Ip Address:1 $3 $+ 14 $+ @ $+ 01 $+ $4
  var %clone = $kanalclone($2)
  if (%clone == $null)  echo -a $timestamp 14|---› 14Clones:1  (No Clone! )
  else  echo -a $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
  haltdef

}
raw 317:*:{
  haltdef
  echo -a $timestamp 14|---› 14Connect Time:1 $asctime($4) 14/1 $duration($calc($ctime - $4))
  echo -a $timestamp 14|---› 14Idle:1  $duration($3)
}
raw 318:*:{
  haltdef
  .timer -h 1 200 echo -a $timestamp 14¯°--------------------------------------------------------------------------------• 
}
raw 319:*:{
  haltdef
  echo -a $timestamp 14|---› 14Channels:1 $3-
  echo -a $timestamp 14|---› 14Com Channels:1 $ortak_k($2) 04/01 Total:04 $comchan($2,0) 01Chan(s)
}

raw 338:*:{
  haltdef
  echo -a $timestamp 14|---› 14Real Ip Address:01 $4 $5 $6
  echo -a $timestamp 14|---› 14Real Ip:1 $3 $4
}
raw 320:*:{
  haltdef
  echo -a $timestamp 14|---› 14Swhois:1 $2-
}
raw 330:*: echo -a $timestamp 14|---› 14NickServ:1 $2  $4 $5 $6 $7 $3 | halt
raw 378:*:{
  haltdef
  .enable #whocontrol
  clonecntrl $7
  echo -a $timestamp 14|---› 14Real Ip Address:01 $4 $5 $6 $7
}
raw 379:*:{
  haltdef
  echo -a $timestamp 14|---› 14Modes:01 $6
}
raw 671:*:{
  haltdef
  echo -a $timestamp 14|---› 14Connection:1 $3-
}

raw 276:*:{
  haltdef
  echo -a $timestamp 14|---› 14Client :1 $3 $4 $5 $6 $7
}

raw 327:*: {
  echo -a $timestamp 14|---› 14Client Info:1 Java User
  halt
}

raw 310:*: {
  echo -a $timestamp 14|---› 14 Info: 1 Yardım sever biri gibi duruyor
  halt
}

raw 325:*: {
  echo -a $timestamp 14|---› 14 Info: 1 Hassas Kulaklara Sahip.
  halt
}
raw 308:*: {
  echo -a $timestamp 14|---› 14 Info:1 Servis Ajanı! •
  halt
}
alias ortak_k {
  if ($server == $null) {  echo -a $timestamp 14|---› 14Herhangi bir sêrvêr'a bağlı değilsiniz. }
  elseif ($chan($me) == 0) {  echo -a $timestamp 14|---› 14Herhangi bir kanala girmiş değilsiniz. }
  elseif (!$1) {  echo -a $timestamp 14|---› 14Ortak kanallarınızın bulunacağı nick belirtilmedi. }
  elseif ($comchan($1,0) == 0) {  echo -a $timestamp 14|---› 14No such nick/channel. }
  else {
    var %oid 1
    set %orka $comchan($1,0)
    unset %knms
    while (%oid <= %orka) {
      set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
      inc %oid
    }
    return %knms
  }
}

Kodların miRC sisteminize eklenmesi;
Eklenecek kodu kopyalıyoruz. (Kısayol Tuşu Ctrl + C) Ardından mIRC'imizi açıyoruz ve herhangi bir ekranda Alt + R tuşlarına basıyoruz. mIRC Scripts Editörü açılıyor.
[Aliases] [Popups] [Remote] [Users] [Variables] tablarından [Remote] sekmesini tıklıyoruz sonrasında Sol üst menümüzden;
|Dosya (ingilizce için File)
|Yeni (ingilizce için New)
Sekmelerine tıklıyoruz boş bir ekran karşımızda, ekrana sağ tıklayıp yapıştırı tıklıyoruz. (Kısayol Tuşu Ctrl + V) Son Olarak Tamam [OK] butonuna tıklıyoruz ve kodumuzu eklemiş oluyoruz.

Stskeep 28 Kasım 2017 14:19

Cevap: Gelismis Whois Addonu
 
Emeğine sağlık, fakat renk kodlarının karışması kopyalarken sıkıntı oldu :)

joker19 01 Mart 2018 19:50

Cevap: Gelismis Whois Addonu
 
tskler emeğinize sağlık

Chen 13 Eylül 2020 01:58

Cevap: Gelismis Whois Addonu
 
ben de mı karişti acaba bu whoıs ya sancak bı geldıgınde bakar mıısn


nıye gelmıon ?

hımm (çiğdem )


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net