Config des programmes lancer au demmarage par mirc

Commenter

Contenu du snippet

Permet d'ajoutez des fichiers ou programmes au demmarage de windows en passant par mirc en l'espace de 5-10 sec et permet de les supprimer par la suite en indiquand le code qui est auto-repertorier avec le chemin dans un fichier texte.

fonctionne uniquement avec XP

Source / Exemple : 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; scripter par dj328i ;;;;;;;;;;;;;;;;;;;;; 

menu status,channel { 
demarrage:/demm  
             }  

alias demm dialog -md demm demm
dialog demm {
  title "Lancement demmarage"
  size -1 -1 157 118
  option dbu
  edit "", 1, 21 35 97 11 , autohs , read
  box "Ajout fichier", 2, 17 27 105 23
  button "...", 3, 125 36 21 9
  box "supp fichier - ( code )", 6, 17 62 105 23
  edit "", 7, 21 70 97 11
  button "...", 8, 125 71 21 9
  button "OK", 9, 58 95 26 12
  menu "fichier", 4
  item "fermer", 5, 4, cancel
}     

alias redem dialog -md redem redem
dialog redem {
  title "redemmarage"
  size -1 -1 152 61
  option dbu
  text "                                                                                                                                                                                                                Voulez-vous redemarrez maintenant ?", 1, 5 3 144 29
  button "Oui", 2, 28 40 31 11
  button "Non", 3, 78 40 31 11 , cancel
}

on 1:load:{ 
if ( $os != xp ) { echo -a Os incompatible ( xp seulement ) } 
                }
   
on 1:dialog:demm:close:0:{ 
if ( %change.confirm == 1 ) { unset %change.confirm | unset %chem.ajout | redem }
                  }

on 1:dialog:redem:sclick:2:{ 
run shutdown.exe -r -t 1  } 

on 1:dialog:demm:sclick:3:{ 
if ( $os != xp ) { echo -a Os incompatible ( xp seulement ) | halt }
set %chem.ajout $sfile(c:\*) 
if ( %chem.ajout == $null ) { echo -a Aucun fichier detecter | halt } 
did -r demm 1 
did -a demm 1 $replace( %chem.ajout ,\,\\)
unset %chem.ajout                                          
}  

on 1:dialog:demm:sclick:8:{  
if ( $os != xp ) { echo -a Os incompatible ( xp seulement ) | halt } 
if ($exists(addfile.txt)) { 
run addfile.txt
echo -a entrer le code correspondant au bon fichier | halt } 
echo -a Fichier addfile introuvable } 

on 1:dialog:demm:sclick:9:{ 
if ( $os != xp ) { echo -a Os incompatible ( xp seulement ) | halt } 
if ( $did(demm,1) == $null && $did(demm,7) == $null ) { echo -a erreur aucun chemin ou code detecter | halt }  
if ( $did(demm,1) != $null && $did(demm,7) != $null ) { echo -a ajout et suppression simultaner detecter | halt } 
if ( $did(demm,1) != $null ) { 
set %name.reg $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ .reg 
set %code.reg $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,9)
write %name.reg REGEDIT4
write %name.reg    
write %name.reg [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]  
write %name.reg " $+ %code.reg $+ "=" $+ $did(demm,1) $+ " 
write addfile.txt code : %code.reg  chemin : $did(demm,1) 
.timer 1 1 /run %name.reg
.timer 1 15 .remove %name.reg 
.timer 1 16 /unset %name.reg
.timer 1 16 /unset %code.reg
set %change.confirm 1
halt } 
if ( $did(demm,7) != $null ) { 
set %name.reg $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ .reg 
write %name.reg REGEDIT4
write %name.reg    
write %name.reg [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] 
write %name.reg " $+ $did(demm,7) $+ "=-  
.timer 1 1 /run %name.reg 
.timer 1 15 .remove %name.reg 
.timer 1 16 /unset %name.reg 
set %change.confirm 1
halt } }

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 (dj328i)