用diskid.dll和disk32.dll获得硬盘序列号

用diskid.dll和disk32.dll获得硬盘序列号(2)     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可从ASP?id=1149&no=1">http://www.downez.com/down.asp?id=1149&no=1下载