Lancer votre programme au démarrage de windows xp

Soyez le premier à donner votre avis sur cette source.

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

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

Messages postés
4
Date d'inscription
samedi 30 juin 2007
Statut
Membre
Dernière intervention
5 février 2010

merci bp
Messages postés
201
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

pour le bout qui manque:
"c:\MonAppli.exe","REG_SZ"
Messages postés
201
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

Public Sub CreateKeyRegedit(Cle As String, Section As String, Valeur As String)
'*****************************************************************************
' Procédure de création de clé et de valeur dans la base de registre *
'*****************************************************************************

'Déclaration des variables
Dim Wshshell

'Appel de la référence
Set Wshshell = CreateObject("WScript.Shell")

'Création de la clé
Wshshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MonAppli","c:\MonAppli.exe" , "REG_SZ"

End Sub
Messages postés
14
Date d'inscription
lundi 3 janvier 2005
Statut
Membre
Dernière intervention
14 janvier 2006

j'ai pas bien compris ton commentaire, surtout ça: "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""
"
veux-tu me completer ce segment de code pour ce nom de programme: licorn.exe STP
c'est très important.
Messages postés
201
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
30 juin 2008

nix: ton code a l'air d'etre bien. je vais le tester sur un xp pro et sur un win nt.
salutations
zeunz.
Afficher les 14 commentaires

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.