КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS

Пятница, 28 Августа 2015 г. 16:54 + в цитатник

Цитата сообщения _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.

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

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

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

Серия сообщений "полезности":
Часть 1 - ПОЛЕЗНЫЕ КОМАНДЫ МОБИЛЬНЫХ ОПЕРАТОРОВ
Часть 2 - КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS
Часть 3 - КОДЫ СОТОВЫХ ОПЕРАТОРОВ РОССИИ
Часть 4 - ЕЩЁ РАЗ ПРО РАДИО НА ЛИРУ
...
Часть 19 - Перекись водорода – это мощный окислитель
Часть 20 - КАК ОТПИСАТЬСЯ ОТ СООБЩЕНИЙ И ЦИТАТ НЕКОТОРЫХ ДРУЗЕЙ?
Часть 21 - НАСТРОЙКА ДНЕВНИКА – ПОЛУЧЕНИЕ НОВОСТНОГО ЛИСТКА

Серия сообщений "для компа":
Часть 1 - КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS
Часть 2 - ДЕЛАЕМ БАННЕР ЗА 5 СЕКУНД
Часть 3 - ОТЛИЧНЫЙ ВИДЕО РЕДАКТОР ДЛЯ ВАШЕГО КОМПЬЮТЕРА
...
Часть 35 - КАК УДОБНЕЕ ВСЕГО ЗАХОДИТЬ НА ЗАБЛОКИРОВАННЫЕ САЙТЫ И ШИФРОВАТЬ СВОЙ ТРАФИК
Часть 36 - УСТАНАВЛИВАЕМ И ИСПОЛЬЗУЕМ TOR BROWSER
Часть 37 - 10 лучших бесплатных антивирусов