Ir para conteúdo
Fórum Script Brasil

SokomoKud

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre SokomoKud

SokomoKud's Achievements

0

Reputação

  1. 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.
  2. 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.
×
×
  • Criar Novo...