閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1

正在阅读：用diskid.dll和disk32.dll获得硬盘序列号用diskid.dll和disk32.dll获得硬盘序列号

2004-02-14 09:34 出处：CSDN 作者：rainstormmaster 责任编辑：linjixiong

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下载

察看评论详细内容我要发表评论