Stap 1: Bekijk de Video en kopieer de Code hieronder naar je Computer
YouTuBe hoe vinden uw Microsoft Product Key
Kopieer en plak dit in een
Kladblok-document en sla het op met de extensie .vbs
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey (WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Functie ConvertToKey(Key)
Const KeyOffset = 52
Ik = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Doen
Cur = 0
x = 14
Doen
Cur = Cur * 256
Cur = sleutel (x + KeyOffset) + Cur
Sleutel (x + KeyOffset) = (Cur \ 24) en 255
Cur = Cur Mod 24
x = x -1
Lus terwijl x > = 0
Ik = i -1
KeyOutput = Mid (tekens, Cur + 1, 1) & KeyOutput
Als (((29-i) Mod 6) = 0) en (ik <> -1) dan
Ik = i -1
KeyOutput = "-" & KeyOutput
End If
Lus terwijl ik > = 0
ConvertToKey = KeyOutput
End Function