frmtest.frm

获取IDE磁盘的型号、序列号

VERSION 5.00
Begin VB.Form frmTest 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "IDE 磁盘序列号读取程序"
   ClientHeight    =   2655
   ClientLeft      =   4470
   ClientTop       =   2865
   ClientWidth     =   4875
   Icon            =   "frmTest.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   4875
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox lstInfo 
      Height          =   1860
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   4695
   End
   Begin VB.CommandButton cmdGo 
      Caption         =   "获取(&G)"
      Height          =   375
      Left            =   3450
      TabIndex        =   2
      Top             =   90
      Width           =   1095
   End
   Begin VB.ComboBox cbDrive 
      Height          =   300
      ItemData        =   "frmTest.frx":058A
      Left            =   1695
      List            =   "frmTest.frx":059A
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   180
      Width           =   1020
   End
   Begin VB.Label lbDrive 
      AutoSize        =   -1  'True
      Caption         =   "IDE 磁盘号："
      Height          =   180
      Left            =   480
      TabIndex        =   1
      Top             =   240
      Width           =   1080
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/04/23
'描  述：IDE 磁盘序列号读取程序
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Dim h As HDSNLib.HDSN

Private Sub cmdGo_Click()

    Dim hT As Long
    Dim uW() As Byte
    Dim dW() As Byte
    Dim pW() As Byte
    
    Set h = New HDSNLib.HDSN
    
    With h
        .CurrentDrive = Val(cbDrive.Text)
        
        lstInfo.Clear
        lstInfo.AddItem "当前磁盘: " & .CurrentDrive
        lstInfo.AddItem ""
        lstInfo.AddItem "产品型号: " & .GetModelNumber
        lstInfo.AddItem "  序列号: " & .GetSerialNumber
        lstInfo.AddItem "固件版本: " & .GetFirmwareRevision
        lstInfo.AddItem ""
        lstInfo.AddItem "版权: " & .Copyright
    End With
    
    Set h = Nothing
    
End Sub

Private Sub Form_Load()

    cbDrive.ListIndex = 0
    Call cmdGo_Click
    
End Sub