bonjour,
j'ai vérifié d'aprés mon bios et je peut extraire la temperature du processeur
alors j'ai ecrit se code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System
Imports System.Management
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
 
            For Each queryObj As ManagementObject In searcher.Get()
                Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
                temp = (temp - 2732) / 10.0
                MessageBox.Show(temp.ToString)
            Next
 
        Catch ex As ManagementException
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
 
End Class
lorsque je lance le debug ça marche mais lorsque j'appui sur boutton une message d'erreur apparait dans msgbox
non pris en charge