今天夜里两点,还没有入睡,就把取得序列号的代码简单写了一下,没有分别在不同的系统上调试,只在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下载
[系统软件]用RegDllView揪出所有已注册的dll/ocx [系统软件]Windows系统的活动大陆基石 细看DLL文件 [系统软件]Windows的活动大陆:细看DLL文件 [常用软件]利用msdvm.dll实现微软虚拟桌面 [VB.NET程序]使用VB6.0设计ActiveX DLL事件 [VB.NET程序]Crystal Report(水晶报表)的报表封装成VB的DLL [Delphi程序]输出SHELL32.DLL的图标 [Delphi程序]把图标存储在SHELL32.DLL [Delphi程序]DLL 應用 - 設計可抽換的模組 [Delphi程序]用Delphi制作DLL小结
|