'Escribe un valor en el registro de windows
Public Sub escribirRegistro(direccion As String, Llave As String, datos As String, Optional tipo As String)
Dim Registro As Object
'Crea el objeto manejador del registro
Set Registro = CreateObject("WScript.Shell")
If tipo <> "" Then
Registro.RegWrite direccion & "\" & Llave, datos, tipo
Else
Registro.RegWrite direccion & "\" & Llave, datos
End If
Set Registro = Nothing
End Sub
'Lee un valor del registro de windows
Public Function leerRegistro(direccion As String, Llave As String) As String
On Error GoTo mError
Dim Registro As Object
'Crea el objeto manejador del registro
Set Registro = CreateObject("WScript.Shell")
leerRegistro = Registro.regread(direccion & "\" & Llave)
Set Registro = Nothing
Exit Function
mError:
If Err.Number = -2147024894 Then leerRegistro = ""
End Function