Мобильный LiveInternet >Как узнать ключ активации Windows | Николай_Родионов

LiveInternet мобильная версия

Авторизация

Дневник Николай_Родионов Лента друзей - Дневник - Полная версия

>Как узнать ключ активации Windows 27-08-2015 20:27 к комментариям - к полной версии - понравилось!

Это цитата сообщения _Lyubasha_K_ Оригинальное сообщение

Как узнать ключ активации Windows

[показать]
Здравствуйте...

Сегодня в комменте мне прислали картинку и
спросили, что это такое?
Вот эта картинка...

[показать]

Пишут, что файл лицензии Windows был изменен, а вот ключ для повторной активации пользователь не знает. Что в таких ситуациях надо сделать? Если нет уже ни диска, ни документов на Windows.
Надо попробовать найти свой ключ на .

Получение ключа Windows из операционной системы.

Для начала нужно включить отображение расширений файлов в Windows.

Пуск - Панель управления - Параметры папок - Вид.

[показать]

Потом Применить - Ок.

Дальше...

1. Для начала создайте пустой текстовый документ через Блокнот.
2. Откройте его и вставьте в него текст скрипта -

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

3. Сохраните и закройте текстовый документ, Файл - Сохранить.
4. Теперь нажмите на текстовой документ правой кнопкой мыши и переименуйте в Key.VBS
5. Снова откройте текстовой и теперь клик сверху на
Файл - Сохранить как...и выставить, как на скрине ниже.

[показать]

6. При нажатии на сохраненный файл откроется окно с ключом активации Windows.

[показать]

Вот и всё...)))

Пока я писала урок моя пользователь это сделала и всё получилось..))

[показать]

[показать]

урок провела
Любаша К

вверх^ к полной версии понравилось! в evernote

Вы сейчас не можете прокомментировать это сообщение.

Дневник >Как узнать ключ активации Windows | Николай_Родионов - Дневник Николай_Родионовt | Лента друзей Николай_Родионов / Полная версия Добавить в друзья Страницы: раньше»