Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
|kerish|
-
- Постоялец
-
-
- Сообщения: 831
- Зарегистрирован: 22.10.2004 (Пт) 0:31
|kerish| » 30.06.2008 (Пн) 12:01
Кто-нибудь знает как реализовать это через сторонние библиотеки или через WMI?
-
RayShade
-
- Scarmarked
-
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
-
RayShade » 30.06.2008 (Пн) 12:06
Не ленимся пользоваться Гуглом. Первая же страница по запросу CPU temperature via WMI выдает:
- Код: Выделить всё
''''On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM MSAcpi_ThermalZoneTemperature",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "MSAcpi_ThermalZoneTemperature instance"
Wscript.Echo "-----------------------------------"
Wscript.Echo "CurrentTemperature: " & objItem.CurrentTemperature
Wscript.Echo "CurrentTemperature: " & objItem.CriticalTripPoint
Wscript.Echo "CurrentTemperature: " & objItem.ThermalStamp
Next
I don't understand. Sorry.
-
|kerish|
-
- Постоялец
-
-
- Сообщения: 831
- Зарегистрирован: 22.10.2004 (Пт) 0:31
|kerish| » 03.07.2008 (Чт) 0:08
Спасибо за инфу, но через WMI узнать можно не везде.
У меня лично не узнаёт, видимо мат. плата не поддерживает
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60