Aktiviranje win 7
- Ustvarjalec teme alpine
- Začetni datum
Zakaj bi pa dokazaoval kje ga je dobil. Kako, pa bo sedaj dokazoval?Saj pa ima nalepko na računalniku.
Ni problema če gre za pravi ms iso (se vidi po sha1 hashu).
slednje najdeš jih tu: https://msdn.microsoft.com/en-us/subscriptions/downloads
slednje najdeš jih tu: https://msdn.microsoft.com/en-us/subscriptions/downloads
Si bom sposodil temo, imam naslednji problem, na leto dni starem HP imam nameščen WIN 8.1
Ko vpišem geslo me potem prijavlja v nedogled, krogec se suče in ne gre naprej.
Prosim za pomoč, hvala.
Ko vpišem geslo me potem prijavlja v nedogled, krogec se suče in ne gre naprej.
Prosim za pomoč, hvala.
Zanimivo... Instaliral sem Win8 iz originalnih instalacijskih diskov, pa me ta zadeva ne vpraša za nikakršni "activating key" ali kaj podobnega. Kako je to mogoče?
Če pa bo kdo iskal win - key, pa lahko stori s tem tako, da shrani kot *.vbs.
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
Če pa bo kdo iskal win - key, pa lahko stori s tem tako, da shrani kot *.vbs.
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
Podobne teme
