1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Lancer votre programme au démarrage de windows xp

Lancer votre programme au démarrage de windows xp

0/5 (14 avis)

Snippet vu 10 618 fois - Téléchargée 31 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
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.
Afficher les 14 commentaires
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)