Lập trình: Dùng VB.Net đọc “serial number” đĩa cứng  
 

(Post 05/11/2010) Chúng tôi đã giới thiệu đến bạn đọc quy trình xây dựng ứng dụng và mã lệnh (code) được viết bằng VB 6.0, cho phép truy xuất thông tin của các ổ đĩa trên máy. Theo yêu cầu của nhiều bạn đọc, bài viết này giới thiệu cách viết code bằng VB .Net 2005 để truy xuất thông tin của các ổ đĩa.

Nói chung, chúng ta có thể dùng hàm API Windows có tên là DeviceIoControl() để truy xuất các thông tin vật lý của ổ đĩa (cứng, USB...) như Model number, Serial number, Firmware revision... Các hằng và kiểu dữ liệu phục vụ cho việc truy xuất thông tin vật lý của ổ đĩa được định nghĩa trong bộ DDK (Device development Kit).

1. Chạy Visual Studio .Net, chọn menu File.New project. Khi cửa sổ "New Project" hiển thị, bạn duyệt tìm mục "Visual Basic" trong cửa sổ "Project types", chọn mục "Windows" con của mục "Visual Basic", chọn icon "Windows Application" rồi chọn button Ok để tạo Project mới theo qui định.

2. Khi cửa sổ hiển thị Form thiết kế trống ban đầu, bạn hãy thiết kế Form gồm 4 đối tượng: 1 label, 1 textbox, 1 button và 1 ListBox như hình dưới đây. Hãy thiết lập thuộc tính (Name) cho textbox là txtDrive, cho button là btnStart, cho ListBox là lstInfo.

3. Nhấn đúp chuột vào button "Xem thong tin" để tạo thủ tục xử lý sự kiện click chuột trên nó. Khi cửa sổ code của Form hiển thị, bạn hiệu chỉnh nội dung đơn giản ban đầu thành đoạn code VB .Net dưới đây:

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices
Public Class Form1
'code cho Form1
'định nghĩa các hằng cần dùng cho hàm CreateFile
Private Const FILE_SHARE_READ As Short = &H1S
Private Const FILE_SHARE_WRITE As Short = &H2S
Private Const GENERIC_READ As Integer = &H80000000
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Short = 3
Private Const CREATE_NEW As Short = 1
'định nghĩa các hằng, các kiểu cần dùng cho hàm DeviceIOControl
'các thông tin này được lấy từ bộ DDK
Private Const DFP_RECEIVE_DRIVE_DATA As Integer = &H7C088
Private Enum HDINFO

HD_MODEL_NUMBER
HD_SERIAL_NUMBER
HD_FIRMWARE_REVISION

End Enum

Private Structure IDEREGS

Dim bFeaturesReg As Byte
Dim bSectorCountReg As Byte
Dim bSectorNumberReg As Byte
Dim bCylLowReg As Byte
Dim bCylHighReg As Byte
Dim bDriveHeadReg As Byte
Dim bCommandReg As Byte
Dim bReserved As Byte

End Structure

Private Structure SENDCMDINPARAMS

Dim cBufferSize As Int32
Dim irDriveRegs As IDEREGS
Dim bDriveNumber As Byte
Dim bReserved1 As Byte
Dim bReserved2 As Byte
Dim bReserved3 As Byte
Dim dwReserved1 As Int32
Dim dwReserved2 As Int32
Dim dwReserved3 As Int32
Dim dwReserved4 As Int32

End Structure

Private Structure DRIVERSTATUS
Dim bDriveError As Byte
Dim bIDEStatus As Byte
Dim bReserved1 As Byte
Dim bReserved2 As Byte
Dim dwReserved1 As Int32
Dim dwReserved2 As Int32

End Structure

'không cần dùng kiểu SENDCMDOUTPARAMS như version VB 6.0
'khai báo các hàm API cần dùng

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Integer, ByVal dwIoControlCode As Integer, ByVal lpInBuffer As IntPtr, ByVal nInBufferSize As Integer, <Out()> ByVal lpOutBuffer As IntPtr, ByVal nOutBufferSize As Integer, ByRef lpBytesReturned As Integer, ByVal lpOverlapped As Integer) As Integer

'định nghĩa các biến cần dùng

Dim bin As New SENDCMDINPARAMS

'định nghĩa hàm GetHDInfo để đọc thöng tin vật lý của disk

Private Function GetHDInfo(ByRef Drive As Byte, ByRef hdi As HDINFO) As String

'định nghĩa các biến cần dùng

Dim hdh As Integer
Dim br As Integer
Dim ix As Integer
Dim hddfr As Integer
Dim hddln As Integer
Dim s As String

Select Case hdi 'kiểm tra mã chức năng

Case HDINFO.HD_MODEL_NUMBER
hddfr = 55 'vị trí đầu của chuỗi ModelNumber
hddln = 40 'độ dài chuỗi ModelNumber

Case HDINFO.HD_SERIAL_NUMBER
hddfr = 21 'vị trí đầu của chuỗi SerialNumber
hddln = 20 'độ dài chuỗi SerialNumber

Case HDINFO.HD_FIRMWARE_REVISION
hddfr = 47 'vị trí đầu của chuỗi FirmwareRevision
hddln = 8 'độ dài chuỗi FirmwareRevision

Case Else

Err.Raise(10001, "Mã chức năng không đúng")

End Select

'tạo file nhận dạng ổ đĩa cần đọc thông tin

hdh = CreateFile("\\.\PhysicalDrive" & Drive, GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)

'kiểm tra việc tạo file

If hdh = 0 Then
Err.Raise(10003, , "Gặp lỗi khi gọi CreateFile")
End If

'thiết lập các thông số input

With bin
.bDriveNumber = Drive
.cBufferSize = 512
With .irDriveRegs
If (Drive And 1) <> 0 Then
.bDriveHeadReg = &HB0S
Else
.bDriveHeadReg = &HA0S
End If
.bCommandReg = &HECS
.bSectorCountReg = 1
.bSectorNumberReg = 1

End With
End With

'gọi hàm DeviceIoControl để đọc thông tin đĩa

Dim pbout As IntPtr = Marshal.AllocHGlobal(528)
Dim pbin As IntPtr = Marshal.AllocHGlobal(Len(bin))
Marshal.StructureToPtr(bin, pbin, False)
DeviceIoControl(hdh, DFP_RECEIVE_DRIVE_DATA, pbin, Len(bin), pbout, 528, br, 0)

'copy kết quả từ bộ nhớ "unmanaged" về bộ nhớ managed

Dim bBuffer(0 To 512) As Byte
For ix = 1 To 512
bBuffer(ix) = Marshal.ReadByte(pbout, ix + 15)
Next

'rút trích thông tin cần truy xuất
s = ""

For ix = hddfr To hddfr + hddln - 1 Step 2
If bBuffer(ix + 1) = 0 Then Exit For
s = s & Chr(bBuffer(ix + 1))

If bBuffer(ix) = 0 Then Exit For
s = s & Chr(bBuffer(ix))

Next ix

GetHDInfo = Trim(s)

'đóng handle disk
CloseHandle(hdh)

End Function

'thủ tục xử lý sự kiện click chuột trên button

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

Dim Drive As Byte
Drive = CByte(txtDrive.Text)
lstInfo.Items.Clear()
lstInfo.Items.Add("Current drive: " & Drive)
lstInfo.Items.Add("")

'đọc và hiển thị các thông tin của đĩa

lstInfo.Items.Add("Model number: " & GetHDInfo(Drive, HDINFO.HD_MODEL_NUMBER))
lstInfo.Items.Add("Serial number: " & GetHDInfo(Drive, HDINFO.HD_SERIAL_NUMBER))
lstInfo.Items.Add("Firmware Revision: " & GetHDInfo(Drive, HDINFO.HD_FIRMWARE_REVISION))

End Sub

End Class

4. Chọn menu Debug.Start Debuging để dịch và chạy chương trình, nếu bạn nhập đúng đoạn code trên thì chương trình sẽ chạy đúng. Bạn thử nhập chỉ số 0 (nhận dạng ổ đĩa cứng đầu tiên) rồi nhấn button "Xem thong tin", thông tin về đĩa đầu tiên sẽ được hiển thị. Nếu bạn có đĩa cứng khác và/hoặc đĩa USB, bạn hãy nhập chỉ số 1, 2... rồi nhấn button "Xem thong tin" để xem thông tin về ổ đĩa tương ứng.

Nguyễn Văn Hiệp
(theo PC World VN)

Tin liên quan:


 
 

 
     
 
Công nghệ khác:


Phím tắt “vượt thời gian”Trung tâm nghiên cứu tối mật của Nokia
Các 'bệnh' thường gặp với màn hình laptopTạo ActiveX và ứng dụng bằng VC++
Xử lý lỗi ‘3146’ trong chương trình VBCảnh giác "công nghệ luộc” linh kiện laptop
  Xem tiếp    
 
Lịch khai giảng của hệ thống
 
Ngày
Giờ
T.Tâm
TP Hồ Chí Minh
Hà Nội
 
   
New ADSE - Nhấn vào để xem chi tiết
Mừng Sinh Nhật Lần Thứ 20 FPT-APTECH
Nhấn vào để xem chi tiết
Bảng Vàng Thành Tích Sinh Viên FPT APTECH - Nhấn vào để xem chi tiết
Cập nhật công nghệ miễn phí cho tất cả cựu sinh viên APTECH toàn quốc
Tiết Thực Vì Cộng Đồng
Hội Thảo CNTT
Những khoảnh khắc không phai của Thầy Trò FPT-APTECH Ngày 20-11