下载并安装"雁留声名录系统",然后你就可以得到第一个硬盘的序列号了! Private Declare Function GetDiskSN Lib "GetDiskSN.dll" (ByVal lpszSN As String) As Double Dim s As String s = String(1024, Chr(0)) GetDiskSN (s) s = Trim(Replace(s, Chr(0), "")) msgbox s 免费!
通过WINMGMT可以找到客户机器的多数信息。
to y1g1y1: lpszSN 这个参数代表什么意思?返回的“msgbox s“ 显示的是什么?我的硬盘物理序列号?
To y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆) : 这个方法十分有效,取出的是硬盘的真正物理序列号(格式化后也没有改变),我想知道这个API有使用时间限制吗? 我认为我们程序员就应该资源共享,这是最起码的行业道德,对那些自以为知道些小技巧小巧门的就乱开价要钱的人,丧失了作一个程序员的基本人性。
http://ygyuan.3322.net/
下载并安装"雁留声名录系统",然后你就可以得到第一个硬盘的序列号了!
Private Declare Function GetDiskSN Lib "GetDiskSN.dll" (ByVal lpszSN As String) As Double
Dim s As String
s = String(1024, Chr(0))
GetDiskSN (s)
s = Trim(Replace(s, Chr(0), ""))
msgbox s
免费!
lpszSN 这个参数代表什么意思?返回的“msgbox s“ 显示的是什么?我的硬盘物理序列号?
这个方法十分有效,取出的是硬盘的真正物理序列号(格式化后也没有改变),我想知道这个API有使用时间限制吗?
我认为我们程序员就应该资源共享,这是最起码的行业道德,对那些自以为知道些小技巧小巧门的就乱开价要钱的人,丧失了作一个程序员的基本人性。