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

Четверг, 27 Августа 2015 г. 17:06 + в цитатник

Цитата сообщения _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 - Как работать в программе Skype
...
Часть 29 - Удаляем ненужный пункт из контекстного меню
Часть 30 - iStarfSurf - удаляем без сожаления
Часть 31 - Как узнать ключ активации Windows
Часть 32 - Как изменить IP-адрес в браузере
Часть 33 - У кого не работает кнопка "Нравится"
...
Часть 35 - Как в Мозилле взять логины и пароли и перенести в другой браузер
Часть 36 - Как включить плагин Adobe Flash Player в браузерах
Часть 37 - Завис компьютер. Что делать? Решение.

Метки: уроки компьютер

<a href="https://www.liveinternet.ru/users/4154164/post370381083/">РљР°Рє СѓР·РЅР°С‚СЊ РєР»СЋС‡ Р°РєС‚РёРІР°С†РёРё Windows</a> РљР°Рє СѓР·РЅР°С‚СЊ РєР»СЋС‡ Р°РєС‚РёРІР°С†РёРё Windows

Р—РґСЂР°РІСЃС‚РІСѓР№С‚Рµ...

РЎРµРіРѕРґРЅСЏ РІ РєРѕРјРјРµРЅС‚Рµ РјРЅРµ РїСЂРёСЃР»Р°Р»Рё РєР°СЂС‚РёРЅРєСѓ Рё
СЃРїСЂРѕСЃРёР»Рё, С‡С‚Рѕ СЌС‚Рѕ С‚Р°РєРѕРµ?
Р’РѕС‚ СЌС‚Р° РєР°СЂС‚РёРЅРєР°...

РџРёС€СѓС‚, С‡С‚Рѕ С„Р°Р№Р» Р»РёС†РµРЅР·РёРё Windows Р±С‹Р» РёР·РјРµРЅРµРЅ, Р° РІРѕС‚ РєР»СЋС‡ РґР»СЏ РїРѕРІС‚РѕСЂРЅРѕР№ Р°РєС‚РёРІР°С†РёРё РїРѕР»СЊР·РѕРІР°С‚РµР»СЊ РЅРµ Р·РЅР°РµС‚. Р§С‚Рѕ РІ С‚Р°РєРёС… СЃРёС‚СѓР°С†РёСЏС… РЅР°РґРѕ СЃРґРµР»Р°С‚СЊ? Р•СЃР»Рё РЅРµС‚ СѓР¶Рµ РЅРё РґРёСЃРєР°, РЅРё РґРѕРєСѓРјРµРЅС‚РѕРІ РЅР° Windows.
РќР°РґРѕ РїРѕРїСЂРѕР±РѕРІР°С‚СЊ РЅР°Р№С‚Рё СЃРІРѕР№ РєР»СЋС‡ РЅР° РєРѕРјРїСЊСЋС‚РµСЂРµ.

РџРѕР»СѓС‡РµРЅРёРµ РєР»СЋС‡Р° Windows РёР· РѕРїРµСЂР°С†РёРѕРЅРЅРѕР№ СЃРёСЃС‚РµРјС‹.

Р”Р»СЏ РЅР°С‡Р°Р»Р° РЅСѓР¶РЅРѕ РІРєР»СЋС‡РёС‚СЊ РѕС‚РѕР±СЂР°Р¶РµРЅРёРµ СЂР°СЃС€РёСЂРµРЅРёР№ С„Р°Р№Р»РѕРІ РІ Windows.

РџСѓСЃРє - РџР°РЅРµР»СЊ СѓРїСЂР°РІР»РµРЅРёСЏ - РџР°СЂР°РјРµС‚СЂС‹ РїР°РїРѕРє - Р’РёРґ.

РџРѕС‚РѕРј РџСЂРёРјРµРЅРёС‚СЊ -... <a href="https://www.liveinternet.ru/users/4154164/post370381083/">Р§РёС‚Р°С‚СЊ РґР°Р»РµРµ...</a>

Комментировать

« Пред. запись — К дневнику — След. запись »

Страницы: [1] [Новые]

LiveInternetLiveInternet

-Цитатник

-Метки

-Рубрики

-Ссылки

-Приложения

-Музыка

-Поиск по дневнику

-Подписка по e-mail

-Интересы

-Друзья

-Постоянные читатели

-Сообщества

-Статистика

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