(Resolvido) Problema ao editar Regedit

[SokomoKud]

Oi pessoas, eu to tentando resolver esse problema já faz um tempinho e não consigo achar um jeito. O erro que acontece:

Acontece nessas linhas:

HWID = key.OpenSubKey("SYSTEM\CurrentControlSet\Control\IDConfigDB\Hardware Porfiles\0001", True)
HWID.SetValue("HwProfileGuid", newSimIDrdy)
HWID.Close()

Que é executada por um botão. 

As variáveis as quais essas linhas se referem:

    Dim key As RegistryKey = Registry.LocalMachine
    Dim HWID As RegistryKey

    Dim appFold As String = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\Config"
    Dim idsPath As String = appFold + "\ids"
    Dim rstPath As String = appFold + "\Reset"

    Dim defaultID As String = My.Computer.FileSystem.ReadAllText(rstPath + "\idDefault.txt")
    Dim defSimID As String
    Dim newSimID As String
    Dim newSimIDrdy As String

As pastas e os arquivos de texto são criados normalmente com seus valores (definidos pela form1) corretos.

Essa form2 modifica os valores dos arquivos de texto essa forma:

        defSimID = defaultID.Remove(defaultID.Length - 4)
        newSimID = defSimID & simpleID
        newSimIDrdy = newSimID + "}"

No caso se o arquivo termina em 6e6963} (por exemplo) ele modifica pra 6e6XXX}, sendo XXX o valor do defaultID.

Sei que provavelmente dava pra fazer tudo isso de forma bem mais simples, mas não tenho nenhum curso/faculdade e nem faço pra distribuir, faço isso mais por diversão e aprendizado.

[Graymalkin]

Então, este erro normalmente ocorre ao se tentar usar um objeto que é nulo, ou seja, Nothing. Acredito que o HWID esteja ficando nulo porque a chave não é encontrada. Repare que há um erro de digitação no caminho da chave (onde está Porfiles deveria estar Profiles). Experimente consertar isso, como na linha abaixo, e veja se dá certo:

HWID = key.OpenSubKey("SYSTEM\CurrentControlSet\Control\IDConfigDB\Hardware Profiles\0001", True)

Abraços!

[SokomoKud]

1 hora atrás, Graymalkin disse:

Então, este erro normalmente ocorre ao se tentar usar um objeto que é nulo, ou seja, Nothing. Acredito que o HWID esteja ficando nulo porque a chave não é encontrada. Repare que há um erro de digitação no caminho da chave (onde está Porfiles deveria estar Profiles). Experimente consertar isso, como na linha abaixo, e veja se dá certo:

HWID = key.OpenSubKey("SYSTEM\CurrentControlSet\Control\IDConfigDB\Hardware Profiles\0001", True)

Abraços!

Valeu pela resposta, vou tentar aqui se funcionar eu edito o comentário.

Edit:

Era isso mesmo, meu Deus .-. mudei tanta coisa no código quando na verdade era um erro no endereço...

Muito obrigado mesmo.

Editado Setembro 11, 2016 por SokomoKud