自制Windows激活工具-526互联

整体效果大概就是这样吧，，，，

在Lab - Work with Microsoft Office integration - Training | Microsoft Learn中测试，效果还不错。

源代码

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("C:\winact\act.bat", vbHide)
        MessageBox.Show("Windows 激活中……")
        MessageBox.Show("Windows 已激活，尽情使用吧！")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("1.可以放心的安装微软官方原版镜像，而不必担心激活问题。不会因为使用安装第三方提供的系统镜像或者 Ghost 系统而自带后门和流氓推广软件，天然肉鸡。2.不会因为系统升级或者 Windows Defender 升级而被查杀使激活失效。")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class

实现很简单，使用Shell后台运行act.bat，弹出弹窗

act.bat内容