vb 获取机器码

来源：百度知道 编辑：UC知道 时间：2024/05/24 02:07:34
怎么获取机器码啊，在TEXT里显示
我没有分了啊，你发到我邮箱505335849@qq.com

我可以获取硬盘物理序列号，用作加密用的，不过代码过长可能贴不出。

.....50分似乎少了点吧！:-)))

=======================================================

已发到您的邮箱，请查收....

收到后给我发消息确认。

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
text1.text = Name

机器码 是统称 比较广泛

有硬盘 序列号 与 CPU 序列号等

去电脑城话几十块钱买个万能硬件解码区码机