Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 333 fois - Téléchargée 29 fois
'Vous avez besoin: '2 boutons de commande. 1 appelé Command1 et l'autre Command2 Private Sub Command1_Click() 'bouton pour écrire la clé 'Script pour écrire, effacer,lire etc... des choses Set WshShell = CreateObject("Wscript.Shell") application = App.Path & "\" & App.EXEName & ".exe" 'app.patch = chemin de l'application, &"\" rajoute un \, app.exe = ajoute le nom de l'appli, &".exe" = ajoute .exe à la fin du nom 'Pour écrire la clé WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\VARIABLE À CHANGER ICI LE NOM DE LA CLÉ", application '<-----ici vous pouvez enlevez "application" par un nom de fichier fixe. exemple: "C:\WINDOWS\explorer.exe" très important entre ""guillemement"" End Sub '-------------------------------------------- Private Sub Command2_Click() 'bouton pour effacer la clé 'Même chose Set WshShell = CreateObject("Wscript.Shell") 'Pour l'effacer WshShell.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\VARIABLE À CHANGER ICI LE NOM DE LA CLÉ" End Sub
Commentaires
euhm, tu as raison, ça fait un certain temps que je programme lol :-P
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.