[VB.NET] โค้ดการอ่านค่าอุณหภูมิของ CPU Package ด้วยของฟรีจาก LibreHardwareMonitor

thongkorn

การ Add References ... และต้องใช้ .NET Framework 4.7.2 ขึ้นไป ...

โค้ด VB.NET (2017) ในการอ่านค่าอุณหภูมิของ CPU Package ด้วยของฟรีจาก LibreHardwareMonitor โดยโค้ดตัวอย่างนี้จะใช้เวอร์ชั่น 0.9.3 ซึ่งจะต้องใช้ .Net Framework 4.7.2 ขึ้นไปนะครับ เจ้าตัว LibreHardwareMonitor จะสามารถมอนิเตอร์อุณหภูมิจากเซนเซอร์บนตัวเมนบอร์ด ความเร็วพัดลม ระดับแรงดัน หรือความเร็วบัสได้เหมือนกันกับ OpenHardwareMonitor ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. '// LibreHardwareMonitor:
   
2. '// Monitor the temperature sensors, fan speeds, voltages, load and clock speeds of your computer.
   
3. 
   
4. Imports LibreHardwareMonitor.Hardware
   
5. Public Class frmLibreHardware
   
6.     Private WithEvents computer As New Computer
   
7. 
   
8.     '// S T A R T ... H E R E
   
9.     Private Sub frmLibreHardware_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
10.         lblCpuName.Text = ""
    
11.         For i As Byte = 1 To 60
    
12.             cmbRefresh.Items.Add(i)
    
13.         Next
    
14.         With cmbRefresh
    
15.             .SelectedIndex = 2  '// Refresh every 3 sec.
    
16.             .ItemHeight = 10
    
17.             .IntegralHeight = False
    
18.         End With
    
19.         '// Enable Timer.
    
20.         Timer1.Interval = CByte(cmbRefresh.Text) * 1000
    
21.         Timer1.Enabled = True
    
22.     End Sub
    
23. 
    
24.     '// Initialized ListView Control.
    
25.     Sub InitListView()
    
26.         With lvwData
    
27.             .Clear()
    
28.             .View = View.Details
    
29.             .GridLines = True
    
30.             .FullRowSelect = True
    
31.             .HideSelection = False
    
32.             .MultiSelect = False
    
33.             '// 1st Column Index = 0
    
34.             .Columns.Add("Sensor Name", lvwData.Width \ 2)
    
35.             .Columns.Add("Value", lvwData.Width \ 2 - 100)
    
36.         End With
    
37.     End Sub
    
38. 
    
39.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    
40.         Call InitListView()
    
41.         computer.IsCpuEnabled = True '// เปิดการตรวจสอบ CPU
    
42.         computer.Open()
    
43.         For Each hardwareItem As IHardware In computer.Hardware
    
44.             '// ตรวจสอบเฉพาะ CPU
    
45.             If hardwareItem.HardwareType = HardwareType.Cpu Then
    
46.                 hardwareItem.Update()
    
47.                 For Each sensor As ISensor In hardwareItem.Sensors
    
48.                     If sensor.SensorType = SensorType.Temperature AndAlso sensor.Name.Contains("CPU Package") Then
    
49.                         pgbTemp.Value = sensor.Value
    
50.                         lblCpuName.Text = sensor.Name & ": " & sensor.Value & " °C."
    
51.                     End If
    
52.                     Dim LV As ListViewItem
    
53.                     LV = lvwData.Items.Add(sensor.Name)  '// Primary Node
    
54.                     LV.SubItems.Add(sensor.Value)
    
55.                 Next
    
56.             End If
    
57.         Next
    
58.         computer.Close()
    
59.         computer.IsCpuEnabled = False
    
60.     End Sub
    
61. 
    
62.     Private Sub cmbRefresh_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRefresh.SelectedIndexChanged
    
63.         '// 1000 Millisecond = 1 Second.
    
64.         Timer1.Interval = CByte(cmbRefresh.Text) * 1000
    
65.     End Sub
    
66. 
    
67.     Private Sub frmLibreHardware_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    
68.         Me.Dispose()
    
69.         GC.SuppressFinalize(Me)
    
70.         Application.Exit()
    
71.     End Sub
    
72. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2017) ได้ที่นี่ ...