Форум программистов, компьютерный форум, киберфорум
Windows 8, 8.1
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 02.04.2015
Сообщений: 46
1

Ошибка активации Windows

20.09.2015, 18:11. Показов 1059. Ответов 1
Метки нет (Все метки)

Недавно выскочила такая проблема:
Ошибка активации Windows

Активировать через интернет не получается.
[Удалено]
Ввожу этот ключ [Удалено]
[Удалено]

И ничего не выходит. Хотя этот ключ я узнал отсюда:
[Удалено]

Т.е. Создал файл get_windows_8_key.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
Вопрос: Как быть?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2015, 18:11
Ответы с готовыми решениями:

Активации OEM Windows
Столкнулся с такой проблемой, заменил материнскую плату, однако систему не сносил, теперь при...

Экран активации Windows 8
Система не активирована, и когда играет видео на весь экран в Медиаплеере, то выходит такой вот...

Ключ активации windows 8 на ноутбуках
Доброго времени суток. Купил ноут Lenovo IdeaPad z510, как и у большинства ноутов сейчас на нём не...

Перенос активации Windows 8 c «мертвого» ноутбука
Здравствуйте, уважаемый КиберФорум! У меня есть ноутбук с мертвым чипсетом. На нем была...

1
1145 / 953 / 76
Регистрация: 11.10.2010
Сообщений: 6,031
22.09.2015, 05:20 2
Почему не удается активировать Windows? у вас что-то было из статьи?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2015, 05:20

Можно ли вытащить код активации Windows из реестра?
Друзья, добрый вечер, Проблема в том, что я не могу переустановить "виндовс" посредством...

Висит Windows 8.1 при активации кода продукта
кто-нибудь объяснит мне,как решить проблему?дело в том что после после переустановки Windows 8.1...

Могут ли меняться со временем ключи активации Windows 8.1 ?
Я нашел видео урок на Youtube установки Windows 8.1 с ссылкой на скачивание ОС и ключом активации...

Бывают ли косяки при повторной активации Windows 8.1?
Бывают ли проблемы при повторной активации Windows 8.1? К примеру вы купили лицензионный Windows...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru