Переустановка виндоус код активации
Хочу переустановить виндоус но ноутбук я покупал уже с виндой. В вкладке о програме написан код продукта. Если его написать при октивации он сработает или нет?
Сработает, хотя если ты будешь имменно переустанавливать то он сам активируется
Ключ обычно уже привязывается к железу. Ставить надо ту-же версию Windows, которая была предустановлена. И если не активируется, только тогда вводите ключ.
Винда 10? На брюхе ноута есть голографическая наклейка с логотипом форточек? Если да, то просто делаешь на https://www.microsoft.com/.../windows10 флэшку, грузишься с неё и ставишь. Нужная редакция сама выберется и ключ подхватится из биоса.
если наклейки нет, то смотришь Параметры - Обновление и безопасность - Активация. Если там "активирована цифровой лицензией", то смотришь текущую редакцию (Параметры - Система - О системе) и ставишь такую же (https://www.microsoft.com/ru-ru/software-download/windows10, загрузиться с флэшки, "у меня нет ключа" - выбрать нужную редакцию). Если всё правильно сделал, активируется автоматом через интернет.
Создай файл .vbs следующего содержания
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win10ProductName = "Version Windows 10: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win10ProductID = "Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win10ProductKey = ConvertToKey(DigitalProductId)
ProductKeyLabel ="Key Windows 10: " & Win10ProductKey
Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel
MsgBox(Win10ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin10 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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
С 7 простым методом не прокатит - можно - как не скажу - потрахайтесь и мозгами пошевелите
Нужен не код, а ключ продукта
- Подскажите код активации Windows 7 хотел обновить винду с седьмой до десятой а там код активации нужен Подскажите пожалуйста код активации Windows 7 хотел обновить винду с седьмой до десятой а там код активации нужен
- Подскажите код активации драйверов на windows 7 64x только цифры ввожу мой код пишет устарел Подскажите пожалуйста код активации драйверов на windows 7 64x только цифры ввожу мой код пишет устарел
- Помогите пост код АА на хуанане х79, что это за код, что обозначает? Все работает, винда 10 Помогите пожалуйста, пост код АА на хуанане х79, что это за код, что обозначает? Все работает, винда 10
- Код для minecraft windows 10 edition Дайте код от MINECRAFT WINDOWS 10 EDITIOM, мне не дают денег Код для minecraft windows 10 edition Дайте пожалуйста код от MINECRAFT WINDOWS 10 EDITIOM, мне не дают денег