Железо

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Armageddon
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 15.11.2002 (Пт) 15:16

Железо

Сообщение Armageddon » 22.10.2004 (Пт) 5:27

как в VB получить информацию о текущей температуре проца, мамы
о вращении куллеров и напряжении питания?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 22.10.2004 (Пт) 5:41

Изображение

Armageddon
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 15.11.2002 (Пт) 15:16

Сообщение Armageddon » 22.10.2004 (Пт) 15:16

а примерчика нету?:)

marvan
Бывалый
Бывалый
 
Сообщения: 269
Зарегистрирован: 22.06.2004 (Вт) 13:26
Откуда: Москва

Сообщение marvan » 22.10.2004 (Пт) 15:46


Armageddon
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 15.11.2002 (Пт) 15:16

Сообщение Armageddon » 22.10.2004 (Пт) 16:01

нужна температура процессора, никто не поможет?

Armageddon
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 15.11.2002 (Пт) 15:16

Сообщение Armageddon » 25.10.2004 (Пн) 6:27

help

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 25.10.2004 (Пн) 13:38

Что непонятного? Берешь WMI класс, описывающий проц и находишь там проперть температуры. Все просто же.
I don't understand. Sorry.

Aleksej
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 191
Зарегистрирован: 03.06.2003 (Вт) 9:58

Сообщение Aleksej » 25.10.2004 (Пн) 14:09

Работает только под Win 2000:
Код: Выделить всё
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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7

    TopList