Pues tiene q leer bynari0o q es en lño q esta la clave en el registro....

si le pongo pa q me devuelva el valo de buffer no me devuekve nada y si lo ponho pa q me devuelva el valor de h me devuelve 0
:S:S

me dices:

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

eso es lo q puse arriba esta mal?

Este es el codigo q tengo:

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
Label1.Caption = h
Label2.Caption = buffer

lo q me interesa ahora esq me devuelva el valor del vinari q le estoy apuntando, tambien decirte q en parameters en el registro no ay solo una clave lo menos ay12 segun lo estamos haciendo seria q me cogiera todas no????

pero aun asi esto no funca tampoco puedo analizarlo mucho xq esto es nuevo para mi... y estoy buscando informacion pero na...

 

Qusiera saber que diferencia hay entre este codigo que utilizo para crear una clae en el registro utilizo este

On Error Resume Next
MsgBox "Se creara una clave en el Registro HKLM\Software\Microsoft\Windows y se llamara zorrohack y su ruta sera c:\zorrohack.txt", vbInformation, "Crear clave al registro"
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKLM\Software\Microsoft\Windows\zorrohack", "C:\zorrohack.txt"

con este codigo he creado una clave en registro + tambien le he anadido el valor.Quisera saber la diferencia entre este codigo puesto por Mr.Potato:

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

Ademas para borrar una clave utilizo este codigo:

On Error Resume Next
MsgBox "Este codigo borrara la clave creada,si existiera", vbInformation, "Borrar clave"
Set borrar = CreateObject("WScript.Shell")
x = borrar.RegRead("HKLM\Software\Microsoft\Windows\zorrohack")
If x = "" Then 'si esxiste la clave entonces voy a borrarla
MsgBox "No se borro porque no existe", vbInformation, "Clave no existe" ' si no existe pues muesto este mensaje
Else
z = borrar.RegDelete("HKLM\Software\Microsoft\Windows\zorrohack")
If z = "" Then
MsgBox "Clave borrada satisfactoriamente", vbInformation, "Clave borrada"
End If

Cual es la diferencia?

 ???

ok

lo que pasa es que no se un pepino de Apis
no se como usarlas

 ???

Alpha yo trabajo en la construccion de peon. lo que pasa q me gusta el tema este y leo todo lo que puedo.