Ce code est en réalité l'update d'un autre. A la base il n'y avait qu'un scann de fullname, mais il manquait d'options. Je lui ai donc rajouter 2 scans.
- scan clone
- scan fullname
- scan IRCop
Source / Exemple :
dialog scaninfo {
title "Scanneurs"
size -1 -1 300 40
combo 1 , 95 5 100 100 , vsbar , drop , size , sort
list 2 , 10 30 280 200
list 3 , 10 230 90 120
edit "Clones Interdits" , 4 , 190 270 100 20 , autohs
button "KICK" , 5 , 190 295 40 20
button "KICKBAN" , 6 , 235 295 56 20
text "" , 7 , 105 230 130 20
button "scanner" , 8 , 240 230 50 20
list 9 , 10 30 280 200
button "scanner" , 10 , 120 220 50 20
list 11 , 10 30 280 200
list 12 , 10 230 100 50
button "scanner" , 13 , 240 230 50 20
}
on *:dialog:scaninfo:init:*:{
dll $stdl MarkDialog scaninfo
dll $stdl SetMircVersion $version
dll $stdl SetControlMDX scaninfo 9,11 ListView showsel rowselect infotip report grid > views.mdx
did -i $dname 9 1 headerdims 90 185
did -i $dname 9 1 headertext $+(Pseudos,$chr(9),Info)
did -i $dname 11 1 headerdims 90 185
did -i $dname 11 1 headertext $+(Pseudos,$chr(9),Statut)
did -h $dname 2,3,4,5,6,7,8,9,10,11,12,13
did -a $dname 1 Scan?Clone
did -a $dname 1 Scan?Fullname
did -a $dname 1 Scan?IRCop
}
on *:dialog:scaninfo:sclick:*:{
if ($did(1) == Scan?Clone) { .dialog -s scaninfo -1 -1 300 350 | .did -h $dname 9,10,11,12,13 | .did -v $dname 2,3,4,5,6,7,8 }
if ($did(1) == Scan?Fullname) { .dialog -s scaninfo -1 -1 300 250 | did -h $dname 2,3,4,5,6,7,8,9,12,13 | .did -v $dname 9,10 }
if ($did(1) == Scan?IRCop) { .dialog -s scaninfo -1 -1 300 270 | did -h $dname 2,3,4,5,6,7,8,9,10 | .did -v $dname 11,12,13 }
if ($did == 5) { .kick $active $did(3).seltext $did(4) }
if ($did == 6) { .ban $active $did(3).seltext 2 | .kick $active $did(3).seltext $did(4) }
if ($did == 8) { .bcs }
if ($did == 10) { .bfull }
if ($did == 13) { .bcop }
}
alias stdl { return Dlls\mdx.dll }
alias f9 /scaninfo
alias scaninfo $iif($active != $chan,echo -a [Erreur] Mauvaise fenêtre. Choisissez un canal.,dialog -mdr scaninfo scaninfo)
alias bfull { %scan = 2 | did -r scaninfo 9 | enable #scnn | who $active }
alias bcop { %scan = 3 | did -r scaninfo 11,12 | enable #scnn | who $active }
alias beginsc {
set %n 0
:loop1
inc %n 1
if ($nick(%itchan,%n) isin %istock) { goto end }
if ($ialchan($address($nick(%itchan,%n),2),%itchan,0) > 1) {
inc %ittotal 1
unset %inick | set %l 0
:loop2
inc %l 1
if ($ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick) {
set %istock %istock $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
did -a scaninfo 3 $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick
set %inick %inick = [ $ialchan($address($nick(%itchan,%n),2),%itchan,%l).nick ]
goto loop2
}
did -a scaninfo 2 $str(?,57)
did -a scaninfo 2 $str($chr(160),2) > $right(%inick,-2) :
did -a scaninfo 2 $str($chr(160),2) > $address($nick(%itchan,%n),2)
did -a scaninfo 2 $str(?,57)
}
:end
if (%n < $nick(%itchan,0)) { goto loop1 }
if (%n == $nick(%itchan,0)) { evall }
}
alias evall {
%itpr = [ $calc(%ittotal * 100) ] / %itnick
did -a scaninfo 7 Total: %ittotal host, soit ~ ( $+ $int(%itpr) $+ % $+ )
if (%ittotal == 0) { did -r scaninfo 2 | did -b scaninfo 5,6 | did -a scaninfo 2 $str($chr(160),25) ?aucun clone detecté. }
if (%ittotal != 0) { did -e scaninfo 5,6 }
else { did -e scaninfo 5,6 }
unset %it*
unset %istock
}
alias bcs {
%scan = 1
did -r scaninfo 2,3,7
.ial on
.enable #scnn
who $active
set %itchan $active
set %itnick $nick($active,0)
set %ittotal 0
did -a scaninfo 2 $str($chr(160),30) ?detection..
unset %inick
}
#scnn off
raw 352:*:{
if (%scan == 1) { halt }
elseif (%scan == 2) { haltdef | .did -a scaninfo 9 $6 $chr(9) $strip($9-) }
elseif (%scan == 3) { haltdef | .did -a scaninfo 11 $6 $chr(9) $iif(* isin $7,$+($str($chr(160),5),IRCop),simple tchatteur) | $iif(* isin $7,did -a scaninfo 12 $6,halt) }
}
raw 315:*:{
if (%scan == 1) { .disable #scnn | beginsc | halt }
else { .disable #scnn | haltdef }
}
#scnn end
Conclusion :
Je met donc le code -et- le zip si vous n'avez pas les dlls. Une fois les dlls prises mettez-les dans le dossier intitulé Dlls, dans la racine de votre script.
Après, il suffit de taper soit /scaninfo soit appuyer sur F9 dans votre mIRC.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.