Metez des logiciel dans run du registre pour qu'il démarre à chaque fois

Soyez le premier à donner votre avis sur cette source.

Vue 4 625 fois - Téléchargée 722 fois

Description

Voila le code contient un module il suffit d'entre le chemin d'acces complet dans un textbox et le fichier inscrit démarrera à chaque foisil n'apparaitra pas dans
la liste de Ctrl + Alt + Suppr

Conclusion :


Bon cela peut servir à quelque chose de bon comme de mauvais il ni a pas plus eficase

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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

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.