[VB6] Verifica del ProductID da programma fallisce in Windows Vista

[Magicolotto]

da codice estraggo il ProductId dei file di registro...
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\ProductId


con XP tutto ok, lo visualizzo nella TXT...


pero' con VISTA non va


come mai...

[oregon]

Non cambi ... e' inutile dirti che devi sempre dire qual e' il problema con l'errore e il codice ...

"Non va" ... non significa nulla ... ne' sappiamo nulla del codice ...

[Magicolotto]

tramite codice inserisco ProductId in una text.box
su win XP tutto questo funziona....
pero l'eseguibile su VISTA non fa caomparire nella text.box nulla
cioè la TEXT è vuota

su vista il percorso è diverso?

[oregon]

Hai controllato con il regedit il contenuto del registro?

Hai eseguito il tuo programma come administrator?

Ci fai vedere il codice o no?

[Magicolotto]

    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        txtUserName.Text = Left$(sBuffer, lSize)
    Else
        txtUserName.Text = vbNullString
    End If
     Dim RetVal As Long, BufferLen As Long, KeyHandle As Long, DataType As Long
    Dim SubKey As String, Buffer As String
    
    SubKey = "Software\Microsoft\Windows\CurrentVersion"
    RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_READ, KeyHandle)
    If RetVal <> 0 Then
        SubKey = "Software\Microsoft\Windows NT\CurrentVersion"
        RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_READ, KeyHandle)
        If RetVal <> 0 Then
            MsgBox "Could not open registry key!"
            Exit Sub
        End If
    End If
    Buffer = Space(255)
    BufferLen = Len(Buffer)
    RetVal = RegQueryValueEx(KeyHandle, "ProductID", 0, DataType, ByVal Buffer, BufferLen)
    Buffer = Left(Buffer, BufferLen)
    RetVal = RegCloseKey(KeyHandle)
stringa$ = Buffer

Text1.Text = stringa

[oregon]

Non hai risposto alle mie domande ...

Dato che non ho Vista sotto mano, puoi dire che errore fornisce il codice?

Per esempio, questa riga

MsgBox "Could not open registry key!"

viene eseguita? E se viene eseguita, qual e' il valore di

RetVal

in quel momento?

[Magicolotto]

Uso questo codice in un mio programma

facevo la domanda xchè neanche io ho VISTA
ma un utente che usa un mio programmino

[oregon]

Ok ... allora non so come aiutarti. -