7451
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
rainstormmaster 2003-12-23
呵呵，楼上的程序明显不符合要求，注意是取“取硬盘物理序列号”
firechun 2003-12-23
要什么动态链接库？用API就行了
Public 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
Public Function GetVolumeSerial(ByVal Driver As String) As String
'返回指定硬盘的序列号，16进制字符串
'Driver 盘符，格式：c:\ , d:\
Dim lngTmp1 As Long
Dim lngTmp2 As Long
Dim lngSerial As Long
Call GetVolumeInformation(Driver, vbNullString, 0, lngSerial, lngTmp1, lngTmp2, vbNullString, 0)
GetVolumeSerial = Hex(lngSerial)
End Function
Public 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
Public Function GetVolumeSerial(ByVal Driver As String) As String
'返回指定硬盘的序列号，16进制字符串
'Driver 盘符，格式：c:\ , d:\
Dim lngTmp1 As Long
Dim lngTmp2 As Long
Dim lngSerial As Long
Call GetVolumeInformation(Driver, vbNullString, 0, lngSerial, lngTmp1, lngTmp2, vbNullString, 0)
GetVolumeSerial = Hex(lngSerial)
End Function
yoki 2003-12-23
网上随便搜索都一大把，何必让费你的分呢？
www.google.com
www.google.com
a11s 2003-12-23
我又一个，我同学给我做的
邮件已经发送
Private Declare Function GetCurrentHostSeriaNumber Lib "d:\GetHd.dll" () As Long
GetCurrentHostSeriaNumber（）
返回值：DWORD
邮件已经发送
Private Declare Function GetCurrentHostSeriaNumber Lib "d:\GetHd.dll" () As Long
GetCurrentHostSeriaNumber（）
返回值：DWORD
perty 2003-12-23
有没有不要注册的？？？？？？？？？？？？？？
分不是问题
分不是问题
nik_Amis 2003-12-23
有VB/VC的两种源程序，有人在这里发布过，俺实在懒得找了
perty 2003-12-23
http://pay500.com/csoft.php?sid=34651&surl=cGF5NTAwaHR0cDovL3d3dy42NDg4NTg2LmNvbS9kb3dubG9hZC9kaXNraWRvY3gub2N4
我有，要注册的
我有，要注册的
firechun 2003-12-23
嗯，rainstormmaster(rainstormmaster）说得对，没注意
不是所有的硬盘都有物理序列号的。
不是所有的硬盘都有物理序列号的。
fly 2003-12-23
网上基本上都要注册的，故请各路兄弟帮忙
rufujian 2003-12-23
up
rainstormmaster 2003-12-23
这里也有一个：
http://pay500.com/csoft.php?sid=34651&surl=cGF5NTAwaHR0cDovL3d3dy42NDg4NTg2LmNvbS9kb3dubG9hZC9kaXNraWRvY3gub2N4
http://pay500.com/csoft.php?sid=34651&surl=cGF5NTAwaHR0cDovL3d3dy42NDg4NTg2LmNvbS9kb3dubG9hZC9kaXNraWRvY3gub2N4
rainstormmaster 2003-12-23
Lonsoft DiskSerial 是一个32位VB ActiveX 控件,用于获取计算机硬盘的相关物理信息，包括硬盘型号、序列号、修订号、磁盘缓存大小、磁头数、柱面数、每磁道的扇区数等参数。
下载地址：
http://www.soft888.com/cn/SoftDown.asp?ID=7816&lbID=11
下载地址：
http://www.soft888.com/cn/SoftDown.asp?ID=7816&lbID=11
rainstormmaster 2003-12-23
//firechun(天火) 取的是我们通用的“硬盘序列号”，也是我们常用的方法。请指点。
呵呵，firechun(天火) 取得是逻辑序列号，格式化硬盘后会发生改变
关于盘序列号有两种:
硬盘序列号: 英文名 Hard Disk Serial Number, 该号是出厂时生产厂家为
区别产品而设置的, 是唯一的, 是只读的, 利用硬盘序列号的
加密往往是利用其唯一和只读的特性, 大多是针对有序列号的
IDE HDD而言, 对于没有序列号或SCSI HDD硬盘则无能为力,
这也是利用它进行加密的局限性.
卷的序列号: 英文名 Volume Serial Number, 该号既可指软磁盘要得, 如:
A:盘和B:盘的, 又可以指硬盘的逻辑盘, 如: C:, D:...的,
是高级格式化时随机产生的, 是可以修改的, 所以利用其进行
加密, 其唯一性还可, 而其可修改性对于安全而言就大打折扣
了.
呵呵，firechun(天火) 取得是逻辑序列号，格式化硬盘后会发生改变
关于盘序列号有两种:
硬盘序列号: 英文名 Hard Disk Serial Number, 该号是出厂时生产厂家为
区别产品而设置的, 是唯一的, 是只读的, 利用硬盘序列号的
加密往往是利用其唯一和只读的特性, 大多是针对有序列号的
IDE HDD而言, 对于没有序列号或SCSI HDD硬盘则无能为力,
这也是利用它进行加密的局限性.
卷的序列号: 英文名 Volume Serial Number, 该号既可指软磁盘要得, 如:
A:盘和B:盘的, 又可以指硬盘的逻辑盘, 如: C:, D:...的,
是高级格式化时随机产生的, 是可以修改的, 所以利用其进行
加密, 其唯一性还可, 而其可修改性对于安全而言就大打折扣
了.
aoenzh 2003-12-23
up
rainstormmaster 2003-12-23
使用SMARTVSD.VXD取得物理序列号的例子：
http://expert.csdn.net/Expert/topic/2430/2430823.xml?temp=.2169763
http://expert.csdn.net/Expert/topic/2430/2430823.xml?temp=.2169763
xuhaoran 2003-12-23
请问楼主“取硬盘序列号”和“取硬盘物理序列号”有什么区别。firechun(天火) 取的是我们通用的“硬盘序列号”，也是我们常用的方法。请指点。