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 778 fois - Téléchargée 727 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
Xav88 Messages postés 178 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 25 septembre 2008
29 déc. 2003 à 14:48
Merci pour ces réponses.

Xav
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
29 déc. 2003 à 10:49
'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
cs_NISANDSYSTEMS Messages postés 178 Date d'inscription vendredi 1 novembre 2002 Statut Membre Dernière intervention 9 janvier 2010
29 déc. 2003 à 10:41
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
cs_Mahboub Messages postés 3 Date d'inscription jeudi 19 juin 2003 Statut Membre Dernière intervention 29 décembre 2003
29 déc. 2003 à 10:33
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
Xav88 Messages postés 178 Date d'inscription mercredi 8 octobre 2003 Statut Membre Dernière intervention 25 septembre 2008
28 déc. 2003 à 23:22
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.