[VB.NET] โค้ดการอ่านค่าอุณหภูมิของ CPU แบบเรียลไทม์ด้วยการใช้ OpenHardwareMonitorLib

thongkorn

ช่วงนี้อากาศร้อนมาก แอดมินก็เลยกระสันต์อยากจะรู้ว่าอุณภูมิของ CPU ในเครื่องแอดมินมันจะร้อนสักกี่องศาเซลเซียสกันแน่ อันที่จริงเราสามารถดูได้จากตัว Windows หรือหาโปรแกรมมาใช้งานมันก็ไม่ได้ยากเย็นอะไรหรอกครับ แต่หากเราคิดแบบนี้ แล้วเราจะเกิดการพัฒนาตัวเองได้อย่างไรล่ะครับทั่นผู้ชม แอดมินบังเอิญไปเจอเว็บ OpenHardwareMonitor.org เขาแจกทั้งโปรแกรมฟรี และแจกซอร์สโค้ดต้นฉบับมาให้ด้วย ก็เลยหาข้อมูลเพิ่มเติมตามเว็บไซต์ต่างๆ แต่โค้ดส่วนใหญ่มักมีปัญหาในการรบกวนการทำงานของ CPU เพราะเวลาที่โปรแกรมของเรารัน มันจะไม่สามารถเคลื่อนที่ฟอร์มได้ ดังนั้นมันจะต้องมีการแยกงานย่อยๆออกไป สิ่งที่แอดมินคิดหาทางแก้คือ ใช้ Threading กับอีกอย่างคือ ใช้ความเก่งอีกอย่างของ VB.NET ด้วย BackgroundWorker ([VB.NET] การใช้งาน Progress Bar ด้วย BackgroundWorker) เกิดปิ๊งไอเดียขึ้นมาเป็นโปรเจคตัวนี้ และอีกหลายๆเวอร์ชั่นที่แอดมินได้ทำเอาไว้ เช่น การพลอตกราฟ การใช้งานร่วมกับ RadialGauge ของ Syncfusion และอื่นๆ ซึ่งแอดมินจะค่อยทยอยแจกโค้ดออกมาในภายหลัง ... (รายละเอียด Chip ของการติดต่อกับบรรดาเซนเซอร์ในการอ่านค่าอุณหภูมิของแต่ละยี่ห้อ ให้ไปดูที่เว็บ OpenHardwareMonitor.Org โดยตรงได้เลย เพราะแอดมินจะไม่ขออธิบายในส่วนนี้ครับ)

สำหรับเวอร์ชั่นนี้อันดับแรกจะเป็นการค้นหาจำนวนของ CPU ที่มีอยู่ในเครื่อง PC ว่ามีกี่ Core แล้วก็ทำการแสดงผลทั้งหมดลงใน ListView Control แล้วจากนั้นก็จะสร้าง ProgressBar ขึ้นมาแบบไดนามิค (@Run Time) ตามจำนวนคอร์ของ CPU เพื่อแสดงปริมาณอุณหภูมิในแบบเรียลไทม์ โดยกระบวนการขั้นตอนในการรีเฟรชค่าอุณหภูมิจะอยู่ที่ BackgroundWorker โดยจังหวะเวลาจะถูกกำหนดโดย Timer1 Control ซึ่งจังหวะเวลานี้จะถูกเปิด/ปิดแบบอัตโนมัติด้วยตัวแปรแบบบูลีน ... (ทิ้งท้าย) เราสามารถนำ BackgroudWorker ไปทำการประยุกต์ใช้งาน เช่น การตรวจจับปริมาณ Process บน Server และหรืออื่นๆได้เยอะแยะมากมายครับผม

หน้าจอการออกแบบ (Design Time)


Add Reference OpenHardwareMonitorLib.dll


การตั้งค่าเพื่อให้โปรแกรมสามารถทำงานได้บนเครื่องอื่น


ตัดแปะโค้ดตามภาพ


หรือใช้สคริปท์นี้ ...

1. <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
   
2.     <security>
   
3.       <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
   
4.         <!-- UAC Manifest Options
   
5.             If you want to change the Windows User Account Control level replace the
   
6.             requestedExecutionLevel node with one of the following.
   
7. 
   
8.         <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
   
9.         <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
   
10.         <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
    
11. 
    
12.             Specifying requestedExecutionLevel node will disable file and registry virtualization.
    
13.             If you want to utilize File and Registry Virtualization for backward
    
14.             compatibility then delete the requestedExecutionLevel node.
    
15.         -->
    
16.         <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
    
17.       </requestedPrivileges>
    
18.     </security>
    
19.   </trustInfo>

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

มาดูโค้ดทั้งหมดกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More Info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Monitor CPU Temperatures with BackgroundWorker.
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------------
    
15. 
    
16. ' / Special Thanks: https://openhardwaremonitor.org/
    
17. Imports OpenHardwareMonitor.Hardware
    
18. 
    
19. Public Class frmCpuTemperature
    
20.     '// List of CPUs
    
21.     Dim MyList As New List(Of String)()
    
22. 
    
23.     '// Toggle Switch On/Off.
    
24.     Dim blnSucceed As Boolean = False
    
25. 
    
26.     ' / --------------------------------------------------------------------------------
    
27.     '// S T A R T ----- H E R E
    
28.     Private Sub frmCPUTemperature_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
29.         '// Initialized Timer Interval
    
30.         For i As Byte = 1 To 60
    
31.             cmbInterval.Items.Add(i)
    
32.         Next
    
33.         With cmbInterval
    
34.             .MaxDropDownItems = 10
    
35.             .IntegralHeight = False
    
36.             .SelectedIndex = 0
    
37.         End With
    
38.         '//
    
39.         '// Initialized ListView
    
40.         Call InitListView()
    
41.         '// Create ProgressBae Control @Runtime.
    
42.         Call CreateCPUProgress()
    
43. 
    
44.         '// Initialized BackGroundWorker.
    
45.         With BackgroundWorker1
    
46.             .WorkerReportsProgress = True
    
47.             .WorkerSupportsCancellation = True
    
48.         End With
    
49.         '//
    
50.         System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False
    
51.         BackgroundWorker1.RunWorkerAsync()
    
52.         '// Initialized and start Timer1
    
53.         Timer1.Interval = 1000
    
54.         Timer1.Enabled = True
    
55.         '//
    
56.     End Sub
    
57. 
    
58.     '// Create ProgressBae Control @Runtime.
    
59.     Private Sub CreateCPUProgress()
    
60.         Dim cp As New Computer()
    
61.         cp.Open()
    
62.         cp.CPUEnabled = True
    
63.         '//
    
64.         Dim cpu = cp.Hardware.Where(Function(h) h.HardwareType = HardwareType.CPU).FirstOrDefault()
    
65.         Dim tempSensors = cpu.Sensors.Where(Function(s) s.SensorType = SensorType.Temperature)
    
66.         tempSensors.ToList.ForEach(Sub(s) MyList.Add(s.Name))
    
67.         cp.CPUEnabled = False
    
68.         cp.Close()
    
69. 
    
70.         '// Create ProgressBar @Run Time
    
71.         Dim pgbX As Integer = 21
    
72.         Dim pgbY As Integer = 216
    
73.         Dim MyHeight As Integer = Me.Height
    
74.         For i As Byte = 0 To MyList.Count - 1
    
75.             Dim p As New ProgressBar
    
76.             With p
    
77.                 .Name = MyList(i).ToString
    
78.                 .Size = New Size(653, 23)
    
79.                 .Maximum = 100
    
80.                 .Minimum = 0
    
81.                 .Location = New Point(pgbX, pgbY)
    
82.                 .Visible = True
    
83.             End With
    
84.             Me.Controls.Add(p)
    
85.             '// Label show CPU Name
    
86.             Dim L1 As New Label
    
87.             With L1
    
88.                 .Name = "CPU" & i
    
89.                 .Location = New Point(pgbX, pgbY - p.Height + 6)
    
90.                 .Text = MyList(i).ToString
    
91.                 .Visible = True
    
92.             End With
    
93.             Me.Controls.Add(L1)
    
94.             '// Label show percent.
    
95.             Dim L2 As New Label
    
96.             With L2
    
97.                 .Name = "C" & i
    
98.                 .Location = New Point(p.Width - 10, pgbY - p.Height + 6)
    
99.                 .Text = "0C"
    
100.                 .Visible = True
     
101.             End With
     
102.             Me.Controls.Add(L2)
     
103.             '//
     
104.             pgbY += 40
     
105.             Me.Height = MyHeight + p.Height + 60
     
106.         Next
     
107.     End Sub
     
108. 
     
109.     '// BackgroundWorker - Events DoWork
     
110.     Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
     
111.         '// Refer OpenHardwareMonitor
     
112.         Dim cp As New Computer()
     
113.         cp.Open()
     
114.         cp.CPUEnabled = True
     
115.         '// Additional.
     
116.         'cp.GPUEnabled = True
     
117.         'cp.HDDEnabled = True
     
118.         'cp.RAMEnabled = True
     
119.         'cp.FanControllerEnabled = True
     
120.         'cp.MainboardEnabled = True
     
121.         '//
     
122.         lvwData.Items.Clear()
     
123.         For Each hardwareItem In cp.Hardware
     
124.             hardwareItem.Update()
     
125.             '// Detect Sensor only.
     
126.             For Each sensor In hardwareItem.Sensors
     
127.                 If (sensor.SensorType = SensorType.Temperature) Then
     
128.                     Dim LV As ListViewItem
     
129.                     LV = lvwData.Items.Add(sensor.Name)
     
130.                     '// Split name --> OpenHardwareMonitor.Hardware.CPU.IntelCPU --> Get IntelCPU (or AMD)
     
131.                     Dim hw() As String = Split(sensor.Hardware.ToString, ".")
     
132.                     LV.SubItems.Add(hw(UBound(hw)))
     
133.                     '// Sensor Value.
     
134.                     LV.SubItems.Add(Format(sensor.Value, "0.0"))
     
135.                     '// Display value on the ProgressBar.
     
136.                     For i As Byte = 0 To MyList.Count - 1
     
137.                         If MyList(i).ToString = sensor.Name Then
     
138.                             '// Access it indirectly through a new control.
     
139.                             Dim pgb As ProgressBar = Me.Controls(MyList(i).ToString)
     
140.                             pgb.Value = sensor.Value
     
141.                             Dim lbl As Label = Me.Controls("C" & i)
     
142.                             lbl.Text = sensor.Value & "C"
     
143.                         End If
     
144.                     Next
     
145.                 End If
     
146.             Next
     
147.         Next
     
148.     End Sub
     
149. 
     
150.     '// When change occurs.
     
151.     Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
     
152.         '//
     
153.         '// Me.ProgressBar1.Value = e.ProgressPercentage
     
154.     End Sub
     
155. 
     
156.     '// When finished.
     
157.     Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
     
158.         '// ON
     
159.         blnSucceed = True
     
160.     End Sub
     
161. 
     
162.     '// Switch On/Off
     
163.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
     
164.         If blnSucceed Then
     
165.             BackgroundWorker1.RunWorkerAsync()
     
166.             '// OFF
     
167.             blnSucceed = False
     
168.             '//
     
169.         End If
     
170.     End Sub
     
171. 
     
172.     Private Sub frmCpuTemperature_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
173.         BackgroundWorker1.Dispose()
     
174.         Timer1.Enabled = False
     
175.         Application.Exit()
     
176.     End Sub
     
177. 
     
178.     '/ Initialize ListView Control
     
179.     Private Sub InitListView()
     
180.         With lvwData
     
181.             .View = View.Details
     
182.             .GridLines = True
     
183.             .FullRowSelect = True
     
184.             .HideSelection = False
     
185.             .MultiSelect = False
     
186.             '/ Use 2 Columns, with the first digit having Index = 0
     
187.             .Columns.Add("Sensor.Name", lvwData.Width \ 3)
     
188.             .Columns.Add("Sensor.Hardware", lvwData.Width \ 3 - 30)
     
189.             .Columns.Add("Sensor.Value (Celsius)", lvwData.Width \ 3 - 30)
     
190.         End With
     
191.     End Sub
     
192. 
     
193.     Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
     
194.         Process.Start("https://openhardwaremonitor.org/")
     
195.     End Sub
     
196. 
     
197.     Private Sub cmbInterval_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbInterval.SelectedIndexChanged
     
198.         '// 1 Second = 1000 millisecond.
     
199.         Timer1.Interval = Val(cmbInterval.Text) * 1000
     
200.     End Sub
     
201. End Class

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

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