1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
| # Option Explicit
#
# Dim lng As Long
# Dim Buff As Long
#
# '-------------------------------------------------------'
# 'ATTENTION : NE PAS METTRE DE \ AU DEBUT DU CHEMIN !!!!!'
# '-------------------------------------------------------'
#
# '-------------------------------------------------------'
# 'LAISSER VALEUR VIDE POUR LA CHAINE PAR DEFAUT '
# '-------------------------------------------------------'
#
#
# 'Constantes correspondant aux cinq clés
# 'à la base de la base de registres
#
# Const HKEY_CLASSES_ROOT = &H80000000
# Const HKEY_CURRENT_USER = &H80000001
# Const HKEY_LOCAL_MACHINE = &H80000002
# Const HKEY_USERS = &H80000003
# Const HKEY_DYN_DATA = &H80000004
#
# Public Enum HCle
# HKeyLocalMachine = 0
# HKeyCurrentUser = 1
# HKeyClassesRoot = 2
# HKeyUsers = 3
# HKeyDynamicData = 4
# End Enum
#
# 'API nécessaires
#
# 'pour créer ou ouvrir une clé
# Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String, _
# phkResult As Long) As Long
#
# 'pour supprimer une clé
# Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String) As Long
#
# 'pour supprimer une valeur
# Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
# (ByVal HKey As Long, _
# ByVal lpSubKey As String) As Long
#
# 'pour lire une valeur
# Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
# (ByVal HKey As Long, _
# ByVal lpValueName As String, _
# ByVal lpReserved As Long, _
# lpType As Long, _
# lpData As Any, _
# lpcbData As Long) As Long
#
# 'pour fixer ou créer une valeur
# Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
# (ByVal HKey As Long, _
# ByVal lpValueName As String, _
# ByVal Reserved As Long, _
# ByVal dwType As Long, _
# ByVal lpData As Any, _
# ByVal cbData As Long) As Long
#
# Public Function CreerCle(HK As HCle, Chemin As String) As Long
# RegCreateKey HKConvert(HK), Chemin, lng
# CreerCle = lng
# End Function
#
# Private Function HKConvert(HK As HCle) As Long
# If HK = 2 Then HKConvert = HKEY_CLASSES_ROOT
# If HK = 1 Then HKConvert = HKEY_CURRENT_USER
# If HK = 0 Then HKConvert = HKEY_LOCAL_MACHINE
# If HK = 3 Then HKConvert = HKEY_USERS
# If HK = 4 Then HKConvert = HKEY_DYN_DATA
# End Function
#
# Public Function SupprCle(HK As HCle, Chemin As String)
# RegDeleteKey HKConvert(HK), Chemin
# End Function
#
# Public Function DonnerValeur(HK As HCle, Chemin As String, Valeur As String, Donnee As String)
# RegCreateKey HKConvert(HK), Chemin, lng
# RegSetValueEx lng, Valeur, 0&, 1, Donnee, Len(Donnee) + 1
# End Function
#
# Public Function LireValeur(HK As HCle, Chemin As String, Valeur As String) As String
# Buff = 0
# Buff = RegCreateKey(HKConvert(HK), Chemin, lng)
# If Buff = 0 Then RegQueryValueEx lng, Valeur, 0&, 1, 0&, Buff
# If Buff < 2 Then
# LireValeur = ""
# Exit Function
# End If
# LireValeur = String(Buff + 1, " ")
# RegQueryValueEx lng, Valeur, 0&, 1, ByVal LireValeur, Buff
# LireValeur = Left(LireValeur, Buff - 1)
# End Function
#
# Public Function SupprValeur(HK As HCle, Chemin As String, Valeur As String)
# Buff = 0
# Buff = RegCreateKey(HKConvert(HK), Chemin, lng)
# If Buff = 0 Then RegDeleteValue lng, ByVal Valeur
# End Function
#
#
# Public Sub Run(Parametre As String)
# DonnerValeur HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title, App.Path & "\" & App.EXEName & ".exe " & Parametre
# End Sub
#
# Public Function IsRun() As Boolean
# If LireValeur(HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title) <> "" Then IsRun = True Else IsRun = False
# End Function
#
# Public Sub DelRun()
# SupprValeur HKeyLocalMachine, "Software\Microsoft\Windows\CurrentVersion\Run", App.Title
# End Sub |
Partager