Étape 1: Regardez la vidéo et copier le Code ci-dessous à votre ordinateur
YouTuBe comment à trouver votre clé de produit Microsoft
Copiez et collez ceci dans un
Le bloc-notes du document et enregistrez-le avec une extension .vbs
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey (WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Fonction ConvertToKey(Key)
Const KeyOffset = 52
J’ai = 28
Chars = « BCDFGHJKMPQRTVWXY2346789 »
Faire
Actu = 0
x = 14
Faire
Actu = Cur * 256
Actu = clé (x + KeyOffset) + actu
Clé (x + KeyOffset) = (ACTU \ 24) et 255
Actu = Cur Mod 24
x = x -1
Boucle tandis que x > = 0
i = i -1
KeyOutput = Mid (Chars, Actu + 1, 1) & KeyOutput
Si (((29-i) Mod 6) = 0) et (j’ai <> -1) puis
i = i -1
KeyOutput = "-" & KeyOutput
End If
En boucle pendant que je > = 0
ConvertToKey = KeyOutput
End Function