跳转到内容


格式化全新安装并免费永久激活 Windows 10 的方法教程

Windows 激活

  • 您无法回复此主题
No replies to this topic

#1 冰力

    Administrator

  • 总版主
  • 1280 帖子数:

发表于 2016/05/28 17:41:28

微软已经宣布所有已在激活状态的系统在主要硬件(不包括硬盘)不变的前提下重新安装的系统联网后会自动激活的。如果重装过程变更了主要硬件才可能需要重新填写序列号激活。但是很多朋友反映,即使硬件没有改动,全新安装后也无法联网激活。如果碰到这种情况,下面的教程可以帮助你解决这个问题。
• 格式化全新安装并免费永久激活 Windows 10 的方法教程
  • 在电脑上安装 Win7 或 Win8,并用各种方法激活好(网上的激活工具有很多)。
  • 通过微软推送或者自己下载 Windows 10 官方正式版镜像,升级 Windows 10 ,升级完成后的系统此时应该为激活状态。
  • 通过 Windows 10 序列号 Key 查看脚本找到你电脑上的 Win10 序列号
  • 制作一个 Windows 10 的安装 U盘。
  • 根据你自己的需求,对电脑进行格式化或者重新分区,使用 U 盘全新安装 Win10。
  • 在安装过程中,输入你之前第3步中获得的 Win 10 序列号 Key。
  • 一路安装好之后,你的全新的系统在联网后将会自动永久激活。
• 建议

虽然微软已经宣布所有已在激活状态的系统在主要硬件(不包括硬盘)不变的前提下重新安装的系统联网后会自动激活的,但部分用户在升级过 Win10 后,同一台电脑在全新安装过程中,在没输入序列号的情况下依然提示未激活的。因为,我们强烈建议在首次升级 Win10 成功后,请使用 Windows10 序列号查看器获取并记录下你的序列号,并使用序列号进行全新安装,免得后面做的都是无用功。

Windows 10 序列号 Key 查看工具.vbs
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")

WinProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
WinProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
WinProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & WinProductKey & vbNewLine & vbNewLine & "-  IT技术论坛"& vbNewLine & "-  www.itbbs.cn"
WinProductID = WinProductName & WinProductID & strProductKey

MsgBox(WinProductID)
Dim ret
ret = InputBox(vbNewLine & "你可在下面自行复制序列号:"& vbNewLine & vbNewLine & "[ 点击确定或取消退出本程序 ]" ,"Win10 序列号查看器 - IT技术论坛",WinProductKey)

Function ConvertToKey(regKey)
    Const KeyOffset = 52
    isWin8 = (regKey(66) \ 6) And 1
    regKey(66) = (regKey(66) And &HF7) Or ((isWin8 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 (isWin8 = 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