Lancer votre programme au démarrage de windows xp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 291 fois - Téléchargée 29 fois

Commenter

Contenu du snippet

Voici comment lancer un programme au lancement de windows XP. Je sais que ce code existe déjà mais moi je toruve que c'est mieux lorsque qu'on peut voir plusieurs façons d'arriver au même but.

PS: En passant j'ai décider de changer de nick. Avant je m'appelais Xfile.

Source / Exemple : 


'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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de capbat
S'inscrire maintenant

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.

Du même auteur (bi0hazard)