Lancer votre programme au démarrage de windows xp

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 320 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

capbat
Messages postés
3
Date d'inscription
lundi 24 novembre 2003
Statut
Membre
Dernière intervention
29 novembre 2003
-
C'est bien mais pourquoi pas pour tous les windows(9) ME 2000 etc.
Utilisateur anonyme -
Bien avec 2000 c'est la même chose. Avec ME je n'ai jamais testé puisque ME je pense que c'et une erreur de Microsoft (D'où les lettre ME pour MERDE) et windows 98 c'est presque la même chose mais je ne m'en rappele plus par coeur. Je crois que c'et encore dans la branche :"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun" mais au-lieu de "run", mettre "service" si je me souvien bien.
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
-
désolé, je suis nouveau en informatique, c'est quoi Winodws XP ?
DragonDracGrrr
Messages postés
31
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 décembre 2004
-
Mais non ME c'est Windows MEUHHHHHHHHH ! moi j'ai ME et ca marche, donc ca doit marcher egalement sur Windows 9x. Kirua, ca marche pas le coup du "je suis nouveau en informatique" car tu as inverse 2 lettres dans "Windows" donc c'est que tu doit taper vite au clavier pour inverse 2 lettres donc t'es pas un nouveau donc il faut arreter de dire n'importe quoi !
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
-
lol mais non t'as pas compris, c'est parce qu'il y a une faute de frappe ds le titre, et je trouve ça plutôt gros ^^ voilà, alors comme je ne voulais pas être méchant ou agressif, j'ai juste voulu attirer votre attention là-dessus ;-)
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.