win7永久激活密钥有哪些？

win7激活密钥有这些：

1、236TW-X778T-8MV9F-937GT-QVKBB；

2、87VT2-FY2XW-F7K39-W3T8R-XMFGF；

3、TG664-TJ7YK-2VY3K-4YFY6-BCXF4 ；

4、MVG64-RQDVY-KB9RM-MX9WT-MW824 ；

5、TDTY2-6HJ49-46PCK-6HY88-KQXXX ；

6、FKDJ2-RCXKD-TFW4H-2PTGK-MMMH8 ；

7、H67R8-4HCH4-WGVKX-GV888-8D79B ；

8、J4M92-42VH8-M9JWJ-BR7H6-KTFP6 ；

9、76RJX-HDXWD-8BYQJ-GRPPQ-8PP92 ；

10、P3P9R-3DH3Q-KGD38-DWRR4-RF7BC 。

制作win7密钥的步骤：

1、打开你的命令框，步骤是这样的：在开始菜单上点击右键，然后选择命令提示符“管理员”点击打开；

2、复制下面这段代码，Crtl+v到命令框里面，然后回车键即可：

slmgr /ipk VK7JG-NPHTM-C97JM-9MPGT-3V66T

slmgr /skms kms.xspace.in

slmgr /ato

3、按照正常来说，到了这一步你就完成你的win7系统激活步骤了。

这个网上搜的，不是用API，用VB的GetObject直接判断 *** 作系统

Private Sub Form_Load()

Dim strComputer, objWMIService, colItems, objItem, strOSversion As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" &strComputer &"\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objItem In colItems

strOSversion = objItem.Version

Next

Select Case Left(strOSversion, 3)

Case "5.2"

strOSversion = "Windows Server 2003"

Case "5.0"

strOSversion = "Windows 2000"

Case "5.1"

strOSversion = "Windows XP"

Case "6.0"

strOSversion = "windows visita"

Case Else

strOSversion = "i don't know"

End Select

Me.AutoRedraw = True

Me.Cls

Print "你的 *** 作系统是：" &strOSversion

End Sub

---