Cum se găsește cheia de activare Windows
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
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.
Modificați extensia de fișier în .vbs
Faceți dublu clic pe fișierul WindowsKey.vbs. va apărea o fereastră cu cheia de activare
Faceți clic pe OK. va apărea o altă fereastră cu mai multe detalii.
De asemenea, puteți descărca arhiva zip cu fișierul WindowsKey.vbs
Articole similare
Trimiteți-le prietenilor: