1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Demarrer un programme au demarrage de windows

Demarrer un programme au demarrage de windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 645 fois - Téléchargée 67 fois


Commenter

Contenu du snippet

Comment puis-je démarrer mon appli au démarrage de windows ?

Mettez les déclarations suivantes dans votre Module :

Source / Exemple : 


Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Boolean
End Type

Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long

Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long

' Puis mettez ce code dans votre Module :

Private Function bSetRegValue(ByVal hKey As Long, ByVal lpszSubKey As String, ByVal 

sSetValue As String, ByVal sValue As String) As Boolean

    On Error Goto ERROR_HANDLER
    Dim phkResult As Long
    Dim lResult As Long
    Dim SA As SECURITY_ATTRIBUTES
    Dim lCreate As Long

    ' Cette Fonction créera la clef ou la valeur si elle(s) n'existe(nt) pas

    'Ouverture et Création de la Clef
    RegCreateKeyEx hKey, lpszSubKey, 0, "", REG_OPTION_NON_VOLATILE, _
    KEY_ALL_ACCESS, SA, phkResult, lCreate
    lResult = RegSetValueEx(phkResult, sSetValue, 0, 1, sValue, _
    CLng(Len(sValue) + 1))
    'Fermeture de la Clef
    RegCloseKey phkResult
    'Renvoi le Résultat de SetRegValue
    bSetRegValue = (lResult = ERROR_SUCCESS)
    Exit Function
    ERROR_HANDLER:
    MsgBox "ERROR #" & Str$(Err) & " : " & Error & Chr(13) _
    & "SVP Fermez et Réessayez."
    bSetRegValue = False
End Function

Private Sub Form_Load()
    a = bSetRegValue(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "LeNomDeVotreProgramme", "c:\LeChemin\LeProgramme")
    MsgBox ("Programme ajouté au démarrage de Windows")
End Sub

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
 1
le code fonctionne sous xp contrairement à ce que dit mikele
de plus, les valeurs des constantes non déclarées sont :
Const KEY_ALL_ACCESS = &H3F
Const ERROR_SUCCESS = 0

merci pour la source
Signaler
Messages postés
1
Date d'inscription
dimanche 29 avril 2007
Statut
Membre
Dernière intervention
30 août 2009
code error
Signaler
Messages postés
2
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
25 août 2010
Je cherche le code pour qu au demarrage de windows xp au moment de l ouverture de session il y ai une autre interface et que les sessions soit ouvertes par carte a puce.est-ce c est possible?
Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 64
les API restent preferables, CCJ, au niveau vitesse d'execution, face au Late Binding ^^
Signaler
Messages postés
565
Date d'inscription
mercredi 19 mai 2004
Statut
Membre
Dernière intervention
30 avril 2008
 1
lol
depuis 99 les temps changes:
set wssh = createobject("Wscript.shell")
wssh.regwrite ...
^^
Afficher les 18 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 (Nix)