METEZ DES LOGICIEL DANS RUN DU REGISTRE POUR QU'IL DÉMARRE À CHAQUE FOIS

Signaler
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008
-
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19048-metez-des-logiciel-dans-run-du-registre-pour-qu-il-demarre-a-chaque-fois

Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008

Merci pour ces réponses.

Xav
Messages postés
178
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

'RECTIFICATION-----------
'On reforme car les "antislash" n'apparaissent pas...

dim Wsch
Private sub CheckBox_Click
AppChanged=IIF(AppChanged False,True,False)
end sub

Private sub AppChanged(Etat as boolean)
Set Wsch = CreateObject("Wscript.Shell")

if Etat=False then
'on supprime
Wsch .regdelete "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme"

else 'on inscrit
Wsch .regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme", App.Path & "Ton Programme.exe", "REG_SZ"

end if

Bonne continuation
Messages postés
178
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

dim Wsch
Private sub CheckBox_Click
AppChanged=IIF(AppChanged False,True,False)
end sub

Private sub AppChanged(Etat as boolean)
if Etat=False then
'on supprime
Wsch .regdelete "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme"

else
'on inscrit
Wsch .regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunTon Programme", App.Path & "Ton Programme.exe", "REG_SZ"

end if

Bonne continuation
Messages postés
3
Date d'inscription
jeudi 19 juin 2003
Statut
Membre
Dernière intervention
29 décembre 2003

He bien oui Xav88 regarde le code il est très simple :

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegDelete "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunNOM DU FICHIER QUE TU VEUT SUPP" ' supprime le paramètre
Messages postés
178
Date d'inscription
mercredi 8 octobre 2003
Statut
Membre
Dernière intervention
25 septembre 2008

Ca m'intéresse mais je me demande s'il y a un moyen de faire l'opération inverse (en clair: est il possible de supprimer le prog qu'on vient d'ajouter au registre?????)

Voila et Bonne Année 2004 à tous

Xav