A voir également:
- Nom d'entreprise enregistré dans la base de registre ...
- Base de données javascript - Conseils pratiques -Javascript
- Test nom de domaine - Forum PHP
- Balise géolocalisation véhicules entreprise - Forum Java
- Ebp impossible de se connecter à la base de données ✓ - Forum SQL
- Restauration base de données sql server ✓ - Forum SQL
1 réponse
Bonsoir,
Bien, j'ai essayé autant comme autant avec une ligne telle:
Text1 = GetSetting("..\..\..\HKEY_LOCAL_MACHINE\Software\Microsoft\Windows", "CurrentVersion", "RegisteredOrganization", "=Non définie=")
Rien à faire.
Alors vas sur http://vbaccelerator.com et récupère une copie de la classe cRegistry, ensuite le code suivant fonctionne à merveille:
Dim RegBot As New cRegistry
With RegBot
.ClassKey = HKEY_LOCAL_MACHINE
.SectionKey = "Software\Microsoft\Windows\CurrentVersion"
.ValueKey = "RegisteredOrganization"
.ValueType = REG_SZ
Text2 = .Value
End With
Bien, j'ai essayé autant comme autant avec une ligne telle:
Text1 = GetSetting("..\..\..\HKEY_LOCAL_MACHINE\Software\Microsoft\Windows", "CurrentVersion", "RegisteredOrganization", "=Non définie=")
Rien à faire.
Alors vas sur http://vbaccelerator.com et récupère une copie de la classe cRegistry, ensuite le code suivant fonctionne à merveille:
Dim RegBot As New cRegistry
With RegBot
.ClassKey = HKEY_LOCAL_MACHINE
.SectionKey = "Software\Microsoft\Windows\CurrentVersion"
.ValueKey = "RegisteredOrganization"
.ValueType = REG_SZ
Text2 = .Value
End With
