Sistemas Operacionais

16/04/2015 18h00 - Atualizado em 02/08/2018 15h19

Como descobrir a chave de ativação do Windows 7

Helito Beggiora
por
Para o TechTudo

Localizar a chave de ativação do Windows 7 pode ser útil para fazer um backup, formatar o HD ou reinstalar o sistema operacional em outro computador. O procedimento pode ser realizado de forma simples e rápida com a ajuda de um código e o bloco de notas do Windows, sem precisar instalar nenhum programa no PC.

Veja como mudar a aparência do Windows e personalizar seus ícones

Confira o passo a passo e aprenda como descobrir o serial, ou product key, do Windows 7. A dica também vale para as outras versões do sistema da Microsoft.

Windows 7 não receberá mais updates de aparência ou desempenho a partir desta terça (13) (Foto: Divulgação) (Foto: Windows 7 não receberá mais updates de aparência ou desempenho a partir desta terça (13) (Foto: Divulgação))Descubra a chave de registro do Windows 7 sem instalar nenhum programa (Foto: Divulgação/Microso)

Quer comprar celular, TV e outros produtos com desconto? Conheça o Compare TechTudo

Passo 1. Abra o “Bloco de notas” e cole o código abaixo: 

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = “BCDFGHJKMPQRTVWXY2346789″
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 – i) Mod 6) = 0) And (i -1) Then
i = i -1
KeyOutput = “-” & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
 

Passo 2. Em seguida, acesse o menu “Arquivo” e clique em “Salvar” – ou use a tecla de atalho “Ctrl + S”;

Salvando arquivo do bloco de notas (Foto: Reprodução/Helito Bijora)  (Foto: Salvando arquivo do bloco de notas (Foto: Reprodução/Helito Bijora) )Salve o arquivo do bloco de notas (Foto: Reprodução/Helito Bijora)

Passo 3. Em seguida, em “Tipo”, selecione “Todos os arquivos”. Por fim, digite um nome de sua preferência e adicione a extensão “.vbs” ao fim;

Escolha um nome e use a extensão .vbs (Foto: Reprodução/Helito Bijora)  (Foto: Escolha um nome e use a extensão .vbs (Foto: Reprodução/Helito Bijora) )Escolha um nome e use a extensão .vbs (Foto: Reprodução/Helito Bijora).

Passo 4. Para descobrir a chave de ativação do Windows 7, basta executar o arquivo. O serial do sistema instalado em seu computador será exibido.

Descobrindo a chave de ativação do Windows 7 (Foto: Reprodução/Helito Bijora)  (Foto: Descobrindo a chave de ativação do Windows 7 (Foto: Reprodução/Helito Bijora) )Após completar o passo a passo, aparece uma caixa com a chave de ativação do Windows 7. (Foto: Reprodução/Helito Bijora)

Com essa dica simples, você poderá descobrir a chave de ativação do Windows 7 sem precisar instalar nenhum programa no computador.

Qual é o melhor Windows de todos os tempos? Comente no Fórum do TechTudo.

Seja o primeiro a comentar

Os comentários são de responsabilidade exclusiva de seus autores e não representam a opinião deste site. Se achar algo que viole os termos de uso, denuncie. Leia as perguntas mais frequentes para saber o que é impróprio ou ilegal.

recentes

populares

  • Jefferson Silva
    2019-07-18T18:02:29

    Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function

  • Manuel
    2019-04-10T16:48:07

    eram as aspas... Mas o resultado foi decepcionante... BBBBB-BBBBB-BBBBB-BBBBB-BBBBB O que isto quer dizer?

  • Manuel
    2019-04-10T16:45:08

    Erro! Linha 6 carater 9 (ou seja ")

  • Eek Games
    2019-03-12T08:54:53

    Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function

  • Evandro Carlos
    2018-04-13T14:13:32  

    Tenho o código corrigido no drive pra baixar, mas aqui não deixa postar link.

    recentes

    populares

    • Evandro Carlos
      2018-04-13T14:13:32  

      Acesse o site hastebin ponto com e bote depois do com /nuheqoqiqa.sql

    recentes

    populares

    • Evandro Carlos
      2018-04-13T14:13:32  

      O código aparecera corrigido. Só copiar e colar no notepad e salvar como "Key Finder.vbs" e abaixo escolha "todos os arquivos" escolha "unicode", mas testei e funciona em "ANSI" também.

  • Fagner Peligrini
    2018-03-25T14:34:45  

    Re-postando as correções do código.

    recentes

    populares

    • Fagner Peligrini
      2018-03-25T14:34:45  

      Continua dando erro.

  • Fernando Cavalcanti
    2018-04-13T07:14:18

    Não funciona, só dá erro.

  • Débora Fernandes
    2018-03-15T10:35:40  

    alguém por gentileza poderia me ajudar, aqui só da erro

    recentes

    populares

    • Débora Fernandes
      2018-03-15T10:35:40  

      Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789?" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29-i) Mod 6) = 0) And (i-1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function

  • Lecy Teixeira
    2018-02-05T18:06:40  

    não estou conseguindo executar o quarto passo de como descobrir a chave de ativação do windows sete, podem me orientar ?

    recentes

    populares

    • Lecy Teixeira
      2018-02-05T18:06:40  

      Gostaria de agradecer, pela atenção que me foi dada, foram 16 horas de espera por uma orientação. E ATÉ AGORA NADA, MUITO OBRIGADO POR NADA......

  • Kim Clara
    2018-01-30T17:45:16

    Fiz tudo direitinho e apareceu sim a chave, porém na hora que eu fui colocá-la disse: ''a chave inserida parece ser a padrão e, portanto, não pode ser usada para ativação. Forneça outra chave do produto'' Tem algum outro método?

  • Natalino Santos
    2017-12-27T09:18:36

    Fiz o passo a passo mas não consegui. Aparece uma informação de acesso a uma lista suspensa Unicode.

  • José
    2017-04-23T09:05:47

    não funciona

  • Lucas Jesus
    2017-11-06T22:00:24  

    eu fiz passo a passo mais esta dando erro o que pode ser

    recentes

    populares

    • Lucas Jesus
      2017-11-06T22:00:24  

      Se seguir estritamente como disse o Jaitan dá certo; dá trabalho até corrigir todas as linhas que pede; paciência......muita

  • Jaitan Martini
    2016-07-29T11:44:52  

    Na hora de salvar o arquivo, tem que trocar a codificação de ANSI para UNICODE, e no código, tem de reescrever as aspas duplas, e os hífens. Também na linha 19, após o carácter 10 (contagens começam no 1), tem um espaço desnecessário entre o hífen e o carácter "i". Depois dessas correções, aqui funcionou...

    recentes

    populares

    • Jaitan Martini
      2016-07-29T11:44:52  

      esse aqui deu certoo pra mim

    recentes

    populares

    • Jaitan Martini
      2016-07-29T11:44:52  

      Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789?" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29-i) Mod 6) = 0) And (i-1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function

  • Fabio Santos
    2017-06-25T22:38:29

    Pessoal , tenho uma duvida , testei em alguns equipamentos uns eu consegui o Serial e em alguns apareceram a letra "B" no lugar de todo o código , alguém conseguiria me explicar por que isso aconteceu ??

  • Jeferson Vieira
    2017-06-09T14:04:52

    tem alguma outra maneira? para mim não deu certo.

  • Erenilson Silva
    2017-05-30T13:13:26  

    vlw mano...deu certo aqui no meu legal....!!!...teve um cara q postou nos comentários o código e tal só q ele n botou um sinal de interrogação q n tinha...e eu conferi letra por letra e tbem apertei enter em todas as partes q se dividiam...pq quando colei foi tudo junto e numa só linha....(só estou falando isso pq teve uma glr q fez e n deu certo....pode ter sido isso ou n sei lá...)...mais vlw ao dono do site mim ajudou muito.....

    recentes

    populares

    • Erenilson Silva
      2017-05-30T13:13:26  

      Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function

  • Amanda Lorrane
    2017-03-22T10:47:00

    o cod deu erro ..

  • Nildo Barboza
    2016-12-11T18:46:13  

    ao executar da erro de compilação do microssoft vbsScript

    recentes

    populares

    • Nildo Barboza
      2016-12-11T18:46:13  

      ocorre o mesmo aqui.

    recentes

    populares

    • Nildo Barboza
      2016-12-11T18:46:13  

      corrigi o código acima...

  • Leonardo Ferreira
    2017-03-19T19:28:18

    Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789?" Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput end function

  • Karoline Ruas
    2017-02-07T11:26:36

    ta dando erro de linha 6, caracater inválido, erro de compilação

  • Marcello Rego
    2017-01-29T02:57:09

    muito complicado para o meu gosto .

  • Adilson Santos
    2017-01-23T14:03:10

    Deu certo pra mim e ainda ativei com o serial que aparece.

  • Leandro Malta
    2016-12-05T17:49:31

    Muito bom.. Acabei de entrar na empresa e as licenças ainda estavam nas embalagens do DVD de instalação. Me ajudou muito a identificar onde cada licença está instalada. Parabéns funcionou perfeitamente.

  • Alexis Oliveira
    2016-04-24T13:25:32  

    Utilizei esse código ai, só alterei o endereço do registro adicionando "DefaultProductKey\" antes do "DigitalProductId", depois reescrevi as aspas duplas e alterei também "BCDFGHJKMPQRTVWXY2346789? para "BCDFGHJKMPQRTVWXY2346789?" aí funcionou perfeitamente! obrigado pelo código!

    recentes

    populares

    • Alexis Oliveira
      2016-04-24T13:25:32  

      Qual a diferença de colocar o "DefaultProductKey\" ???? eu testei e o resultado foi diferente...