Hallo, ich mal wieder
Habe diesen Code aus dem Internet.
Geht auch soweit alles aber er sagt mir den Fehler:
Fehler 1 "GetCelsius" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.
Gnarf,
Habe diesen Code aus dem Internet.
VB.NET-Quellcode
-
- Public Function GetDriveTemp() As String
- Dim retval As String = ""
- Try
- Dim searcher As New ManagementObjectSearcher("root\WMI", "Select * from MSAcpi_ThermalZoneTemperature")
- Dim Counter As Integer = 1
- For Each queryObj As ManagementObject In searcher.Get()
- retval &= "DRIVE: " & Counter & "=" & GetCelsius(queryObj.GetPropertyValue("CurrentTemperature")).ToString("00.00")
- Counter += 1
- Next
- Catch ex As ManagementException
- MessageBox.Show(ex.Message)
- End Try
- Return retval
- End Function
- End Class
Geht auch soweit alles aber er sagt mir den Fehler:
Fehler 1 "GetCelsius" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.
Gnarf,