Scanneur d'ip...
Description
Pas grand intêret lol, je l'accorde. Mais ça peut servir, on sait jamais.. :\ C'est un code qui permet de scanner des host, par exemple si vous cherchez le host ayant "lol" dedans, bah ça l'affiche dans le dialog. Mon code utilise un socket, j'ai pas trouver d'autre moyen pour pouvoir être sûr de récupérer les host, car $address($nick(#,1),1) ne marche pas sur certains, dommage, ça prendrais moins de temps.
Je m'attend à tout genre de critique, mais je la dépose pour cela.
Pour utiliser le code, mettez le dans "Remotes" avec Alt+r , dans un nouveau fichier bien entendu.
Puis tapez f12 ou /scanip .
Walou, bon scripting mIRC.
Source / Exemple :
alias tab {
if (!$1) return $chr(9) | var %t,%w = 1
while ($($+($,%w),2)) { %t = $instok(%t,$($+($,%w),2),0,9) | inc %w }
return %t
}
alias stdl { return Dlls/mdx.dll }
alias f12 /scanip
alias scanip dialog -m scanip scanip
dialog scanip {
title "?Scanneur D'ip?"
size -1 -1 500 400
list 1, 5 5 490 200
list 2 , 5 205 100 190
edit "" , 3 , 360 205 110 25
button "Scanner" , 4 , 410 235 50 20
box "" , 5 , 150 260 230 100
text "" , 6 , 230 275 100 75
text "" , 7 , 110 207 30 20
button "ok" , 8 , 420 330 40 30 , ok
}
on *:dialog:scanip:init:*:{
dll $stdl MarkDialog $dname
dll $stdl SetMircVersion $version
dll $stdl SetControlMDX $dname 1 ListView showsel rowselect infotip report grid > views.mdx
did -i $dname 1 1 headerdims 90 400
did -i $dname 1 1 headertext $tab(Pseudos,Adresse)
did -a $dname 6 $crlf $+ Scan D'ip Sur %chandep Comportant $nick(%chandep,0) $iif($nick(%chandep,0) > 1,tchatteurs,tchatteur) $+ . $+ $crlf
%chandep = $active
did -a $dname 7 $iif($active == Status Window,?,0/ $+ $nick(%chandep,0))
}
on *:dialog:scanip:sclick:4:{
if ($active == Status Window) { .did -a scanip 1 $chr(9) Mettez-vous sur un canal pour pouvoir scanner. }
elseif (($did(3))) { .scanipp }
else { .did -a scanip 1 $chr(9) Vous n'avez pas spécifié de recherche. }
}
alias scanipp {
did -r scanip 1,2
did -a scanip 7 0/ $+ $nick(%chandep,0)
.enable #scanip
who %chandep
unset %nbuser
set %nbuser 0
}
#scanip off
raw 352:*: .did -a scanip 1 $6 $chr(9) $+($iif(~ isin $3,$3, ~ $+ $3),@,$4) | $iif($did(scanip,3) isin $+($3,@,$4),did -a scanip 2 $6,halt) | inc %nbuser | .did -a scanip 7 %nbuser $+ / $+ $nick(%chandep,0)
#scanip end
Conclusion :
Je m'attend à tout genre de critique, mais je la dépose pour cela.
Pour utiliser le code, mettez le dans "Remotes" avec Alt+r , dans un nouveau fichier bien entendu.
Puis tapez f12 ou /scanip .
Walou, bon scripting 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.