Мобильный LiveInternet КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS

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

Авторизация

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

КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS 28-08-2015 13:43 к комментариям - к полной версии - понравилось!

Это цитата сообщения _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 | Маирмед - Дневник Маирмед | Лента друзей Маирмед / Полная версия Добавить в друзья Страницы: раньше»