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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  MODIFICANDO EL REGISTRO DESDE VB
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: MODIFICANDO EL REGISTRO DESDE VB  (Leído 11,643 veces)
dxr
Colaborador
***
Desconectado Desconectado

Mensajes: 3.036



Ver Perfil
MODIFICANDO EL REGISTRO DESDE VB
« en: 11 Junio 2003, 06:48 am »

Hola tengo un par de dudas referente al registro.
Mi idea es editar copiar y añandir al registro:

Private Sub Command1_Click()
On Error Resume Next
MsgBox "Se creara una clave en el Registro HKEY_CURRENT_USER\Software\RAdmin\v2.xD\Parameters y se llamara lala y su ruta sera c:\lala.txt", vbInformation, "Crear clave al registro"
Set reg = CreateObject("WScript.Shell")
reg.regwrite "HKEY_CURRENT_USER\Software\RAdmin\v2.xD\Parameters", "C:\lala.txt"
End Sub

Private Sub Command2_Click()
On Error Resume Next
MsgBox "Este codigo borrara la clave creada,si existiera", vbInformation, "Borrar clave"
Set borrar = CreateObject("WScript.Shell")
borrar.RegDelete "HKEY_CURRENT_USER\Software\RAdmin\v2.xD"
End Sub

Private Sub Command3_Click()
On Error Resume Next
MsgBox "Se copiara una clave en el Registro HKEY_CURRENT_USER\Software\RAdmin\v2.xD\Parameters y se llamara lala2 y su ruta sera c:\lala2.txt", vbInformation, "Copiar clave al registro"
Set reg = CreateObject("WScript.Shell")
reg.regcopy "HKEY_CURRENT_USER\Software\RAdmin\v2.0\Parameters", "C:\lala2.txt"
End Sub


bueno pos lo unico q consigo con esto es añadir calves al registro y borrarlas pero por ejemplo no se me borra 2.xD solo su interior...

Y como ago para q me cree un archivo con la entrada de una direccion q yo le indico en el registro?? por ejemplo la clave del radmin q me la guarde en un txt. como seria???


Gracias.


En línea

Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.
byebye


Desconectado Desconectado

Mensajes: 5.093



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #1 en: 11 Junio 2003, 09:23 am »

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.

Código:
[
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



« Última modificación: 11 Junio 2003, 09:26 am por Mr.Potato » En línea

dxr
Colaborador
***
Desconectado Desconectado

Mensajes: 3.036



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #2 en: 11 Junio 2003, 09:38 am »

La verdad esq no tengo ni idea de manejar las apis... pero esto del registro parece facil muchas gracias....

aunq no me kedo claro como crear el archivo....

en el archivo lo q pretendo es copiar una clave del registro por ejemplo la clave en hexadeciamal de un juego...

se me olvidava para utilizar RegCloseKey... todo eso imagino q sera con las apis.... pero ay q añadir algo al formulario????

Gracias. ;)
« Última modificación: 11 Junio 2003, 09:41 am por DEREK_X » En línea

Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.
byebye


Desconectado Desconectado

Mensajes: 5.093



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #3 en: 11 Junio 2003, 09:51 am »

si tienes que declarar las constantes y las funciones.

Código:
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.
En línea

dxr
Colaborador
***
Desconectado Desconectado

Mensajes: 3.036



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #4 en: 11 Junio 2003, 10:42 am »

xD MUCHAS GRACIAS.

no me as entendido con lo del archivo mira te digo mi idea mi idea es crear un ejecutable q ya vere q tonteria le pongo pero q al cargar el form accede a unas rutas del registro a las mas comunes de estos juegos de jugar por internet tipo counter, half life..... y q me COPIE las claves a un txt y me lo suba al ftp pues bien q me las suba al ftp se hacerlo acer entradas al registro mediante las apis teoricamente ya se hacerlo gracias a ti  ;) y crear archivos tanbien se acerlos pero lo q no se acer es q me copie las claves del juego q se almacenan en el registro en un txt para q me lo suba al ftp....

nose si me entiendes.... Muchas gracias me as enseñado bastante  :D
En línea

Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.
byebye


Desconectado Desconectado

Mensajes: 5.093



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #5 en: 11 Junio 2003, 11:24 am »

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?
En línea

dxr
Colaborador
***
Desconectado Desconectado

Mensajes: 3.036



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #6 en: 11 Junio 2003, 11:31 am »

xDDDDDD si pillo pero........

q fallo no s eme ocurre como meter un valor a un archivo

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

podria ser??? q va a ser q no....

joer tio eres la poia  :D te lo agradezco millllllll
En línea

Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.
byebye


Desconectado Desconectado

Mensajes: 5.093



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #7 en: 11 Junio 2003, 11:38 am »

exacto asi escribes en el archivo el valor que tu buscas.
En línea

dxr
Colaborador
***
Desconectado Desconectado

Mensajes: 3.036



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #8 en: 11 Junio 2003, 12:20 pm »

Como siempre... las clases teoricas no lo es todo bien lo estoy yevando a la practica..

Esyte es un trozo de codigo imprscindible...

Dim h, buffer As String
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 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_CURRENT_USER = &H80000002

Private Sub Form_Load()
buffer = String(1024, vbNullChar)
RegOpenKey HKEY_CURRENT_USER, "\Software\RAdmin\v2.0\Parameters", h
RegQueryValueEx h, "Parameters", 0, 1, ByVal buffer, Len(buffer)
Open "c:/archivo.txt" For Append As #1
Write #1, buffer
Close #1
End Sub


bien en el archivo q me crea aparece:

"
"

tonces no entiendo xq ay q añadir la ruta del registro asi:

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

q es lo q esta mal?

esto d elas apis es un poco lioso
xD
En línea

Hacer preguntas concretas, claras y aportando toda la documentación necesaria.
De lo contrario, no tendreis una respuesta clara.
byebye


Desconectado Desconectado

Mensajes: 5.093



Ver Perfil
Re:MODIFICANDO EL REGISTRO DESDE VB
« Respuesta #9 en: 11 Junio 2003, 12:27 pm »

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
En línea

Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Registro Windows desde Java (WinRegistry)
Java
juancaa 0 2,718 Último mensaje 4 Febrero 2013, 03:39 am
por juancaa
Modificando un binario
Ingeniería Inversa
ivancea96 1 2,089 Último mensaje 23 Julio 2015, 20:00 pm
por MCKSys Argentina
Modificando Arduino IDE
Programación General
Meta 0 2,104 Último mensaje 27 Julio 2020, 14:18 pm
por Meta
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines