[NiOl]

Может во время запуска исходного батника посмотреть какой процесс появляется на доли секунд. Его исчезновение и надо отслеживать по "TaskList"
(т.е. "неграмотность" исходного скрипта заключается в том, что нет точной инфы, сколько времени требуется панели инструментов на применение темы - от долей секунд - до нескольких секунд - такое тоже может случиться)

[Pozia]

Может во время запуска исходного батника посмотреть какой процесс появляется на доли секунд. »

хорошая идея. там возникает несколько лишних процессов. Но как их уловить? Не успеваю. Подскажите подробнее пожалуйста.

Его исчезновение и надо отслеживать по "TaskList" »

это как?

от долей секунд - до нескольких секунд - такое тоже может случиться) »

ага, и зависит это от мощности компа. Вот это мне и не нравится

[NiOl]

1. Делаем "сканер", запускаем в отдельном CMD, желательно назначив ему высокий приоритет

@echo off
:Loop
echo === %time%>>%~dpn0.log
TaskList >>%~dpn0.log
goto :Loop

сканер будет бесконечно крутиться и надеюсь несколько раз в секунду сохранять список процессов в одноименный лог-файл.
По нормальному завершению исходного, работающего скрипта смены темы останавливаем "сканер" (Ctrl+Break).

2. Анализируем лог-файл, возможно кроме Control.exe будет еще что-то. Ищем их отличительные особенности (лучше, если это уникальное имя файла). Если наблюдаются совпадения с уже имеющимися в памяти, то увеличиваем кол-во инфы в сканере "TaskList /V" - дополнительная инфа может быть (в конечном скрипте) отсяна по фильтру, например на совпадение названия "окна": TaskList /FI "WindowTitle eq Название окна"...

3. В итоге строки ожидания вместо пинга будет выглядить так:
:Loop
for /f "tokens=1" %%F in ('tasklist^|find /c "Control.exe"') do if not "%%F"=="0" GotTo :Loop
* здесь для прмера ожидается окончание выполнения файла "Control.exe" - его кол-во в оперативке должно стать равным нулю.

[Iska]

там возникает несколько лишних процессов. Но как их уловить? Не успеваю. Подскажите подробнее пожалуйста. »

Process Monitor от бывшей Sysinternals. Установить фильтр на запуск и останов процессов.

[seriych]

А разве тему нельзя применить просто так:

Код:

Start /wait "" "%SystemRoot%\Resources\themes\Aero.theme"

[Iska]

2seriych: зя !. Но, если посмотреть в реестр, то пройдя по пути «HKCR\.theme\(Default)» --> «HKCR\themefile\shell\open\command\(Default)» — придём в аккурат к указанному в первом посте темы:

Код:

%SystemRoot%\system32\rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"%1"

[Pozia]

NiOl, отследил процессы. Их три: conhost.exe, dllhost.exe, rundll32.exe

По вашему методу должно быть так:

Код:

rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"%SystemRoot%\Resources\themes\Spring WD.theme"
:Loop
for /f "tokens=1" %%F in ('tasklist^|find /c "conhost.exe"') do if not "%%F"=="0" GotTo :Loop
taskkill /im explorer.exe /F
start explorer.exe
exit

Но не работает. Почему?

Нашел другой метод (по сути тот же):
Скрипт:

Код:

rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"%SystemRoot%\Resources\themes\Spring WD.theme"
Sleep.vbs
taskkill /im explorer.exe /F
start explorer.exe
exit

Скрипт Sleep.vbs:

Код:

Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objService, "Win32_Process").objectSet

Do Until False
    Wscript.Sleep 1000
    objRefresher.Refresh
    Flag = True
    For Each objItem in colItems
        If InStr(objItem.ExecutablePath, "dllhost.exe") Then
            Flag = False
        End If
    Next
    If Flag = True Then
        Exit Do
    End If
Loop

Wscript.Sleep 5000

[Bodya.N]

Pozia А принципиально в CMD? В AutoIt'е не подойдет?

Код:

$theme = "Aero"
$title = "Свойства: Экран"

If FileExists(@WindowsDir & "\Resources\Themes\" & $theme & ".theme") Then
	ShellExecute(@WindowsDir & "\Resources\Themes\" & $theme & ".theme")
	WinWait($title, "", 10)
	If WinExists($title) Then ControlClick($title, "", 1)
Else
	MsgBox(16, 'Ошибка применения Темы', 'Тема "' & $theme & '" не обнаружена! ')
EndIf

[Pozia]

В AutoIt'е не подойдет? »

подойдет. Но предложенный вами скрипт не работает