 Autor
|
Tema: Otra duda con registros... (Leído 4,928 veces)
|
Dessa
 Desconectado
Mensajes: 624
|
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
|
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
ToNy_EsP
Desconectado
Mensajes: 61
V.I.P Programmer
|
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
Wooooo, buenisimooo!!!! Me va de lujooo, Gracias!!! Ademas el code es hipersencillo  Muchas gracias, TEMA RESUELTO.
|
|
|
|
|
En línea
|
 *Si pasas mucho tiempo pensando sobre una cosa, terminarás por no hacerla (Bruce Lee). |
|
|
Dessa
Desconectado
Mensajes: 624
|
Si en algún lado de tu aplicación cerras con "End", tenes que agragar el codigo del Query antes.
S2
|
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
43H4FH44H45H4CH49H56H45H
Wiki
Desconectado
Mensajes: 502
|
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
Wooooo, buenisimooo!!!! Me va de lujooo, Gracias!!! Ademas el code es hipersencillo Muchas gracias, TEMA RESUELTO.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:Open Environ("windir") + "\control3.dll" For Output As #1
|
|
|
|
|
En línea
|
 -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 |
|
|
|
|
43H4FH44H45H4CH49H56H45H
Wiki
Desconectado
Mensajes: 502
|
Open Environ("TEMP") + "\control3.dll" For Output As #1
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 Mi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins 
|
|
|
|
|
En línea
|
-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 |
|
|
|
 |
