Como descobrir a chave de ativação do Windows 7
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.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.
 |
| Descubra a chave de registro do Windows 7 sem instalar nenhum programa (Foto: Divulgação/Microsoft) |
| 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 |
 |
| Salve o arquivo do bloco de notas. |
 |
| Escolha um nome e use a extensão .vbs. |
 |
| Após completar o passo a passo, aparece uma caixa com a chave de ativação do Windows 7. |
10 comentários
Write comentáriosnao deu certo no meu
Replyno meu não deu certo
ReplyNão deu certo
Replypessoal verificar que o codigo quando copiado do site esta com caracteres alterados. Segue abaixo corrigido.
ReplySet 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
não funcionou
ReplyNão funcionou. :(
ReplyÉ essa dica realmente funcionou e funciona...deu certo!!!!
ReplySó funciona com versões originais
ReplyO problema está nas aspas do código postado pelo autor. O código do internauta Euler Cabral funciona. É só seguir à risca as instruções do blog, mas digite novamente todas as aspas duplas do código que vai dar certo.
ReplyFuncionou com a dica do colega Euler Cabral, Obrigada!!
Reply