[VB6] Aggiungere al Registro una chiave binaria

[mixt3ri4]

ciao a tutti, sono nuovo del forum anke se cmq non è la prima volta ke lo visito...

Sto usando visual basic per creare 1 programmino molto carino, purtroppo ho dei problemi cn le chiavi binarie:

Dim mix As Variant
Set mix = CreateObject("Wscript.shell")
mix.RegWrite "HKCU\Software\qua qua\lol", [valore troppo lungo], "REG_BINARY"


ecco...proprio perkè il valore è troppo lungo, VB mi da l'errore... sapreste dirmi come rimediare?? il valore da inserire è:

VVoVe:
&H0C00000040000000740000001A0000001300000033000000 050000006A0000002600000001000000E1000000DF01000004 00000001000000BD00000002000000200000008D0100000300 000009000000B8000000

:master:
grazie, spero in 1 risposta...

[mixt3ri4]

nessuna risposta???? ho bagliato forum????

[oregon]

Come potrai leggere su MSDN, per quanto riguarda il metodo RegWrite

RegWrite Method
http://msdn2.microsoft.com/en-us/library/yfdfhz1b.aspx

c'e' scritto

... RegWrite will write at most one DWORD to a REG_BINARY value. Larger values are not supported with this method ...

Per fare quello che vuoi facilmente, puoi usare WMI ... un esempio che devi adattare e' questo

const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Info"
strComputer = "."
iValues = Array(&H3a,&H34,&Hb5,&Hca,&Hd1,&Hd0,&H4f,&H00,&Hdf,&Ha9,&H6c)
Set oReg=GetObject( _ 
    "winmgmts:{impersonationLevel=impersonate}!\\" & _
   strComputer & "\root\default:StdRegProv")
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
BinaryValueName = "File"
oReg.SetBinaryValue HKEY_LOCAL_MACHINE, strKeyPath, BinaryValueName, iValues

[mixt3ri4]

Grazie 10000000000000000000000000000000000000000000000000 00000000000!!!!!!!!!!!

non sai da quanto tempo sto cercando un minuscolo codice per fare 1 grande lavoro..

funziona xfettamente benissimo!!!

[oregon]

Prego ...