[VB6] การอ่านค่า Serial Number และคุณสมบัติต่างๆของ Hard Disk Drive ด้วย OCX

thongkorn

อันที่จริง ActiveX ตัวนี้ สามารถอ่านค่าคุณสมบัติต่างๆทางด้านฮาร์ดแวร์ได้หลายตัวนะครับ ซึ่งใช้งานได้ง่ายมาก เพียงแค่จับลากมาวาง แล้วเราก็จะเห็นคุณสมบัติต่างๆของอุปกรณ์ได้เลยทันที ...

หลังจากที่ได้ดาวน์โหลดไฟล์ไป อันดับแรกต้อง Copy ไฟล์ HWInfo.OCX ไปเก็บไว้ที่ C:\Windows\System32 (สำหรับ Windows 32 บิต) หรือ C:\Windows\SysWow64 (สำหรับ Windows 64 บิต) กรณี Windows 10 ไม่ต้องทำการ Registry

หากจำเป็นต้องทำการ Registry ... สั่งรัน
regsvr32 "c:\Windows\System32\HwInfo.ocx" ... 32 Bit.
regsvr32 "c:\Windows\SysWow64\HwInfo.ocx" ... 64 Bit.


Project --> Components ... ให้ทำการ Browse ...


พิมพ์ชื่อไฟล์ HWInfo.ocx แล้วเลือก Open ...
- กรณี 32 บิตให้ไปที่ C:\Windows\System32 ...
- กรณี 64 บิตให้ไปที่ C:\Windows\SysWow64 ...


ก็จะปรากฏเข้าสู่ลิสต์รายการของ Component ...


การใส่โค้ดก็แค่เรียกจากคุณสมบัติโดยตรงของ HWInfo ActiveX ไปเลย เช่น ...

1. Private Sub Form_Load()
   
2.     With Me.HardWareInfo1
   
3.         Text1.Text = Trim$(.HardDisk1SerialNumber)
   
4.         Text2.Text = Trim$(.HardDisk2SerialNumber)
   
5.     End With
   
6. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB6 และ HWInfo.ocx ได้ที่นี่ ...

MrDen

ขอบคุณครับผม

g2gsoftuser

ขอบคุณครับ