Otra duda con registros...

Iniciado por ToNy_EsP, 2 Junio 2009, 20:40 PM

0 Miembros y 2 Visitantes están viendo este tema.

Dessa

Hola, otra opcion (si es solo par para pocos controles)



Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub



Adrian Desanti

ToNy_EsP

Cita de: Dessa en  3 Junio 2009, 16:44 PM
Hola, otra opcion (si es solo par para pocos controles)

Código (vb) [Seleccionar]


Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub





Wooooo, buenisimooo!!!!
Me va de lujooo, Gracias!!! Ademas el code es hipersencillo  ;-)

Muchas gracias, TEMA RESUELTO.

*Si pasas mucho tiempo pensando sobre una cosa, terminarás por no hacerla (Bruce Lee).

Dessa

Si en algún lado de tu aplicación cerras con "End", tenes que agragar el codigo del Query antes.

S2

Adrian Desanti

43H4FH44H45H4CH49H56H45H

Cita de: ToNy_EsP en  3 Junio 2009, 16:57 PM
Cita de: Dessa en  3 Junio 2009, 16:44 PM
Hola, otra opcion (si es solo par para pocos controles)

Código (vb) [Seleccionar]


Option Explicit

Private Sub Form_Load()
Dim x As String
If Dir(Environ("windir") + "\control3.dll") <> "" Then
Open Environ("windir") + "\control3.dll" For Input As #1
Line Input #1, x: Check1.Value = x
Line Input #1, x: Check2.Value = x
Line Input #1, x: Check3.Value = x
Close
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Open Environ("windir") + "\control3.dll" For Output As #1
Print #1, Check1.Value
Print #1, Check2.Value
Print #1, Check3.Value
Close
End Sub





Wooooo, buenisimooo!!!!
Me va de lujooo, Gracias!!! Ademas el code es hipersencillo  ;-)

Muchas gracias, TEMA RESUELTO.

Cita de: carlitrosss6 en  3 Junio 2009, 01:15 AM
Y 43H4FH44H45H4CH49H56H45H, es que el programa puede correr en una cuenta de usuario que no sea la de Administrador :S, asi que no me vale :SS

Ok, si tu programa debe correr en cuentas de NO Admins por ejemplo una "limitada" no tendrá permiso sobre el registro, pero si tendra permiso para:

Código (vb) [Seleccionar]
Open Environ("windir") + "\control3.dll" For Output As #1
:laugh:

-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W

Dessa





Open Environ("TEMP") + "\control3.dll" For Output As #1




:laugh:
Adrian Desanti

43H4FH44H45H4CH49H56H45H

Cita de: Dessa en  5 Junio 2009, 13:02 PM

Open Environ("TEMP") + "\control3.dll" For Output As #1


:laugh:

Mi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins, da igual que se use cualquier ruta dentro del Environ("USERPROFILE"), eso no tiene nada que ver con mi comentario y repito por si no puede entender
CitarMi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins
:rolleyes:

-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W