как в VB получить информацию о текущей температуре проца, мамы
о вращении куллеров и напряжении питания?
Dim wbemServices As Object, wbemObjectSet As Object
Dim Item As Object
Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
For Each Item In wbemObjectSet
Debug.Print "CPU Temperature: " & (Item.CurrentTemperature - 2732) / 10 & "°C"
Next
Сейчас этот форум просматривают: Yandex-бот и гости: 2