LiveInternet
LiveInternet
x
(+ )
tysu
tysu
tysu
-
-
e-mail
-
(1)
-
(2)
Beauty_Flora
-
: 30.03.2011
: 716
: 5
: 760
:
WINDOWS
, 28 2015 . 13:49
+
_Lyubasha_K_
!
Windows
...
, ?
...
, Windows , . ? , Windows.
.
Windows .
Windows.
- - - .
- .
...
1. .
2. -
Set WshShell = CreateObject("WScript.Shell")<br /> <br /> regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"<br /> <br /> DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")<br /> <br /> Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine<br /> <br /> Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine<br /> <br /> Win8ProductKey = ConvertToKey(DigitalProductId)<br /> <br /> strProductKey ="Windows 8 Key: " & Win8ProductKey<br /> <br /> Win8ProductID = Win8ProductName & Win8ProductID & strProductKey<br /> <br /> MsgBox(Win8ProductKey)<br /> <br /> MsgBox(Win8ProductID)<br /> <br /> Function ConvertToKey(regKey)<br /> <br /> Const KeyOffset = 52<br /> <br /> isWin8 = (regKey(66) \ 6) And 1<br /> <br /> regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)<br /> <br /> j = 24<br /> <br /> Chars = "BCDFGHJKMPQRTVWXY2346789"<br /> <br /> Do<br /> <br /> Cur = 0<br /> <br /> y = 14<br /> <br /> Do<br /> <br /> Cur = Cur * 256<br /> <br /> Cur = regKey(y + KeyOffset) + Cur<br /> <br /> regKey(y + KeyOffset) = (Cur \ 24)<br /> <br /> Cur = Cur Mod 24<br /> <br /> y = y -1<br /> <br /> Loop While y >= 0<br /> <br /> j = j -1<br /> <br /> winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput<br /> <br /> Last = Cur<br /> <br /> Loop While j >= 0<br /> <br /> If (isWin8 = 1) Then<br /> <br /> keypart1 = Mid(winKeyOutput, 2, Last)<br /> <br /> insert = "N"<br /> <br /> winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)<br /> <br /> If Last = 0 Then winKeyOutput = insert & winKeyOutput<br /> <br /> End If<br /> <br /> a = Mid(winKeyOutput, 1, 5)<br /> <br /> b = Mid(winKeyOutput, 6, 5)<br /> <br /> c = Mid(winKeyOutput, 11, 5)<br /> <br /> d = Mid(winKeyOutput, 16, 5)<br /> <br /> e = Mid(winKeyOutput, 21, 5)<br /> <br /> ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e<br /> <br /> End Function
3. , - .
4. Key.VBS
5.
- ... , .
6. Windows.
...)))
..))
0
0
0
0
0
0
<a href="https://www.liveinternet.ru/users/tysu/post370445477/">КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS</a><br/>Как узнать ключ активации Windows Здравствуйте... Сегодня в комменте мне прислали картинку и спросили, что это такое? Вот эта картинка... Пишут, что файл лицензии Windows был изменен, а вот ключ для повторной активации пользователь не знает. Что в таких ситуациях надо сделать? Если нет уже ни диска, ни документов на Windows. Надо попробовать найти свой ключ на компьютере. Получение ключа Windows из операционной системы. Для начала нужно включить отображение расширений файлов в Windows. Пуск - Панель управления - Параметры папок - Вид. Потом Применить -... <a href="https://www.liveinternet.ru/users/tysu/post370445477/">Читать далее...</a>
« .
—
—
. »
:
[1] [
]
:
:
: ( )
:
URL
LiveInternet
PDA
