机器码怎么获取安全(EXCEL读取机器码)

一、机器码怎么获取安全

要想安全获取机器码，首先需要在用户安装多可系统的服务器上进行。第一，点击桌面上的服务器管理工具，将其打开；第二，点击菜单栏上的“注册”按键，会弹出“注册信息”窗口，这时候是免费版的注册信息（或者是之前用加密狗注册时的信息）；第三，不用干啥，直接按“修改注册信息”按键就可以了；第四，注册方式选择“验证码加密”，然后按“下一步”；最后，弹出注册信息窗口。这里的序列号（数字字母组合）就是我们常说的“机器码”了，这种方式获取的机器码是安全的。

二、EXCEL读取机器码

'先声明：
Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Dim GetVal As Long
'以下是代码：
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long

'读取是否注册的信息，如何控制这里不再说明

Call GetVolumeInformation("C:", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
Text1.Text = GetVal '提取本机C盘的序列号至文本框一