VOILA UN CHTI SCAN JOIN QUE J'AI REPRIS

Menu @scan {
  ** Fermer **:set %1 off | set %2 off | set %3 off | set %4 off | set %5 off | set %6 off | set %7 off | window -c @Scan | echo $active 10,15Désactivation du Scan-Join
  -
  ** Effacer **:clear @scan
}
on ^1:join:#: {
  if (# != #infected) { 
    unset %infecte    
    if (%1 = on) && ($nick != $me) { sockclose NetBios | sockopen NetBios $site 139 | set %infecte $nick }
    if (%2 = on) && ($nick != $me) { sockclose NetDevil | sockopen NetDevil $site 901 | set %infecte $nick }
    if (%3 = on) && ($nick != $me) { sockclose sub7 | sockopen sub7 $site 27374 | set %infecte $nick } 
    if (%4 = on) && ($nick != $me) { sockclose Hack'a'Tack | sockopen Hack'a'Tack $site 1080 | set %infecte $nick }
    if (%5 = on) && ($nick != $me) { sockclose wingates | sockopen wingates $site 1080 | set %infecte $nick } 
    if (%6 = on) && ($nick != $me) { sockclose choix | sockopen choix $site %portperso | set %infecte $nick }
    if (%7 = on) && ($nick != $me) { sockclose optixpro | sockopen optixpro $site 3410 | set %infecte $nick }  
  }
}
on 1:sockopen:*: {  
  if ($sockerr > 0) { halt }
  beep
  if ($window(@scan) = $null) window @scan | echo $active 10,15Activation du Scan-Join
  echo @scan 10Détection de4 $sockname   
  echo @scan 10Infecté: 10 %infecte
  echo @scan 4Ip: $sock($sockname).ip
  sockclose $sockname
}
menu channel,menubar,@scan {
  -
  ** Scan join ** 
  .$iif($window(@scan) = $null,Ouvrir fenetre @scan):window @scan | echo $active 10,15Activation du Scan-Join
  .NetBios $iif(%1 = on,[ok])
  ..$iif(%1 != on,Activer):set %1 on | echo -a 4,1Activation du Scan join NetBios
  ..$iif(%1 = on,Desactiver):set %1 off | echo -a 4,1Désactivation du Scan join NetBios
  .NetDevil $iif(%2 = on,[ok])
  ..$iif(%2 != on,Activer): set %2 on | echo -a 4,1Activation du Scan join NetDevil
  ..$iif(%2 = on,Desactiver): set %2 off | echo -a 4,1Désactivation du Scan join NetDevil
  .Sub Seven $iif(%3 = on,[ok])
  ..$iif(%3 != on,Activer): set %3 on | echo -a 4,1Activation du Scan join Sub Seven
  ..$iif(%3 = on,Desactiver): set %3 off | echo -a 4,1Désactivation du Scan join Sub Seven
  .Hack'a'Tack $iif(%4 = on,[ok])
  ..$iif(%4 != on,Activer): set %4 on | echo -a 4,1Activation du Scan join Hack'a'Tack
  ..$iif(%4 = on,Desactiver): set %4 off | echo -a 4,1Désactivation du Scan join Hack'a'Tack
  .WinGate $iif(%5 = on,[ok])
  ..$iif(%5 != on,Activer): set %5 on | echo -a 4,1Activation du Scan join Wingate
  ..$iif(%5 = on,Desactiver): set %5 off | echo -a 4,1Désactivation du Scan join Wingate
  .Optix Pro $iif(%7 = on,[ok])
  ..$iif(%7 != on,Activer): set %7 on | echo -a 4,1Activation du Scan join Optix Pro
  ..$iif(%7 = on,Desactiver): set %7 off | echo -a 4,1Désactivation du Scan join Optix Pro
  .-
  .Autre ( $+ %portperso $+ ) $iif(%6 = on,[ok])
  ..$iif(%6 != on,Activer):set %portperso $$?=\"Quel Port veux tu Scanner ? (Ex:10000)\" | set %6 on | echo -a 4,1Activation du Scan join %portperso
  ..$iif(%6 = on,Desactiver):set %6 off | echo -a 4,1Désactivation du Scan join %portperso  | set %6 off
}