有没有办法查看正在使用的Windows的激活密钥？

hdc8899

如题。。

kfc0013

1. slmgr.vbs -dlv

复制代码

hatazhao

升级激活的，貌似都是内置的KEY！

AP8716

用这个查看，，，

dsafhello

用aida64，但是要用破解版

swap

路过。看看。。。。。

raymai97

MAK不行，其它的就没问题
如果要查看部分序列号，可以用slmgr.vbs /dlv

raymai97

直接献上VBS代码~
可以用 wscript.exe（直接双击） 或 cscript.exe（命令行界面，方便复制密钥）执行。
再次说一次：这货没法查看 MAK 密钥

1. Set WshShell = CreateObject("WScript.Shell")
   
2. regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
   
3. DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
   
4. 
   
5. WinProductName = "Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
   
6. WinProductID = "Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
   
7. WinProductKey = "Product Key: " & ConvertToKey(DigitalProductId)
   
8. Msg = WinProductName & WinProductID & WinProductKey
   
9. 
   
10. WScript.Echo Msg
    
11. SmartPause
    
12. 
    
13. Function ConvertToKey(regKey)
    
14.     Const KeyOffset = 52
    
15.     isWin8 = (regKey(66) \ 6) And 1
    
16.     regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
    
17.     j = 24
    
18.     Chars = "BCDFGHJKMPQRTVWXY2346789"
    
19.     Do
    
20.         Cur = 0
    
21.         y = 14
    
22.         Do
    
23.             Cur = Cur * 256
    
24.             Cur = regKey(y + KeyOffset) + Cur
    
25.             regKey(y + KeyOffset) = (Cur \ 24)
    
26.             Cur = Cur Mod 24
    
27.             y = y -1
    
28.         Loop While y >= 0
    
29.         j = j -1
    
30.         winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
    
31.         Last = Cur
    
32.     Loop While j >= 0
    
33.     If (isWin8 = 1) Then
    
34.         keypart1 = Mid(winKeyOutput, 2, Last)
    
35.         insert = "N"
    
36.         winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
    
37.         If Last = 0 Then winKeyOutput = insert & winKeyOutput
    
38.     End If
    
39.     a = Mid(winKeyOutput, 1, 5)
    
40.     b = Mid(winKeyOutput, 6, 5)
    
41.     c = Mid(winKeyOutput, 11, 5)
    
42.     d = Mid(winKeyOutput, 16, 5)
    
43.     e = Mid(winKeyOutput, 21, 5)
    
44.     ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
    
45. End Function
    
46. 
    
47. Sub SmartPause
    
48.     If LCase(Right(WScript.FullName,12)) = "\cscript.exe" Then
    
49.         WScript.StdIn.ReadLine
    
50.     End If
    
51. End Sub

复制代码

胡老坎

没必要看了，信息都在微软服务器上的

yyc206

aida64可以

jansenf

AP8716 发表于 2015-8-20 15:27
用这个查看，，，

谢谢。我已经付过一次金币了，丢了又下载，就又要付银币