mccad 发表于 2004-1-30 11:28:00

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

FCMhXrJ 发表于 2018-10-18 12:44:48

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

FCMhXrJ 发表于 2018-10-18 12:43:48

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

myfreemind 发表于 2004-1-30 12:24:00

好帖！下载先！：）

Taoyimaier 发表于 2004-1-30 19:41:00

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

莫名 发表于 2004-2-7 12:10:00

好帖!

mikewolf2k 发表于 2004-2-10 19:31:00

太感谢了!!!


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

mikewolf2k 发表于 2004-2-12 19:04:00

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

Theace 发表于 2004-2-17 09:38:00

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


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


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

mikewolf2k 发表于 2004-2-17 23:17:00

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

my_computer 发表于 2004-2-26 14:21:00

Sub DriverSerialNumber()<BR>Dim FileSys As New FileSystemObject<BR>Dim Drivers As Drives, Driver As Drive


For Each Driver In FileSys.Drives<BR>                       If Driver.DriveType = Fixed Then<BR>                                                       Debug.Print Driver.SerialNumber<BR>                       End If<BR>Next<BR>End Sub


以上程序需要加载scrrun.dll<BR>


不知版主的程序和我的程序返回的内容是否相同。


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

my_computer 发表于 2004-2-26 14:22:00

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


抱歉，少了两个字。
页: [1] 2
查看完整版本: 获取硬盘物理序列号的源码