Πώς να αποκτήσετε πρόσβαση στη θερμοκρασία του CPU σε VB

Εάν χτίζετε ένα απλό πρόγραμμα στατιστικά στοιχεία υλικού , το πρώτο μέρος για να δούμε σε αυτή η υπηρεσία Windows Management Instrumentation ( WMI ) αναφορά , όπου θα βρείτε πολλά τακτοποιημένο ερωτήματα που μπορείτε να κάνετε με το περιβάλλον να μάθετε πολλά πράγματα για το σύστημά σας . Μπορείτε να βρείτε τη θερμοκρασία των επεξεργαστών σας αποστέλλοντας ένα ερώτημα στο WMI για " MSAcpi_ThermalZoneTemperature » και επιδιώκουν να την " CurrentTemperature » αξία . Αυτό είναι πιο εύκολο στα λόγια παρά στην πράξη , όμως, οπότε φροντίστε να αγγίξει έως και τις δεξιότητες προγραμματισμού σας . Οδηγίες
Η

1 Ανοίξτε ένα έργο της Visual Basic Windows φόρμας και να το ονομάσουμε κάτι που θα θέλατε . 2

Δημιουργήστε ένα κουμπί , επιλέγοντας το στοιχείο κουμπί στην εργαλειοθήκη σας και σύροντας ένα πλαίσιο σε όλη την φόρμα σας καλύπτει την περιοχή που θέλετε να εμφανίζεται το κουμπί μέσα
εικόνων 3

κάντε διπλό κλικ στο κουμπί που μόλις δημιουργήσατε για να πάρει τον εαυτό σας σε λειτουργία click εκδήλωση στην προβολή κώδικα .
Η 4

να αναγνωρίσει μια νέα Searcher Management αντικειμένου μέσα στο click event και να περάσει τις παραμέτρους κατασκευής του ως τη ρίζα WMI τάξη με ένα ερώτημα για το " MSAcpi_ThermalZoneTemperature . " Μπορείτε να το κάνετε κάπως έτσι :

Dim s As New System.Management.ManagementObjectSearcher ( _ "root /WMI " , "SELECT * FROM MSAcpi_ThermalZoneTemperature " )
5

επαναλήψεις στη διερευνητικό έχετε δημιουργήσει και να κάνει μια προσωρινή αξία , κατά την επανάληψη για να εμφανίσετε την τιμή . Η θερμοκρασία της CPU πρόκειται να εμφανιστεί σε μια σειρά από 0,1 μονάδες Kelvin . Για παράδειγμα , εάν η θερμοκρασία της CPU είναι 27455 , αυτό μπορεί να ερμηνευθεί ως 2.745,5 βαθμούς Kelvin . Θα πρέπει να μετατρέψετε τη θερμοκρασία στη μονάδα που θέλετε να εμφανίσετε . Το ακόλουθο παράδειγμα κάνει την επανάληψη και εμφανίζει τη θερμοκρασία της CPU σε βαθμούς Κελσίου :

Για κάθε q Όπως ManagementObject Σε s.Get ( ) Dim tmp As Double = CDbl ( q ( « CurrentTemperature " ) tmp = ( tmp - 2732 ) /10.0MessageBox.Show ( tmp.ToString ) Επόμενο
Η
εικόνων