Технический форум
Вернуться   Технический форум > Компьютерный форум > Операционная система Windows > Windows 7


Ответ
 
Опции темы Опции просмотра
Старый 07.03.2019, 16:41   #1 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию Ключ активации Windows 7

Здраствуйте!!! У меня может бональный вопрос) Но., все же.. Как узнать ключ активации винды на своем ноутуке?
tsvetkoff вне форума   Ответить с цитированием

Старый 07.03.2019, 16:41
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Это ссылки на аналогичные обсуждения, прочитайте

windows запрашивает ключ для активации
потерял ключ активации от Windows 7 Домашняя базовая
Куда вводить ключ активации для Windows XP ?

Старый 07.03.2019, 16:43   #2 (permalink)
Технарь
Network Аdмin
 
Аватар для Технарь
 
Регистрация: 07.01.2008
Адрес: Грозный
Сообщений: 29,771
Записей в дневнике: 41
Сказал(а) спасибо: 705
Поблагодарили 758 раз(а) в 354 сообщениях
Репутация: 94225
По умолчанию

На наклейке, которая находиться на нижней крышке ноута...
__________________
Я так думаю...
ЦиУгольник! Камилла©
Технарь на форуме   Ответить с цитированием
Старый 07.03.2019, 16:46   #3 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию

В том то и дело.. Там нет( ничего..
tsvetkoff вне форума   Ответить с цитированием
Старый 07.03.2019, 16:46   #4 (permalink)
IronArgument
Специалист
 
Аватар для IronArgument
 
Регистрация: 08.04.2015
Сообщений: 6,733
Сказал(а) спасибо: 75
Поблагодарили 32 раз(а) в 13 сообщениях
Репутация: 37446
По умолчанию

Запускаете программку "Блокнот", копируете туда это:

Код:
Set WshShell = CreateObject("WScript.Shell" )
 regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
 DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId" )

 Win7ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName" ) & vbNewLine
 Win7ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID" ) & vbNewLine
 Win7ProductKey = ConvertToKey(DigitalProductId)
 strProductKey ="Windows 7 Key: " & Win7ProductKey
 Win7ProductID = Win7ProductName & Win7ProductID & strProductKey

 MsgBox(Win7ProductKey)
 MsgBox(Win7ProductID)

 Function ConvertToKey(regKey)
 Const KeyOffset = 52
 isWin7 = (regKey(66) \ 6) And 1
 regKey(66) = (regKey(66) And &HF7) Or ((isWin7 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 (isWin7 = 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
Сохраняете с расширением .vbs, запускаете этот файлик и смотрите.
__________________
Errare humanum est, stultum est in errore perseverare.
IronArgument вне форума   Ответить с цитированием
Старый 07.03.2019, 16:47   #5 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию

Читал, что можно как бы вроде текстовым документом через блокнот с помощью скрипта
tsvetkoff вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 07.03.2019, 16:48   #6 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию

)))) опередили) меня
tsvetkoff вне форума   Ответить с цитированием
Старый 07.03.2019, 16:49   #7 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию

Спасибо! Сейчас попробую!
tsvetkoff вне форума   Ответить с цитированием
Старый 07.03.2019, 16:49   #8 (permalink)
prima
Member
 
Регистрация: 31.08.2015
Сообщений: 14,047
Сказал(а) спасибо: 176
Поблагодарили 140 раз(а) в 61 сообщениях
Репутация: 48833
По умолчанию

https://www.google.ru/search?client=...est&gws_rd=ssl
__________________
Пожалуйста не предлагайте мне дружбу. Не хочу отказывать, но у меня другие понятия, поэтому просто не отвечу.
prima вне форума   Ответить с цитированием
Старый 07.03.2019, 16:58   #9 (permalink)
tsvetkoff
Member
 
Регистрация: 20.09.2013
Сообщений: 37
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 0
По умолчанию

Спасибо большое!!! Все получилось!!!)
tsvetkoff вне форума   Ответить с цитированием
Старый 08.03.2019, 00:53   #10 (permalink)
Smith
Специалист
 
Аватар для Smith
 
Регистрация: 13.08.2007
Сообщений: 3,848
Записей в дневнике: 5
Сказал(а) спасибо: 36
Поблагодарили 15 раз(а) в 7 сообщениях
Репутация: 15065
По умолчанию

только зачем его узнавать? при переустановке винда сама подцепит ключ, он зашит в биос/уефи
Smith вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.