тактовая частота проца

[tav]

как определять реальную частоту проца?

найденные примеры не подходят, т.к. не отображают корректно.

например у меня 2200MHz.
при снижении мощности на минимум средствами виндовс показывают 800MHz, перестает греться, производительность падает раза в 2. но при проверке всё равно выдает 2.2GHz

[Хакер]

В ряде случаев частота высокоточного таймера совпадает с частотой CPU.

[tav]

видимо мне такой случай совсем не попадался

во вложении пример который работал на старых процах правильно (не моё)

[Хакер]

видимо мне такой случай совсем не попадался

Говорим по принципу «лишь бы что»?
Во вложнее уродский код, вызывающий RDTSC. А я советовал получить частоту высокоточного таймера.

[ger_kar]

Попробуй через WMI

Код: Выделить всё

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT CurrentClockSpeed FROM Win32_Processor",,48)
For Each objItem in colItems
     MsgBox "CurrentClockSpeed: " & objItem.CurrentClockSpeed
Next

Оно?
У меня нет возможности проверить как это будет работать при изменении частоты. Проверь сам и отпишись, что получилось

[tav]

Попробуй через WMI

Код: Выделить всё

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT CurrentClockSpeed FROM Win32_Processor",,48)
For Each objItem in colItems
     MsgBox "CurrentClockSpeed: " & objItem.CurrentClockSpeed
Next

Оно?
У меня нет возможности проверить как это будет работать при изменении частоты. Проверь сам и отпишись, что получилось

да, оно... большое спасибо.
надо наверно только переделать что б без WMI было.

2хакер:
почему код уродский?
высокоточный таймер это QueryPerformanceFrequency ?

[ger_kar]

надо наверно только переделать что б без WMI было.

А чем тебя WMI не устраивает? WMI довольно мощная технология, со множеством возможностей и огород не надо городить. Кстати и загрузку процессора в приведенном примере очень легко получить.

[tav]

покопавшись немного был найден другой вариант записи, дающий от же результат:

Код: Выделить всё

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.InstancesOf("Win32_Processor")
For Each objItem In colItems
     MsgBox"CurrentClockSpeed: " & objItem.CurrentClockSpeed
Next

что лучше использовать InstancesOf или ExecQuery ?
какая разница?

2ger_kar:
я не спорю, что WMI довольно мощная технология, но если не ошибаюсь она может быть отключена.

[ger_kar]

что лучше использовать InstancesOf или ExecQuery ?какая разница?

Постараюсь разъяснить сей момент
И InstancesOf и ExecQuery являются методами объекта SWbemServices.
ExecQuery Выполняет запрос для получения коллекции объектов (классов или экземпляров).
InstancesOf Возвращяет коллекцию экземпляров указанного класса.
Причем если ExecQuery работает посредством запроса WQL, то InstancesOf Возвращает коллекцию экземпляров по имени, не используя запрос. Что предпочтительнее использовать в данном случае? Предпочтительнее использовать ExecQuery и тот пример, который привел я. Почему? Да все очень просто, он будет более производительным, причем использовать именно запрос такого вида:
SELECT CurrentClockSpeed FROM Win32_Processor, а не SELECT * FROM Win32_Processor

я не спорю, что WMI довольно мощная технология, но если не ошибаюсь она может быть отключена.

Отключить конечно можно, но обычно она работает, причем по умолчанию она всегда включена. Кстати в программе если имеются опасения, можно просто ее проверять и принудительно включать. Правда это прокатит только под админом.

[tav]

спасибо, полезная информация.

в результате тестов на "скорую руку" получилось, что:
1. InstancesOf("Win32_Processor") и ExecQuery("SELECT * FROM Win32_Processor",,48) работают в среднем одинаково по скорости.
2. ExecQuery("SELECT CurrentClockSpeed FROM Win32_Processor",,48) в ~5 раз быстрее у меня. (в 4 раза на более мощном компе)

но это все верно если нужен только один запрос.
когда нужно несколько, то второй вариант на начинает проигрывать по скорости, т.к. у первых скорость остается прежней.

[ger_kar]

но это все верно если нужен только один запрос. когда нужно несколько, то второй вариант на начинает проигрывать по скорости, т.к. у первых скорость остается прежней.

А зачем использовать несколько запросов? Я что-то не совсем понял, ты что, для того что-бы получить несколько свойств у экземпляра класса Win32_Processor используешь несколько запросов, а зачем?
Можно же перечислить все что тебе надо в одном запросе и все получить за 1 раз.
Например ExecQuery("SELECT CurrentClockSpeed, MaxClockSpeed, ProcessorId FROM Win32_Processor",,48)