Çevrimdışı

Elimde yabancı bir siteden bulduğum şöyle bir kod var. Bu kodla kanalda, ip numarasının bir kısmını girdiğimde aynı ip'ten başka giren varsa kanalda sıralıyor. Tabii kick, kickban özellikleri de var. Benim istediğim, acaba bunu kanalda değil de @Ip Tarama diye bir pencerede verdirebilir miyiz? Şimdiden teşekkürler.

alias ipscan {
.ial on | if (- !isin $2) || $3 == $null { halt }
if -k isin $2 && $me !isop $1 { halt }
if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 }
if -k !isin $2 { echo -a ••• Reporting $1 ( %ip ) }
set %i 0 | set %tot 0
:loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt }
if %tot == 0 { .echo -a ••• Reporting sorry , there`s no one with this adress/ip. | halt }
.echo -a ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt
} | if %ip iswm $address($nick($1,%i),5) { inc %tot
if -k isin $2 && $me isop $1 {
if $address($me,3) == $address($nick($1,%i),3) { goto loop }
if $nick($1,%i) isop $1 { goto loop }
if $2 == -kb { mode $chan +b %ipchk }
kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc
goto loop
} | echo -a ••• Reporting Found ••• $address($nick($1,%i),5)
} | goto loop
}

menu channel {
® IP TARAMA
.Tara IP : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Scan Ip) $+ * | if (%ipchk != *!*@*) { .ipscan # - %ipchk }
.Kick : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Filter Kick) $+ * | if (%ipchk != *!*@*) { .ipscan # -k %ipchk }
.KickBan : set %ipchk *!*@ $+ $$input(Insert the IP ex: 213.447.215 / *aol.al,129,Filter Kick/Ban) $+ * | if (%ipchk != *!*@*) { .ipscan # -kb %ipchk }
.-
.about:echo -a Ip scan version 1.0 coded by X-FILE .
}
;End , X-FILE 2003


on *:load:{
if ($version > 6.0) { echo -a Ip scan v1.0 by X-FILE was successfully loaded. To access check menu channel. }
else { echo -a Sorry. This addon requires mIRC 6.0+. Please download the latest version from [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | .unload -rs " $+ $script $+ " }
}

 

Çevrimiçi

 

Çevrimdışı

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın! alias ipscan { if !$window(@ip) { window -ne @IP } .ial on | if (- !isin $2) || $3 == $null { halt } if -k isin $2 && $me !isop $1 { halt } if $chr(42) !isin $3 { set %ip $chr(42) $+ $3 $+ $chr(42) } | else { set %ip $3 } if -k !isin $2 { echo @IP ••• Reporting $1 ( %ip ) } set %i 0 | set %tot 0 :loop | inc %i | if %i > $nick($1,0) { if -k isin $2 { halt } if %tot == 0 { .echo @IP ••• Reporting sorry , there`s no one with this adress/ip. | halt } .echo @IP ••• Reporting TOTAL ••• ( %tot match(es) found)° | halt } | if %ip iswm $address($nick($1,%i),5) { inc %tot if -k isin $2 && $me isop $1 { if $address($me,3) == $address($nick($1,%i),3) { goto loop } if $nick($1,%i) isop $1 { goto loop } if $2 == -kb { mode $chan +b %ipchk } kick $1 $nick($1,%i) %url FILTER KICK For:14 %ip $irc goto loop } | echo @IP ••• Reporting Found ••• $address($nick($1,%i),5) } | goto loop }

Kullanımı nasıl acaba calıstıramadım bir türlü.. yada elinde !ip 135.653.974 dedigimde en son kullandıgı niklerini gösteren bir remote varmı ..