Программное обеспечение

Не могу найти ключ от винды а на корпусе наклейка порвалась Прежние советы не помогли

Султан Балтабеков
Султан Балтабеков
82 622
Лучший ответ
AIDA64 укажет установленный ключ.
Кроме того можно сохранить активацию сторонними программами Advanced Tokens Manager или Microsoft Toolkit
Так-же ключ можно узнать выполнив скрипт VBS
_______________________
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows 8 Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin8 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y >= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j >= 0
If (isWin8 = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
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
End Function
А кошелек потеряешь, куда обращаться будешь ?
Роман *****
Роман *****
50 429
Алексей Шеин
Алексей Шеин
93 227
Соболезную. Ставь пиратку.
Я позвонил в техпомощь виндов с проблемой - есть наклейка, но потерян диск. И они мне сказали - покупай новую копию. Я поставил пиратку )))
Сергей Чернов проще было скачать оригинал диска с торрентов и поставить со своим ключом
Дмитрий Фомин а где скачать пиратку
простая бесплатная прога speccy покажет твой ключ к винде
Alex Tim
Alex Tim
29 664
Винду переустановили уже или ещё нет?
Дмитрий Фомин переустанавливали один раз