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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [VB] [Registro ] Modificar valor DWORD (Solucionado)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [VB] [Registro ] Modificar valor DWORD (Solucionado)  (Leído 2,448 veces)
FranciskoAsdf

Desconectado Desconectado

Mensajes: 231


Ni bueno, ni malo. Solo nada.


Ver Perfil WWW
[VB] [Registro ] Modificar valor DWORD (Solucionado)
« en: 14 Junio 2014, 17:40 pm »

Estimados, necesito su ayuda de nuevo!

Necesito saber como modificar un valor DWORD en el registro, el valor cambia de 1  a  0, he buscado pero NO ENTIENDO NADA DE ESTO, y necesito que me guíen o ayuden directamente xD por favor xD.

tengo la ruta dónde está la clave y el nombre.

["HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\" ]
 y la clave es AccessVBOM.

por favor si alguien me puede ayudar,  es lo único que me falta para terminar mi programa.

gracias de ante mano!

Saludos!


« Última modificación: 15 Junio 2014, 22:49 pm por FranciskoAsdf » En línea

Asdf debería ser algún tipo de función.
XresH


Desconectado Desconectado

Mensajes: 384



Ver Perfil WWW
Re: [VB] [Registro ] Modifica valor DWORD
« Respuesta #1 en: 14 Junio 2014, 20:29 pm »

Esto es sencillo te dejo una guia para que lo tengas bien explicado, cualquier duda comentala que te ayudo ;)


Código:
http://www.ots.ac.cr/tech/node/315


Saludos espero sirva.


En línea

[ - Si eres programador y quieres que tus proyectos esten en mi blog(con o sin source), consúltame! - ]
Entra A Mi Blog De Programación | | Dudas en este post :| | >>Clic para ir al Post<<
FranciskoAsdf

Desconectado Desconectado

Mensajes: 231


Ni bueno, ni malo. Solo nada.


Ver Perfil WWW
Re: [VB] [Registro ] Modifica valor DWORD
« Respuesta #2 en: 15 Junio 2014, 01:23 am »

Hola, muchas gracias por tu respuesta, super bien explicado -y lo mejor- en pocas lineas xD

Pero como no todo puede ser perfecto, me da un error en tiempo de ejecución..


Ahora solo intento saber que valor tiene la clave para modificarla si es necesario o no.

Y lo hice así:

Código
  1. Private Sub ExcelAccessVBOM()
  2. ExcelVersion = ExcelApp.Version
  3. Set FakeRegedit = CreateObject("Wscript.Shell")
  4. ValorReg = FakeRegedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security")
  5. MsgBox ValorReg
  6. Set FakeRegedit = Nothing
  7. End Sub
  8.  

Y la llamo desde Form_Load(), pero al momento de cargar me sale el siguiente error:

Código:
"No se pudo abrir la clave del registro "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security" para leerla"

Revise la clave varias veces, e incluso la copie directo del Registro, pero nada. Probé cargando directamente la función desde el Form_Load(), pero me da el mismo error.

E de agregar que tengo todos los permisos necesarios para leer y/o modificar el registro.

Si fueras tan amable o alguien mas me guiarme porfavor xD.

EDIT: El tipo de variable de ValorReg es Integer.
En línea

Asdf debería ser algún tipo de función.
FranciskoAsdf

Desconectado Desconectado

Mensajes: 231


Ni bueno, ni malo. Solo nada.


Ver Perfil WWW
Re: [VB] [Registro ] Modificar valor DWORD (Solucionado)
« Respuesta #3 en: 15 Junio 2014, 22:52 pm »

Lo hice, pero no de esa forma, si no, usando API, por lo menos en mi pc funcionó xD.

Dejo acá como lo hice :D!

Código
  1. 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
  2. Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  3. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
  4. Private Const HKEY_CURRENT_USER = &H80000001
  5. Private Const REG_DWORD = 4
  6. Dim nBufferKey As Long
  7. Dim nVal As Long
  8.  

Código
  1. Private Sub Form_Load()
  2.    ExcelVersion = ExcelApp.Version
  3.    nVal = 1
  4.    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security", nBufferKey
  5.    RegSetValueEx nBufferKey, "AccessVBOM", 0, REG_DWORD, nVal, Len(nVal)
  6.    'MsgBox "Sandbox Mode Changed", vbInformation, "Sandbox"
  7.    RegCloseKey nBufferKey
  8.   mibd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataAndStuff\cllbd.mdb;Persist Security Info=False"
  9.   PB1.Min = 0
  10.   Open App.Path & "\DataAndStuff\OrdenPlanillaInventario.txt" For Input As #1
  11.   Do Until EOF(1)
  12.      Line Input #1, Linea
  13.      Total = Total + Linea + vbCrLf
  14.   Loop
  15.   Close #1
  16.   Label1.Caption = "NOTA IMPORTANTE:" & vbNewLine & "El archivo debe ser generado como ""HOJA CALCULO COSTE"" o el sistema dará ERROR."""
  17.   'ExcelAccessVBOM
  18. End Sub
  19.  

Saludos, y gracias!
En línea

Asdf debería ser algún tipo de función.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
problema con el seteo de un valor DWORD del regedit
Programación Visual Basic
Anteros 3 1,526 Último mensaje 17 Noviembre 2006, 15:21 pm
por Pitoniso
Modificar Valor a DWORD en el registro
Programación Visual Basic
Ch3ck 1 3,912 Último mensaje 6 Septiembre 2007, 03:55 am
por APOKLIPTICO
Cómo asigno el valor de una variable en BACH a una clave de registro SOLUCIONADO « 1 2 »
Scripting
<ИΘZIЭ(ŦB> 10 6,292 Último mensaje 18 Agosto 2009, 19:00 pm
por leogtz
Modificar un valor con Ollydbg
Ingeniería Inversa
pepecuervo 1 2,238 Último mensaje 3 Diciembre 2012, 18:24 pm
por karmany
Modificar valor checkbox
Desarrollo Web
mapers 3 2,009 Último mensaje 21 Diciembre 2013, 02:29 am
por #!drvy
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines