SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: willesct en Miércoles 16 de Julio de 2003, 20:33
-
:brickwall: Quisiera una ayuda con Visual Basic para ingresar un valor en un campo del registro de windows. Mas o menos como hace un programa al instalarse, cuando pide la licensia y la guarda en un campo especifico del registro.
-
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.-
-
EL programa funciono perfectamente... Muchas gracias....
De donde puedo aprender cosas como esas? que libro? o como aprendió usted esto?
GRACIAS:comp:
-
HOLA, LA VERDAD ES QUE NO LLEVO MÁS DE TRES MESES PROGRAMANDO, PARA APRENDER ESTO NO HE LEIDO NADA, SOLO VIENDO CODIGOS FUENTE DE EJEMPLO, LEYENDO LAS RESPUESTAS YA DADAS DE LOS FOROS, ETC.
COMO EJEMPLO, POR SI TE INTERESA APRENDER COSAS COMO ESTA, ESTE CODIGO CREO QUE LO SAQUE DE LA WEB DEL PROGRAMADOR.
WWW.LAWEBDELPROGRAMADOR.COM (http://WWW.LAWEBDELPROGRAMADOR.COM)
EN LA SECCION DE CODIGO FUENTE HAY GRAN CANTIDAD DE CODIGOS FUENTE EJEMPLO, PARA PODER APRENDER.
TAMBIEN PUEDES VER
WWW.PLANETSOURCECODE.COM (http://WWW.PLANETSOURCECODE.COM) (SOLO QUE ESTA EN INGLES)
WWW.PORTALVB.COM (http://WWW.PORTALVB.COM) (TAMBIEN ESTA BIEN)
BUENO ADIOS, ME ALEGRO DE QUE TE FUNCIONARA, SI TIENES DUDAS NO DEJES DE COMENTARLO EN EL FORO QUE SI NO YO CUALQUIER OTRO DE LOS QUE PARTICIPAMOS SABRA LA RESPUESTA.
ADIOS,
ATENTAMENTE:
MAESTROMANU.-
-
Tienes razon, una de las buenas formas de aprender es viendo codigo, por eso en la pagina del guille (Guille.costasol.net) entre sus utilidades puedes encontrar una clase para manipular el registro del sistema...es muy buena..ya la he utilizado y me ha dado buenos resultados...espero que te sirva de algo....
wrene...
Aprendiz..