Серый форум — AHK: Отображение загрузки процессора в заголовке окна

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Fri, 04 Apr 2014 07:44:10 +0000

Ура, работает. Класс! Спасибо!

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (YMP) — Fri, 04 Apr 2014 03:07:58 +0000

Вот так, наверно:


WinSetTitle, %  RegExReplace(t, "S)    .*%$")
. (isExit? "" : "    " time "    Р—Р°РіСЂСѓР·РєР° Р¦Рџ: " SubStr("00" GetCPULoad() "%", -3))

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Thu, 03 Apr 2014 21:12:18 +0000

Тот формат не заработал, ну и ладно)
Новый вопрос:
Скрипт:

#SingleInstance ignore
#Persistent
#NoTrayIcon
#NoEnv
OnExit, ExitSub
SetTitleMatchMode, 2
win := "Total Commander 8.01 - PowerUser v62"
SetTimer, CheckCPULoad, 500
return
CheckCPULoad:
SetBatchLines, -1
if WinExist(win)
{
WinGetTitle, t
FormatTime, time,, ddd dd MMM yyyy    HH:mm:ss
WinSetTitle, %  RegExReplace(t, "S)    .*%$")
. (isExit? "" : "    " time "    Р—Р°РіСЂСѓР·РєР° Р¦Рџ: " GetCPULoad() "%")
}
return
ExitSub:
isExit := true
SetTimer, CheckCPULoad, off
Gosub, CheckCPULoad
ExitApp
GetCPULoad()
{
static priorIdleTime, priorTickCount, idleTicks, numCPU
If !numCPU
EnvGet, numCPU, NUMBER_OF_PROCESSORS
If !idleTicks
VarSetCapacity(idleTicks, 8)
DllCall("GetSystemTimes", "UInt", &idleTicks, "UInt", 0, "UInt", 0), idleTime := *(&idleTicks)
Loop 7
IdleTime += *(&idleTicks + A_Index) << (8 * A_Index)
return Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
, priorTickCount := A_TickCount, priorIdleTime := idleTime
}

Как сделать так, что бы загрузка процессора отображалась в формате 000% - 001% - 050% - 100%, а то в Windows 8 название окна централизируется в заголовке. А так как у нас загрузка процессора - это то один символ, то два, и иногда три (при 100%)- из-за этого название в заголовке окна дёргается.
Или может есть более красивый способ, без этих лишних ноликов в начале?

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (Indomito) — Sat, 26 Jan 2013 10:36:11 +0000

А как же часики, тоже работают(я про формат)?
Правда, я не понял, что не работало в chm-файле всё подробно описано... вроде бы

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Sat, 26 Jan 2013 06:16:45 +0000

Ура! Заработало)) Спасибо, запомнил. Теперь буду знать.

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (YMP) — Sat, 26 Jan 2013 02:46:57 +0000


SetTitleMatchMode, MatchMode

Возможные значения MatchMode:


1: заголовок окна должен начинаться со значения, заданного в WinTitle 
2: заголовок окна должен содержать значение, заданное в WinTitle 
3: заголовок окна должен совпадать со значением, заданным в WinTitle

По умолчанию используется 1, а вам нужно 2.


SetTitleMatchMode, 2

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Fri, 25 Jan 2013 18:27:16 +0000

Я во всём этом ноль и из описания ничего не понял, хотя экспериментировал и пытался понять минут 40. Будьте любезны объясните мне поподробнее.

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (YMP) — Fri, 25 Jan 2013 16:04:57 +0000

SetTitleMatchMode.

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Fri, 25 Jan 2013 13:28:57 +0000

В итоге имею скрипт:

#SingleInstance ignore
#Persistent
#NoTrayIcon
#NoEnv
OnExit, ExitSub
win := "Total Commander 8.01 - PowerUser v61"
SetTimer, CheckCPULoad, 500
return
CheckCPULoad:
SetBatchLines, -1
if WinExist(win)
{
WinGetTitle, t
FormatTime, time,, ddd dd MMM yyyy    HH:mm:ss
WinSetTitle, %  RegExReplace(t, "S)    .*%$")
. (isExit? "" : "    " time "    Р—Р°РіСЂСѓР·РєР° Р¦Рџ: " GetCPULoad() "%")
}
return
ExitSub:
isExit := true
SetTimer, CheckCPULoad, off
Gosub, CheckCPULoad
ExitApp
GetCPULoad()
{
static priorIdleTime, priorTickCount, idleTicks, numCPU
If !numCPU
EnvGet, numCPU, NUMBER_OF_PROCESSORS
If !idleTicks
VarSetCapacity(idleTicks, 8)
DllCall("GetSystemTimes", "UInt", &idleTicks, "UInt", 0, "UInt", 0), idleTime := *(&idleTicks)
Loop 7
IdleTime += *(&idleTicks + A_Index) << (8 * A_Index)
return Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
, priorTickCount := A_TickCount, priorIdleTime := idleTime
}

То есть ищется заголовок окна с названием "Total Commander 8.01 - PowerUser v61", а как сделать так что бы искалось окно, где в заголовке есть эта фраза по мимо других? Что бы например находилось и "X^ Total Commander 8.01 - PowerUser v61"

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (creature.ws) — Wed, 22 Aug 2012 14:09:35 +0000

Нет, не подскажу.

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Wed, 22 Aug 2012 14:03:25 +0000

это без проблем, а вот наоборот заменить :: на - не получается, видимо какой то конфликт...
Ради образовательных целей подскажите как)

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (creature.ws) — Wed, 22 Aug 2012 12:19:17 +0000

Можно, заменить - на :: сможете?

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Wed, 22 Aug 2012 11:37:36 +0000

creature.ws, всё отлично! Огромное спасибо. Ещё одна просьба. Можно ли формат времени поменять с HH:mm:ss на ddd dd MMM yyyy :: HH:mm:ss ?

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (creature.ws) — Wed, 22 Aug 2012 11:25:10 +0000

#Persistent
#NoEnv
OnExit, ExitSub

;win := "Total Commander 8.01 - PowerUser"
win := "Untitled - Notepad"
SetTimer, SetTitle, 1000
return

SetTitle:
    SetBatchLines, -1
    if WinExist(win) {
        WinGetTitle, t
        StringReplace, t, t, %priorAdd%
        FormatTime, time,, ddd dd MMM yyyy - HH:mm:ss
        WinSetTitle, % t . (isExit? "" : priorAdd := " - " . time . " - CPU Usage: " . GetCPULoad() . "%")
    }
    return

ExitSub:
    isExit := true
    SetTimer, SetTitle, off
    Gosub, SetTitle
    ExitApp

GetCPULoad()
{
    static priorIdleTime, priorTickCount
    static numCPU := EnvGet("NUMBER_OF_PROCESSORS")

    VarSetCapacity(idleTime, 8, 0)
    , DllCall("GetSystemTimes", "UInt", &idleTime, "UInt", 0, "UInt", 0)
    , idleTime := NumGet(idleTime)
    , load := Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
    , priorTickCount := A_TickCount
    , priorIdleTime := idleTime

    return load
}

EnvGet(var) {
    EnvGet, var, %var%
    return var
}

Re: AHK: Отображение загрузки процессора в заголовке окна

null@example.com (HA3APET) — Wed, 22 Aug 2012 09:23:10 +0000

creature.ws, спасибо, работает! А можно объединить вот с этим скриптом, что бы и загрузка CPU показывалась и часики?

#SingleInstance ignore
#Persistent
#NoTrayIcon
SetTimer subTimer, 250
subTimer:
WinWaitActive, Total Commander 8.01 - PowerUser
FormatTime, time,, ddd dd MMM yyyy - HH:mm:ss
WinSetTitle Total Commander 8.01 - PowerUser - %time%

Пытался сам разобраться, но знаний явно не хватает...