获取硬盘物理序列号的源码

mccad

FCMhXrJ

我都不会使用呢，你那个源码要弄成什么后缀名呀？

FCMhXrJ

大神，你那个源码是在哪里使用的呀？后缀名什么呀？

myfreemind

好帖！下载先！：）

Taoyimaier

是不是还有这个办法的？
好像有一个什么组件的叫streamscript（记得翻译过来是文本流的意思，可能不太准确，vb引用里很容易发现这个组件），这个库里就有直接获取硬盘信息的方法（改硬盘有多大，有多少剩余空间，什么文件系统，硬盘序列号等等），以及相关属性，这个组件可以用vlisp引用，这样的话，就不用写这么长的代码了，

莫名

好帖!

mikewolf2k

太感谢了!!!


不过~~不好意思~~能不能再指点一下~~到底怎么用~~还没看懂~~

mikewolf2k

将代码用vb5编译成exe文件，自己的win2000、prim ide0下通过,得到的序列号为12为数字。但其它98机器（未装vb，单硬盘）均不能通过，无返回值，是不是hdid9x函数有问题?
请问有什么办法解决。还有我的返回值其实是一个20位的字符串，其中前12位是数字（硬盘物理序列号），后面8位为空格。能不能只获取有效的序列号（查找空格字符后删除）？在多硬盘情况下是否能运行及如何获得第一个硬盘的序列号。老大编程时是否考虑过这些情况，望能进一步完善代码，获得更好的兼容性。谢谢谢谢谢谢！！！可惜我水平实在太菜，这方面一点忙也帮不上～。

Theace

我下载试用了一下。我的是XP系统，使用未出现错误提示。


但函数返回值不是注释中说的""值，而是类似"//./Drive0                                                 "的样子。序列号则返回


6BQ02P31                         请问这样的序列号是否正常？请版主指点一下。

mikewolf2k

楼上,你的应该是正确的,据我的试用,nt系统的能用,98系统的不能用,可能hdid9x函数有问题.

my_computer

Sub DriverSerialNumber()
Dim FileSys As New FileSystemObject
Dim Drivers As Drives, Driver As Drive For Each Driver In FileSys.Drives
If Driver.DriveType = Fixed Then
Debug.Print Driver.SerialNumber
End If
Next
End Sub 以上程序需要加载scrrun.dll
不知版主的程序和我的程序返回的内容是否相同。 警告：你最好不要使用以上的方式返回的硬盘号，因为如果别人使用硬盘镜像的话，号码会相同的。（同型号同大小的硬盘）

my_computer

警告：你最好不要使用以上的方式返回的硬盘号加密，因为如果别人使用硬盘镜像的话，号码会相同的。（同型号同大小的硬盘）


抱歉，少了两个字。