LiveInternet
LiveInternet
x
(+ )
79
79
_79
-
(503)
(62)
(55)
(51)
(39)
(26)
(24)
(22)
(21)
(20)
(14)
-
(11)
(11)
(9)
(7)
(6)
(6)
(4)
(4)
(2)
(308)
(132)
(101)
(92)
(87)
(49)
(43)
(35)
(27)
(26)
(21)
(20)
(18)
(18)
(18)
(14)
(9)
(8)
(8)
(7)
(6)
(6)
(5)
(4)
TV
(4)
(3)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(0)
(0)
(0)
(0)
TV
(0)
(0)
(0)
(0)
(0)
-
(2)
Adriano Celentano - Lunfardia
: 4391
: 0
Chris Rea - Looking For The Summer
: 21771
: 0
-
-
e-mail
-
(20)
Larisa_Meschkat
Lina60
Mazundima
MyIdealistka
Tat_Zu
ander1998
anna2rus
malner
ohatsy
tasc19
wardawild
yulya8187
__
_
58
-
( : 1)
__
-
lj_limonov_eduard
-
: 03.09.2012
:
:
: 3490
:
WINDOWS
, 27 2015 . 18:27
+
_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/5042413/post370386157/"> КАК УЗНАТЬ КЛЮЧ АКТИВАЦИИ WINDOWS</a><br/>Как узнать ключ активации Windows Здравствуйте... Сегодня в комменте мне прислали картинку и спросили, что это такое? Вот эта картинка... Пишут, что файл лицензии Windows был изменен, а вот ключ для повторной активации пользователь не знает. Что в таких ситуациях надо сделать? Если нет уже ни диска, ни документов на Windows. Надо попробовать найти свой ключ на компьютере. Получение ключа Windows из операционной системы. Для начала нужно включить отображение расширений файлов в Windows. Пуск - Панель управления - Параметры папок - Вид. Потом Применить -... <a href="https://www.liveinternet.ru/users/5042413/post370386157/">Читать далее...</a>
« .
—
—
. »
:
[1] [
]
:
:
: ( )
:
URL
LiveInternet
PDA
