0/5 (18 avis)
Snippet vu 6 908 fois - Téléchargée 69 fois
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
11 avril 2010 à 22:55
de plus, les valeurs des constantes non déclarées sont :
Const KEY_ALL_ACCESS = &H3F
Const ERROR_SUCCESS = 0
merci pour la source
30 août 2009 à 19:48
9 sept. 2006 à 00:44
6 déc. 2005 à 12:32
20 mai 2005 à 19:15
depuis 99 les temps changes:
set wssh = createobject("Wscript.shell")
wssh.regwrite ...
^^
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.