- Код: Выделить всё
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
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 / 10) - 272.15)
Label1.Text = temp.ToString 'тут вроде как то подозрительно - 70 градуссов
Next
Catch ex As ManagementException
MessageBox.Show(ex.Message)
End Try
End Sub
вот в чем вопрос, я думал что всунув в таймер, я буду получать изменения показаний температуры, но как то долго висит статическое значение.
также использовал ещё один код
- Код: Выделить всё
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim freespase, freegb As Decimal
Dim myMOC As ManagementObjectCollection = (New ManagementObjectSearcher(New SelectQuery("SELECT FreeSpace FROM Win32_LogicalDisk WHERE deviceID = 'C:'"))).Get()
Dim myMO As ManagementObject
For Each myMO In myMOC
freespase = myMO.Properties("FreeSpace").Value
freegb = Decimal.Round((freespase / 1073741824), 1)
Label2.Text = "Диск C: " & freegb.ToString() & " ГБайт свободно."
Next
End Sub
Хотелось бы побольше узнать о форме записи путей в ManagementObjectSearcher, что ещё можно узнать о компьютере: загрузка процессора, памяти, сети; температура HDD...?
из-за плохого понимания формы записи,
"SELECT FreeSpace FROM Win32_LogicalDisk WHERE deviceID = 'C:'" и
"root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature"
не могу правильно сформировать вопрос для поиска в интернете, просветите!!!
