elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Otra duda con registros...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Otra duda con registros...  (Leído 4,951 veces)
Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: Otra duda con registros...
« Respuesta #10 en: 3 Junio 2009, 16:44 pm »

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

Código:

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 Desconectado

Mensajes: 61


V.I.P Programmer


Ver Perfil
Re: Otra duda con registros...
« Respuesta #11 en: 3 Junio 2009, 16:57 pm »

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

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5. Dim x As String
  6. If Dir(Environ("windir") + "\control3.dll") <> "" Then
  7. Open Environ("windir") + "\control3.dll" For Input As #1
  8. Line Input #1, x: Check1.Value = x
  9. Line Input #1, x: Check2.Value = x
  10. Line Input #1, x: Check3.Value = x
  11. Close
  12. End If
  13.  
  14. End Sub
  15.  
  16. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  17. Open Environ("windir") + "\control3.dll" For Output As #1
  18. Print #1, Check1.Value
  19. Print #1, Check2.Value
  20. Print #1, Check3.Value
  21. Close
  22. End Sub
  23.  
  24.  



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 Desconectado

Mensajes: 624



Ver Perfil
Re: Otra duda con registros...
« Respuesta #12 en: 3 Junio 2009, 17:56 pm »

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 Desconectado

Mensajes: 502



Ver Perfil
Re: Otra duda con registros...
« Respuesta #13 en: 5 Junio 2009, 05:01 am »

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

Código
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5. Dim x As String
  6. If Dir(Environ("windir") + "\control3.dll") <> "" Then
  7. Open Environ("windir") + "\control3.dll" For Input As #1
  8. Line Input #1, x: Check1.Value = x
  9. Line Input #1, x: Check2.Value = x
  10. Line Input #1, x: Check3.Value = x
  11. Close
  12. End If
  13.  
  14. End Sub
  15.  
  16. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  17. Open Environ("windir") + "\control3.dll" For Output As #1
  18. Print #1, Check1.Value
  19. Print #1, Check2.Value
  20. Print #1, Check3.Value
  21. Close
  22. End Sub
  23.  
  24.  



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:

Código
  1. Open Environ("windir") + "\control3.dll" For Output As #1
:laugh:
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
Dessa


Desconectado Desconectado

Mensajes: 624



Ver Perfil
Re: Otra duda con registros...
« Respuesta #14 en: 5 Junio 2009, 13:02 pm »



Código:

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



 :laugh:
En línea

Adrian Desanti
43H4FH44H45H4CH49H56H45H
Wiki

Desconectado Desconectado

Mensajes: 502



Ver Perfil
Re: Otra duda con registros...
« Respuesta #15 en: 5 Junio 2009, 15:09 pm »

Código:
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
Citar
Mi comentario fue por el uso de Environ("windir") luego de que el menciono que debia correr en user no admins
:rolleyes:
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
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Duda] Registros
ASM
xv0 0 2,477 Último mensaje 25 Octubre 2012, 17:24 pm
por xv0
Duda sobre registros en C++
Programación C/C++
seryioo 1 1,800 Último mensaje 7 Septiembre 2015, 16:51 pm
por ivancea96
[DUDA] Pares de registros
ASM
integeroverflow 5 3,749 Último mensaje 6 Marzo 2017, 17:34 pm
por xv0
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines