用diskid.dll和disk32.dll获得硬盘序列号
来源:互联网 发布:苹果平板刷windows 编辑:程序博客网 时间:2024/05/29 18:19
今天夜里两点,还没有入睡,就把取得序列号的代码简单写了一下,没有分别在不同的系统上调试,只在win2000下调试通过,如果有问题的话,请告诉我,我再修改
1.调用diskid.dll实现:
Option Explicit
Private Declare Function IsWinNT Lib "DiskID.DLL" () As Long
Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long
Private Type DRIVER_INFO_OK
ModalNumber(39) As Byte
SerialNumber(19) As Byte
ControlNum(7) As Byte
DriveType As Long
Cylinders As Long
Heads As Long
Sectors As Long
End Type
Private Sub Command1_Click()
Dim x As DRIVER_INFO_OK
Dim i As Long
If IsWinNT = 1 Then
i = ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(x), ByVal 256)
Else
i = ReadPhysicalDrive9X(ByVal 0, ByVal VarPtr(x), ByVal 256)
End If
Dim s As String
s = StrConv(x.ModalNumber, vbUnicode)
s = Left(s, InStr(1, s, Chr(0)) - 1)
MsgBox "硬件厂商代码为:" + s
s = StrConv(x.SerialNumber, vbUnicode)
s = Left(s, InStr(1, s, Chr(0)) - 1)
MsgBox "硬盘序列号为:" + s
End Sub
2.调用diskid32.dll实现:
Option Explicit
Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long
Private Sub Command1_Click()
Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String
If DiskID32(DiskModel(0), DiskID(0)) <> 1 Then
MsgBox "get diskid32 err"
Exit Sub
End If
For i = 0 To 31
If Chr(DiskModel(i)) <> Chr(0) Then
Model = Model & Chr(DiskModel(i))
End If
If Chr(DiskID(i)) <> Chr(0) Then
ID = ID & Chr(DiskID(i))
End If
Next
MsgBox "硬件产生代码为:" + Model
MsgBox "硬盘序列号为:" + ID
End Sub
说明:diskid.dll可从http://www.applevb.com/lib/diskio.rar下载,diskid32.dll可从http://www.downez.com/down.asp?id=1149&no=1下载
- 用diskid.dll和disk32.dll获得硬盘序列号
- 用diskid.dll和disk32.dll获得硬盘序列号
- java调用dll获取硬盘和cpu序列号
- C#使用DISKID32.DLL读取硬盘序列号
- Java获得硬盘和主板的序列号
- Java获得硬盘和主板的序列号
- delphi获取硬盘序列号的dll代码,支持win7
- delphi获取硬盘序列号的dll代码,支持win7
- 硬盘序列号的获得
- C++ 获得硬盘序列号
- 获得硬盘序列号
- 获得硬盘序列号
- ioctl() 获得硬盘序列号
- 通过WMI获得硬盘和CPU的物理序列号
- Java获得硬盘和主板的序列号代码
- Java获得硬盘和主板的序列号代码
- 获得硬盘D盘序列号
- ASP编程获得硬盘序列号
- 着色器和效果——3.0 介绍像素着色器
- 着色器和效果——3.1 多纹理化概览
- 递归:以俄罗斯跳棋为例
- VB嵌入文件的非常规实现
- VB中给listview的item添加多行气泡式Tooltip
- 用diskid.dll和disk32.dll获得硬盘序列号
- 用VB将剪切板中的图片保存为JPG文件
- 关于定时关闭询问对话框的一点体会
- 一个利用随机数加密字串的算法
- 也谈用在ASP.Net中操作IIS
- 用c语言开发的小游戏
- OpenCms文件导入过程初探
- 用Java实现Server-Client结构的聊天系统
- 用.Net构架你的系统(基类的搭建思路)