HOLA, LO MAS FACIL SERIA AÑADIR UN MODULO Y EN EL PONER ESTO.
'/////////COMIENZA EL MODULO///////////
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value
End Sub
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"
End Sub
Public Function ReadKey(Value As String) As String
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
r = b.RegRead(Value)
ReadKey = r
End Function
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value
End Sub
'/////////////FIN DEL MODULO////////////////
SUPONIENDO QUE QUIERES LEER ALGUN VALOR DEL REGISTRO AL CARGAR SERIA ALGO COMO ESTO
'///////////////////////////////////////////////////
PRIVATE SUB FORM_LOAD()
DIM REGISTRADO AS STRING
REGISTRADO = ReadKey("HKCUSoftwareMICOMPAÑIAMIPROGRAMAREGISTRADO")
END SUB
AHORA JUEGAS CON EL VALOR
IF REGISTRADO = "" THEN
MSGBOX "NO ESTAS REGISTRADO"
ELSEIF REGISTRADO = "SI" THEN
MSGOBX "ESTAS REGISTRADO"
ENDIF
'///////////////////////////////////////////////////
CUANDO QUIERAS GUARDAR EL VALOR SUPONIENDO DESDE UN FORM O DESDE UN INPUTBOX, O DESDE DONDE QUIERAS PONES ALGO COMO ESTO.
'///////////////////////////////////////////////////
PRIVATE SUB COMMAND1_CLICK()
CreateKey "HKCUSoftwareMIEMPRESAMIPROGRAMAREGISTRADO", SERIAL.Text
End Sub
'///////////////////////////////////////////////////
LO ANTERIOR SUPONIENDO QUE LO HAGAS DESDE UN FORM Y EN ESTE HAYA UN BOTON LLAMADO COMMAND1 Y UN TEXTBOX LLAMADO SERIAL.
BUENO, ADIOS,
ESPERO QUE TE SIRVA, ESTE ES EL CODIGO MÁS SIMPLE QUE HAY PARA GUARDAR EN EL REGISTRO, HAY OTRO PERO TE ORIENTO DICIENDOTE QUE TRAE TRES PAGINAS EL MODULO.
BUENO SI TE SIRVE A SEGUIR TRABAJANDO
ATENTAMENTE:
MAESTROMANU.-
