Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - byebye

#881
El olly esta muy bien, interfaz de win y bastante completo
#882
arriba pones esto:
RegOpenKey HKEY_CURRENT_USER, "\Software\RAdmin\v2.0\Parameters", h

y cual es la funcion de h ahi?

y tambien e supuesto q esto se declaraba asi:

Private Const HKEY_LOCAL_MACHINE = &H80000002


tienes declarada HKEY_LOCAL_MACHINE pero usas HKEY_CURRENT_USER que en ese codigo no esta declarada, por otra parte si h devuelve 0 algun error ocurrio (seguro q es lo de HKEY).

Public Const REG_BINARY = 3                    
Public Const REG_DWORD = 4
Public Const REG_EXPAND_SZ = 2
Public Const REG_MULTI_SZ = 7
Public Const REG_NONE = 0                      
Public Const REG_SZ = 1                        

mas tipos de datos para q modifiques segun t venga bien
#883
en h te devuelve el handle para referirte a la clave abierta hasta q la cierres, fijate en lo q t puse antes:

RegOpenKey HKEY_CURRENT_USER, "\Software\RAdmin\v2.0\Parameters", h   > recibes en h el handle
RegQueryValueEx h, "Parameters", 0, 1, ByVal buffer, Len(buffer)   > aqui ya nos referimos a ese handle (h) que es la clave abierta.

por otra parte usas HKEY_CURRENT_USER ¿la tienes declarada? ( Private Const HKEY_CURRENT_USER = &H80000001 )

el tipo de dato que vas a leer que es? como ya t dije ese codigo lee string
#884
exacto asi escribes en el archivo el valor que tu buscas.
#885
me parece que no nos entendemos mutuamente  :P, en la variable buffer tienes el valor de la clave que lees pilla esa variable y metela en un archivo de texto.

por ejemplo supon q tiene
hkey_local_machine/software/halflife > CD-KEY 12345678

buffer tendra 12345678 ¿es eso a lo q te refieres?
#886
si tienes que declarar las constantes y las funciones.


Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002



sobre lo de el archivo

Open "c:/archivo.txt" For Append As #1
Write #1, "datos a escribir"
Close #1

para q t de una idea.

otra cosa el ejemplo es para leer string si vas a leer otro tipo de dato tienes que modificar lo q es el tipo de dato y alguna cosilla mas.
#887
acostumbrate a usar la api  ;D, aqui te dejo codigo para crear claves, añadir valor, leer etc luego tu ya t lo montas como quieras.

[
Private Sub Command1_Click()
Dim h, buffer As String
buffer = String(1024, vbNullChar)
'crear una clave
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE", h
RegCreateKey h, "PRUEBA", h
RegCloseKey h
'aqui ya tienes la clave creada
'escribir un valor
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\PRUEBA", h
RegSetValueEx h, "Nombre", 0, 1, ByVal "datos", Len("datos")
' aqui ya tienes el nuevo valor y datos en la clave creada
' borrar del registro el valor de la clave
RegDeleteValue h, "Nombre" ' Aqui se a borrado el nombre "Nombre" y el valor "datos"
RegCloseKey h

RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE\PRUEBA", h
RegQueryValueEx h, "Nombre", 0, 1, ByVal buffer, Len(buffer)
' ya tienes en buffer el valor de "Nombre"

RegDeleteKey HKEY_LOCAL_MACHINE, "SOFTWARE\PRUEBA"
RegCloseKey h
' y ya esta todo borrado claves y subclaves
End Sub


acuerdate de declarar la/as constantes (HKEY_LOCAL_MACHINE etc)

PD:
que se me paso jejej, para lo de el archivo ya lo que pilles en buffer open "archivo" etc etc y lo guardas

#888
Ingeniería Inversa / Re:descompilador
10 Junio 2003, 12:42 PM
te repito q ni aproximado. puedes usar w32dasm para desensamblarlo, suerte
#889
Ingeniería Inversa / Re:descompilador
9 Junio 2003, 20:44 PM
tampoco t lo mostrara similar. todo lo mas te lo mostrara en ensamblador.
#890
Ingeniería Inversa / Re:descompilador
9 Junio 2003, 18:55 PM
Solo decirte que si encuentras algo no creas que vas a ver el codigo fuente original.