Programación lbu
Agregue un módulo y escriba código como este: simplemente llame a la subrutina aquí donde sea necesario.
El tuyo se escribe así:
Texto1. texto = getstring value(HKEY_LOCAL_MACHINE,"HARDWARE\DESCRIPTION\System\central Processor\0","ProcessorNameString")
=============== ==== ==
El siguiente es el contenido del módulo.
Constantes de clave de registro
Constante pública HKEY_class_ROOT = &H80000000
Constante pública HKEY_current_user=&H80000001
Constante pública HKEY_LOCAL_MACHINE = & ampH80000002
Construcción pública HKEY_User= & ampH80000003
Construcción pública HKEY_Performance_data= & ampH80000004
Constante pública ERROR _ SUCCESS = 0 & amp
Declarar el función RegCloseKey Lib " advapi 32 . dll "(ByVal hKey As Long) como Long
Declare la función RegCreateKey Lib" advapi 32.dll" alias "RegCreateKeyA" (ByVal hKey es Long, ByVal lpSubKey es String, phkResult es Long) declarada como Long
Declare la función RegDeleteKey Lib "advapi32.dll "Alias" RegDeleteKeyA" (ByVal hKey es Long, ByVal lpSubKey es String) y declarada como Long
Declare la función RegDeleteValue Lib "advapi32.dll "alias" RegDeleteValueA" (ByVal hKey es Long, ByVal lpValueName es String) como Long
Declare la función RegOpenKey Lib "advapi 32. dll" alias "RegOpenKeyA" ( ByVal hKey es Long, ByVal lpSubKey es String, phkResult es Long) como Long
Declare la función RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey es Long, ByVal lpSubKey es String, ByVal ulOptions es largo, ByVal samDesired es largo, phkResult es largo)
Agregar función RegQueryValueEx Lib "advapi 32.dll "Alias "RegQueryValueExA" (ByVal hKey es largo, ByVal lpValueName es cadena, ByVal lpReserved es Long, lpType es Long, lpData es Any, lpcbData es Long) Declarado como Long
Declarar función RegQueryValueExString Lib " advapi 32 . dll "alias" RegQueryValueExA" (ByVal hKey es Long, ByVal lpValueName es String, ByVal lpReserved es Long, lpType es Long, ByVal lpData es String, lpcbData es Long) es Long
Agregue la función RegQueryValueExLong Lib "advapi 32. dll" El alias "RegQueryValueExA" (ByVal hKey es Long, ByVal lpValueName es String, ByVal lpReserved es Long, lpType es Long, lpData es Long, lpcbData es Long) se declara como
Long
Agregue la función RegQueryValueExNULL Lib "advapi 32.dll "Alias" RegQueryValueExA" (ByVal hKey es Long, ByVal lpValueName es String, ByVal lpReserved es Long, lpType es Long, ByVal lpData es Long, lpcbData es Long ) declarar como Long
Agregue la función RegSetValueEx Lib "advapi32.dll "alias" RegSetValueExA" (ByVal hKey es Long, ByVal lpValueName es String, ByVal Reserved es Long, ByVal dwType es Long, lpData es Any , ByVal cbData es Long) declarado como Long
Constante pública REG_SZ = 1
Const pública REG_DWORD = 4
Sub savekey pública (hKey es larga, strPath es String)
Dim Keyhand &
r = RegCreateKey(hKey, strPath, keyhand &)
r = RegCloseKey(keyhand &)
p>Conector final
Función pública GetStringValue (hKey es Long, strPath es String, strValue es String)
El teclado oscuro tiene la misma longitud
Dim data El tipo es Long
Dim lResult As Long
Dim strBuf como cadena
Dim lDataBufSize es Long
Dim intZeroPos es entero
p>r = RegOpenKey(hKey, strPath, keyhand)
lResult = RegQueryValueEx(keyhand, strValue, 0 & amplValueType, ByVal 0 & amp, lDataBufSize)
Si queda Tipo de valor = REG_SZ, entonces
strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(keyhand, strValue, 0 & amp, 0 & amp, ByVal strBuf, lDataBufSize)
Si lResult = ERROR_SUCCESS, entonces
intZeroPos = InStr(strBuf, Chr$(0))
Si intZeroPos & gt entonces 0
GetStringValue = Left$(strBuf, intZeroPos - 1)
Otro
GetStringValue = strBuf
Terminará si...
Terminará si...
Terminará si...
Finalizar función
Public Sub SetStringValue(hKey es Long, strPath es String, strValue es String, strdata como String)
Dim r As Long
Dim r As Long
r = RegCreateKey(hKey, strPath , tecladista
)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
Conector final
La función GetDwordValue (ByVal hKey es Long, ByVal strPath es String, ByVal strValueName es String) es Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf tiene la misma longitud
Dim lDataBufSize es Long
Dim r As Long
El teclado oscuro tiene la misma longitud
r = RegOpenKey(hKey, strPath, keyhand)
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0 & amp, lValueType, lBuf, lDataBufSize )
Si lResult = ERROR_SUCCESS, entonces
Si lvalue type = REG_DWORD, entonces
GetDwordValue = lBuf
Si... terminará
Terminará si...
r = RegCloseKey(keyhand)
Finalizar función
Función SetDwordValue(ByVal hKey es largo, ByVal strPath es cadena, ByVal strValueName es cadena, ByVal lData es largo)
Dim lResult As Long
Dim r As Long
r = RegCreateKey (hKey, strPath, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0 & amp, REG_DWORD, lData, 4)
r = RegCloseKey(keyhand)
Finalizar función
Función pública DeleteKey(lPredefinidaClave es larga, sKeyName es Cadena)
Eliminar clave principal
Dim lRetVal tiene la misma longitud
Dim hKey tiene la misma longitud
lRetVal = RegOpenKeyEx(lPredefinidoKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteKey(lPredefinidoKey, sKeyName)
RegCloseKey (hKey)
Finalizar función
Función pública DeleteValue(lPredefinidaClave es larga, sKeyName es Cadena, sValueName es Cadena)
Eliminar valor de clave
Dim lRetVal tiene la misma longitud
Dim hKey tiene la misma longitud
lRetVal = RegOpenKeyEx(lPredefinidoKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegDeleteValue(hKey,
sValueName)
RegCloseKey (hKey)
Función final
Función pública QueryValue (lPredefinidoKey es Long, sKeyName es String, sValueName es String)
Obtener el valor clave
Dim lRetVal tiene la misma longitud
Dim hKey tiene la misma longitud
Dim vValue como variable
lRetVal = RegOpenKeyEx(lPredefinidoClave, sKeyName, 0, KEY_ALL_ACCESS, hKey)
lRetVal = RegQueryValueEx(hKey, sValueName, vValue, 0, 0, 0)
Valor de consulta = valor
RegCloseKey (hKey)
Finalizar función