Hur du hittar din Microsoft-produkt nyckel (1 / 1 steg)
Steg 1: Titta på Video och kopiera koden nedan till er dator
YouTuBe hur att hitta din Mikroskop produktnyckel
Kopiera och klistra in i en
Notepad erbjudandehandling och spara den med filnamnstillägget .vbs
Sätta WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey (WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Funktion ConvertToKey(Key)
CONST KeyOffset = 52
Jag = 28
Tecken = "BCDFGHJKMPQRTVWXY2346789"
Göra
Cur = 0
x = 14
Göra
Cur = Cur * 256
Cur = nyckel (x + KeyOffset) + Cur
Nyckel (x + KeyOffset) = (Cur \ 24) och 255
Cur = Cur Mod 24
x = x -1
Loop medan x > = 0
jag = jag -1
KeyOutput = Mid (tecken, Cur + 1, 1) & KeyOutput
Om (((29-i) Mod 6) = 0) och (jag <> -1) sedan
jag = jag -1
KeyOutput = "-" & KeyOutput
Slut om
Loop medan jag > = 0
ConvertToKey = KeyOutput
Slutet funktion