Как мога да намеря прозорците на ключ за активиране

Как мога да намеря ключ за активиране на Windows на

Често потребителите са изправени пред необходимостта да преинсталирате лиценза за Windows. Отличителна черта на инсталацията на операционната система, в този случай, е необходимостта да въведете ключ за активация, без които системата ще работи с някои ограничения. Какво да правите, ако ключ за активация е изгубен или стикер на лаптопа е на разстояние от носа? Тази статия описва един лесен начин да разберете как ключ за активация на Windows.

Определяне ключов използване VBScript

Създаване на по всяко удобно място в текстов файл, например на работния плот. Преименувайте го WindowsKey

Задайте WshShell = CreateObject ( "WScript.Shell")
regKey = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion"
DigitalProductId = WshShell.RegRead (regKey "DigitalProductId")
Win8ProductName = "Windows Име на продукта:" WshShell.RegRead (regKey "ProductName") vbNewLine
Win8ProductID = "Windows ID на продукта:" WshShell.RegRead (regKey "ProductID") vbNewLine
Win8ProductKey = ConvertToKey (DigitalProductId)
strProductKey = "Windows 8 Ключ:" Win8ProductKey

Win8ProductID = Win8ProductName Win8ProductID strProductKey
MsgBox (Win8ProductKey)
MsgBox (Win8ProductID)
Функция ConvertToKey (regKey)
Строителство KeyOffset = 52
isWin8 = (regKey (66) \ 6) и 1
regKey (66) = (regKey (66) И HF7) или ((isWin8 И 2) * 4)
J = 24
Символа = "BCDFGHJKMPQRTVWXY2346789"
правя
Cur = 0
у = 14
правя
Cur = Cur * 256
Cur = regKey (Y + KeyOffset) + Cur
regKey (Y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
Y = Y -1
Loop Докато Y> = 0
J = J -1
winKeyOutput = Mid (символа, Cur + 1, 1) winKeyOutput
Последно = Cur
Loop Докато J> = 0
Ако (isWin8 = 1) След
keypart1 = Mid (winKeyOutput, 2, Последно)
поставете = "N"
winKeyOutput = Замяна (winKeyOutput, keypart1, keypart1 вложка, 2, 1, 0)
Ако Last = 0 Тогава winKeyOutput = вложка winKeyOutput
Крайна сметка, ако
а = Mid (winKeyOutput, 1, 5)
б = Mid (winKeyOutput, 6, 5)
с = Mid (winKeyOutput, 11, 5)
г = Mid (winKeyOutput, 16, 5)
д = Mid (winKeyOutput, 21, 5)
ConvertToKey = а "-" б "-" в "-" г "-" д
Крайна Длъжност