Lancer votre programme au démarrage de windows xp

0/5 (14 avis)

Snippet vu 10 752 fois - Téléchargée 31 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
fethi08111971 Messages postés 2 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 5 février 2010
5 févr. 2010 à 12:03
merci bp
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008
17 janv. 2005 à 14:42
pour le bout qui manque:
"c:\MonAppli.exe","REG_SZ"
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008
17 janv. 2005 à 14:38
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
DIASUNIV Messages postés 14 Date d'inscription lundi 3 janvier 2005 Statut Membre Dernière intervention 14 janvier 2006
17 janv. 2005 à 10:37
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.
zeunz Messages postés 200 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 30 juin 2008
7 avril 2004 à 17:36
nix: ton code a l'air d'etre bien. je vais le tester sur un xp pro et sur un win nt.
salutations
zeunz.

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.