Cum se găsește cheia de activare pentru ferestre

Cum se găsește cheia de activare Windows

Cum se găsește cheia de activare pentru ferestre

Deseori, utilizatorii se confruntă cu necesitatea de a reinstala licența pentru Windows. O caracteristică a instalării sistemului de operare, în acest caz, este necesitatea de a introduce cheia de activare, fără de care sistemul va funcționa cu unele restricții. Ce ar trebui să fac dacă se pierde cheia de activare sau se pierde autocolantul de pe laptop? Acest articol descrie o modalitate simplă de a afla cum cheia de activare pentru Windows.

Definirea unei chei cu VBScript

Creați un fișier text în orice loc convenabil, de exemplu pe desktop. Redenumiți-o în WindowsKey

Cum se găsește cheia de activare pentru ferestre

Setați WshShell = CreateObject ("WScript.Shell")
regKey = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion"
DigitalProductId = WshShell.RegRead (regKey "DigitalProductID")
Win8ProductName = "Nume produs Windows:" WshShell.RegRead (regKey "ProductName") vbNewLine
Win8ProductID = "Windows Product ID:" WshShell.RegRead (regKey "ProductID") vbNewLine
Win8ProductKey = ConvertToKey (DigitalProductId)
strProductKey = "Tasta Windows 8:" Win8ProductKey
Win8ProductID = Win8ProductName Win8ProductID strProductKey
MsgBox (Win8ProductKey)
MsgBox (Win8ProductID)
Funcția ConvertToKey (regKey)
Const KeyOffset = 52
isWin8 = (regKey (66) \ 6) Și 1
regKey (66) = (regKey (66) și HF7) Sau ((isWin8 și 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
face
Cur = 0
y = 14
face
Cur = Cur * 256
Cur = regKey (y + KeyOffset) + Cur
regKey (y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y-1
Buclă În timp ce y> = 0
j = j-1
winKeyOutput = Mid (Chars, Cur + 1, 1) winKeyOutput
Ultima = Cur
Bucle În timp ce j> = 0
Dacă (isWin8 = 1) Apoi
keypart1 = Mid (winKeyOutput, 2, Last)
inserați = "N"
winKeyOutput = Înlocuiți (winKeyOutput, keypart1, keypart1 inserați, 2, 1, 0)
Dacă Last = 0 Atunci winKeyOutput = inserați winKeyOutput
Sfârșit Dacă
a = Mid (winKeyOutput, 1, 5)
b = Mid (winKeyOutput, 6, 5)
c = Mid (winKeyOutput, 11, 5)
d = Mid (winKeyOutput, 16, 5)
e = Mid (winKeyOutput, 21, 5)
ConvertToKey = a "-" b "-" c "-" d "-" e
Terminați funcția

Apăsați Ctrl + S pentru a salva fișierul.

Cum se găsește cheia de activare pentru ferestre

Modificați extensia de fișier în .vbs

Cum se găsește cheia de activare pentru ferestre

Faceți dublu clic pe fișierul WindowsKey.vbs. va apărea o fereastră cu cheia de activare

Cum se găsește cheia de activare pentru ferestre

Faceți clic pe OK. va apărea o altă fereastră cu mai multe detalii.

Cum se găsește cheia de activare pentru ferestre

De asemenea, puteți descărca arhiva zip cu fișierul WindowsKey.vbs

Articole similare