Конференция VBStreets

**HotKitten** » 10.02.2005 (Чт) 23:49

Как узнать температуту процессора в WinNT, а то много таких прог, но хочу сделать свою!
Хелп :?:

**A.A.Z.** » 10.02.2005 (Чт) 23:59

Поковыряй этот пример... :roll:

**HotKitten** » 11.02.2005 (Пт) 0:27

а больше нету???

**HotKitten** » 11.02.2005 (Пт) 0:30

я полжизни буду разгребать 106 кб, да еще и в архиве

**HotKitten** » 11.02.2005 (Пт) 1:32

не пашет прога[/img]

**Aleksej** » 11.02.2005 (Пт) 10:14

Работает только под 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

**Sebas** » 11.02.2005 (Пт) 11:17

Прога не пашет(((
чёта там через одно место сделано... ком порт называется.

**HotKitten** » 12.02.2005 (Сб) 17:58

Aleksej писал(а):Работает только под Win 2000:

Ну вообще у меня win 2k , а под XP разве не покатит, ведь у них ядро одинаковое, они полностью совместимы(у меня стоят дрова из winXP я их оттуда выдернул и в 2000 вставил, и куча библиотек)

**HotKitten** » 13.02.2005 (Вс) 0:51

Aleksej писал(а):Работает только под Win 2000:

У меня под 2000 этот код показывает 40 градусов и не меняется, хотя SpeedFan и HWinfo, говорят, что она 27-29 градусов, и им я верю

**HotKitten** » 14.02.2005 (Пн) 16:06

Хелппппппппппппп!!!!!!!!!!!!!!!!!!

**Sebas** » 15.02.2005 (Вт) 9:56

код под ХП пашет(СП2)

**Sebas** » 15.02.2005 (Вт) 9:57

Да без дров для мамы не обойтись(((

**HotKitten** » 17.02.2005 (Чт) 0:09

Sebas писал(а):Да без дров для мамы не обойтись(((

чё этот код пашет????
-----------------------------------------------------------------------------
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
--------------------------------------------------------------------------------
и как точно показывает?Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!????
а дрова для мамы у меня стоят последней версии!!!!!!!!!!!!
но ведь рас в XP пашет, то и в 2k должна покатить!!??

**Sebas** » 17.02.2005 (Чт) 11:51

помница год назад на 2к серваке показывал....

**Ramzes** » 17.02.2005 (Чт) 11:57

И еще как узнать темпертуру винчестера :?:

**alibek** » 17.02.2005 (Чт) 13:41

S.M.A.R.T.

**Ramzes** » 17.02.2005 (Чт) 14:23

alibek писал(а):S.M.A.R.T.

Подробнее если можно :roll:

**alibek** » 17.02.2005 (Чт) 14:42

http://www.ixbt.com/storage/smart.shtml
http://pcjs.chat.ru/smartdoc.html

**Ramzes** » 17.02.2005 (Чт) 14:45

alibek писал(а):http://www.ixbt.com/storage/smart.shtml
http://pcjs.chat.ru/smartdoc.html

Не, а как из васика узнать?

**alibek** » 17.02.2005 (Чт) 15:32

Так во второй ссылке техническая информация есть. Пример поищу, помоему у меня где-то был, если найду, то выложу.

**Ramzes** » 17.02.2005 (Чт) 15:59

alibek писал(а):Так во второй ссылке техническая информация есть. Пример поищу, помоему у меня где-то был, если найду, то выложу.

Это было бы просто прекрасно

Наглядное пособие однако

**HotKitten** » 21.02.2005 (Пн) 0:40

Ramzes писал(а):И еще как узнать темпертуру винчестера

ты так говоришь как будто код на определение температуры проца у тебя уже есть?Я идиот! Убейте меня, кто-нибудь!?

**HotKitten** » 24.02.2005 (Чт) 9:04

Ну хоть кто нибудь ответте на мой вопрос :-(

Конференция VBStreets

Как узнать температуту процессора в WinNT

Как узнать температуту процессора в WinNT

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