Пользователей всего:
5 1 2 9 1 5
Пользователей сегодня:
1 7
Выплачено ($):
7`606`015,02
Выплат:
8`115`194
Писем прочитано:
1`024`954`864
Вопрос #61388
Внимание! В разделе вопрос-ответ запрещается:
Мат, оскорбления, флуд, реклама
Сообщения, не являющиеся вопросами/ответами
Нарушение законодательства РФ
Попрошайничество в любой форме
Ответы
Ответов всего: 18
вопрос закрыт
0 [27.04.2014 12:57] #1234010
Прямоугольная наклейка на системнике/ноуте есть? на ней ключ.
0 [27.04.2014 13:56] #1403831
0 [27.04.2014 14:04] svanchez 1102.51 +245
0 [27.04.2014 14:09] Leningrad00 1464.56 +355
0 [27.04.2014 14:21] svanchez 1102.51 +245
#1403831 пишет svanchez пишет Скачал, установил.
Не знаю как у тебя, у меня ключ продукта 25 знаков, да и, если у тебя OEM редакция, то ключ никак не вытянуть из нее, она предустановлена
А если зайти в "мой компьютер", нажать "свойства", там будет снизу "Ключ продукта". Я так думаю, что это именно то)
Ваша программа, кстати, тот же ключ показывает.
Добавлено спустя 43 секунды
Leningrad00 пишет Leningrad00
Получается, что установочный файл для винды можно не сохранять, если можно зайти и скачать с сайта майкрософт?
0 [27.04.2014 14:31] #1403831
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
_____________________________
Попробуй так, создай новый документ и копируй текст выше, измени расширение на vbs И будет ключ у тебя, сейчас попробую...
_____________________
Всё работает, ключ свой увидишь!
0 [27.04.2014 14:35] svanchez 1102.51 +245
#1403831 пишет Там код продукта
Ну да, код продукта.
#1403831 пишет Какая версия ОС, OEM или Ratail, надо глубже копать
Не знаю, даже где это посмотреть. Винда 8 уже была установлена (то есть это не коробочная версия). Я только стандартные настройки после покупки задал.
Добавлено спустя 21 секунду
Leningrad00 пишет А что это? Дистрибутив?
Ага.
Реклама