Config des programmes lancer au demmarage par mirc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 063 fois - Téléchargée 26 fois

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

Ajouter un commentaire Commentaires
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

hum... je sais pas pourquoi j'ai parler d'object...

alias lastlaunch {
.comopen LL WScript.Shell
if !$comerr {
var %b $com(LL,RegRead,3,bstr,HKEY_CURRENT_USERSoftwaremIRCDateUsed\),%res $com(LL).result
.comclose LL
return %res
}
return
}

voici un code pour voyager dans la base de registre... c pour voir la derniere fois que l'on a lancer mirc... mais ce code n'est pas de moi, il est de BombStrike et je l'ai récupéré sur le site scriptsdb.org
Messages postés
311
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
1 mai 2009

koko

revise ce que tu viens d'ecrire ou regarde si t'est vraiment sur le bon site de codes-sources parce si tu pense que le scripting est un language deriver objet t'est mieux d'aller reviser t'est notes et d'en reapprendre un peut plus sur le sujet :P lol
Messages postés
654
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
20 février 2005

pourquoi utiliser un fichier externe pour aller dans la base de registre ? tu peux directement le faire avec les objects com je crois
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

je trouve ça vraiment tres jolie :)

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.