Scan ircop by devorz

Commenter

Contenu du snippet

voila c'est mon premier Scan Ircop, bon j'attend vos reproches pour l'amélioré :p, mais bon en tout cas il fonctionne bien.

Source / Exemple : 


alias Ircop { $iif($dialog(Ircop),dialog -x Ircop,dialog -m Ircop Ircop)  }
dialog Ircop {
  title "- Scan Ircop - [ /Ircop ]"
  size -1 -1 97 134
  option dbu
  list 1, 7 11 83 85, size vsbar
  button "Fermer", 2, 3 123 90 10, flat ok
  box "Scan Serveur", 4, 2 1 92 99
  button "Whois", 15, 3 101 39 10, flat
  button "Query", 16, 54 101 39 10, flat
  button "Rafraichir", 18, 3 112 90 10, flat
}
On *:dialog:Ircop:*:*:{
  If ($devent == Init) {
    who 0 o
    Echo -a Scan en cours..
    Echo -a Scan Effectué sur14 $server - Ip serveur :14 $serverip - Network :14 $network $+ .
  }
  Elseif ($devent == Sclick) {
    if ($did = 18) { did -r $dname 1 | who 0 o }
    Elseif ($did = 15) { if ($did(1).sel) { whois $did(1).seltext } }
    Elseif ($did = 16) { if ($did(1).sel) { query $did(1).seltext } }
  }
  Elseif ($devent == dclick) {
    if ($did(1).sel) whois  $did(1).seltext   
  }
}
raw 352:*:if ($dialog(Ircop)) { did -a IRCOP 1 $6 | halt } | else { echo -a $6 | halt }

Conclusion :


...

A voir également

S'inscrire maintenant

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.

Du même auteur (devorZ)