如何能查看电脑安装密匙？|查看电脑安装密匙的操作办法

如何能查看电脑安装密匙？|查看电脑安装密匙的操作办法?
安装好win7系统，激活是必不可少的，许多人安装系统激活就忘了KEY，到时重装激活时或者备份时找到KEY，这要如何办呢？针对这个问题，接下来，主编就来共享下怎么查看win7系统当前的KEY，安装密匙、版本、产品id。

1.你们做一个脚本程序就可以实现查看了。首先你们在桌面上新建一个文本，建好后打开这个文本。



2.然后将以下这段加粗的代码复制粘贴到文本中。原文复制粘贴即可。

set wshshell = Createobject("wscript.shell")

regKey = "HKLM\soFTwARE\Microsoft\win nT\CurrentVersion\"

digitalproductid = wshshell.RegRead(regKey & "digitalproductid")

winproductname = "win product name: " & wshshell.RegRead(regKey & "productname") & vbnewLine

winproductid = "win product id: " & wshshell.RegRead(regKey & "productid") & vbnewLine

winproductKey = ConvertToKey(digitalproductid)

strproductKey ="win Key: " & winproductKey & vbnewLine & vbnewLine & "- 由百度id：qianyuntea提供"& vbnewLine & vbnewLine & "-----------------------------------------点击确定下一步复制密匙"

winproductid = winproductname & winproductid & strproductKey 

MsgBox(winproductid)

dim ret

ret = inputBox(vbnewLine & "右击密匙，弹出选择复制："& vbnewLine & vbnewLine & "[ 点击确定或取消退出继续]" ,"win7 序列号查看器",winproductKey)

Function ConvertToKey(regKey)

    Const Keyoffset = 52

    iswinxp = (regKey(66) \ 6) And 1

    regKey(66) = (regKey(66) And &HF7) or ((iswinxp 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 (iswinxp = 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



3.然后在文本菜单中，点击文件，弹出点击保存。关掉该窗口



4.然后把这个上扩展名改.VBs格式，原来的是txt文本。这里你们改为序列号查看器.vbs



5.如果没有显示扩展名，需要在资源管理器中的文件夹属性里面，将隐藏扩展名取消，然后再修改为.VBs



6.改好后双击打开这个脚本。你们就可以看到当前系统的版本，产品id，密匙KEY

按提示，点击“确定”继续。



7.然后选中这个KEY，右击复制，然后在需要使用的地方粘贴就可以了。

接下来再点击“确定”该窗口就关上。