[VB6] การอ่านค่า Serial Number และคุณสมบัติต่างๆของ Hard Disk Drive ด้วย OCX
http://www.g2gnet.com/webboard/images/vb6/HWInfoProp.pngอันที่จริง ActiveX ตัวนี้ สามารถอ่านค่าคุณสมบัติต่างๆทางด้านฮาร์ดแวร์ได้หลายตัวนะครับ ซึ่งใช้งานได้ง่ายมาก เพียงแค่จับลากมาวาง แล้วเราก็จะเห็นคุณสมบัติต่างๆของอุปกรณ์ได้เลยทันที ...
หลังจากที่ได้ดาวน์โหลดไฟล์ไป อันดับแรกต้อง Copy ไฟล์ HWInfo.OCX ไปเก็บไว้ที่ C:\Windows\System32 (สำหรับ Windows 32 บิต) หรือ C:\Windows\SysWow64 (สำหรับ Windows 64 บิต) กรณี Windows 10 ไม่ต้องทำการ Registry
http://www.g2gnet.com/webboard/images/vb6/HWInfoRegistry.png
หากจำเป็นต้องทำการ Registry ... สั่งรัน
regsvr32 "c:\Windows\System32\HwInfo.ocx" ... 32 Bit.
regsvr32 "c:\Windows\SysWow64\HwInfo.ocx" ... 64 Bit.
http://www.g2gnet.com/webboard/images/vb6/HwInfoBrowse.png
Project --> Components ... ให้ทำการ Browse ...
http://www.g2gnet.com/webboard/images/vb6/HWinfoSyswow64.png
พิมพ์ชื่อไฟล์ HWInfo.ocx แล้วเลือก Open ...
- กรณี 32 บิตให้ไปที่ C:\Windows\System32 ...
- กรณี 64 บิตให้ไปที่ C:\Windows\SysWow64 ...
http://www.g2gnet.com/webboard/images/vb6/HWInfoComponent.png
ก็จะปรากฏเข้าสู่ลิสต์รายการของ Component ...
http://www.g2gnet.com/webboard/images/vb6/HWInfoRun.png
การใส่โค้ดก็แค่เรียกจากคุณสมบัติโดยตรงของ HWInfo ActiveX ไปเลย เช่น ...
Private Sub Form_Load()
With Me.HardWareInfo1
Text1.Text = Trim$(.HardDisk1SerialNumber)
Text2.Text = Trim$(.HardDisk2SerialNumber)
End With
End Sub
ดาวน์โหลดโค้ดต้นฉบับ VB6 และ HWInfo.ocx ได้ที่นี่ ...
ขอบคุณครับผม:loveliness: ขอบคุณครับ
หน้า:
[1]