Total Commander

Flasher
Четыре значения разных.

Утилита уже есть. Так? Проверить и посмотреть результат вместо лишних вопросов - не проще?

Спросить проще, да ещё у автора, а проверить опытным путём - надёжнее

cojoc писал(а):Четыре значения разных.

Смехота. В студию.

cojoc писал(а):Спросить проще, да ещё у автора, а проверить опытным путём - надёжнее

Лень? В название скипта читаем - "обновить цвета". Соответственно,

cojoc писал(а):это не нужно будет

Flasher

Смехота. В студию.

Я сделал светлую и темную схемы и так получилось, что в основном раскраска файлов смотрится удачно на обоих.

BackColor=263172 - BackColor=-1
BackColor2=1184274 - BackColor2=-1
ForeColor=16777215 - ForeColor=-1
ColorFilter4Color=16645629 - ColorFilter4Color=0

Лень?

Нет, я всё равно бы испытал этот скрипт.

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

' Поочерёдное переключение двух цветовых схем
'=====================================================
Keys = Array("BackColor", "BackColor2", "ForeColor", "MarkColor", "ColorFilter4Color")
With CreateObject("WScript.Shell")
  TCP = .ExpandEnvironmentStrings("%COMMANDER_PATH%") & ""
  TCini = TCP & "wincmd.ini"
  If Mid(Filter(Split(CreateObject("Scripting.FileSystemObject")_
  .OpenTextFile(TCIni, 1).ReadAll, vbnewline), "BackColor=", true, 1)(0), 11) = "-1" Then _
  C = Array("263172", "1184274", "16777215", "128", "16645629") Else _
  C = Array("-1", "-1", "-1", "12548096", "0")
  For i = 0 to UBound(C)
    .Run """" & TCP & "Utils\IniFile\inifile.exe"" """ & TCIni & """ [Colors] " & Keys(i) & "=" & C(i), 0, True
  Next
  .Exec(TCP & "Utils\TCMC\TCMC.exe CM494")
  WScript.Sleep 60
  .SendKeys "+{TAB 5}  ~"
End With

См. пути к TCMC.exe и inifile.exe. Использовать без переноса секции.

cojoc писал(а):я всё равно бы испытал этот скрипт.

Как насчёт сообщить о результате?

Flasher
По поводу скрипта "Поменять местами имена двух файлов и обновить цвета.vbs" Сработал, но на 60 иногда давал сбои (не менялись цвета), на 70 у меня тоже были сбои, но реже, на 80 - всё хорошо. Довольно эффектно выходит

Хотя сейчас перепроверил у меня всё-таки иногда есть сбои - окно выбора цветов не исчезает даже на 100.

[off]А зачем составляется путь к ini который может лежать не там и называться по другому вместо использования %COMMANDER_INI%?[/off]

cojoc писал(а):на 80 - всё хорошо

Для последнего тоже 80 поставил.

cojoc писал(а):Хотя сейчас перепроверил у меня всё-таки иногда есть сбои - окно выбора цветов не исчезает даже на 100.

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

Flasher

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

Скорее наоборот прошло время - открыл окно браузера, вернулся в TC и нажал на кнопку.
А иногда такой глюк (редко - два раза из примерно 20 нажатий) - в активной панели переходит на папку выше (главнее) в пути.

cojoc
Варианта тут два. Либо повышать значение слипа, либо отказаться от этого метода в пользу перезапуска. Его я могу тоже добавить, если потребуется.

Flasher
для Поменять местами имена двух файлов и обновить цвета.vbs
Поставил 130 - всё хорошо, ни разу не было сбоя из примерно 30 срабатываний.

Так что скорее всего это.

cojoc
Отлично. С последним скриптом как?

С последним вылетает ошибка

Line: 7
Char: 3
Error: Subscript out of range:'[number:0]'
Code: 800A0009
Source: Microsoft VBScript runtime error

Пардон, забыл вернуть секцию Colors в wincmd
Момент!

Добавлено спустя 8 минут:

Вернул и сейчас ошибки нет, но что-то он цвета путает - фон не поменял и в других цветах путаница.

Только в одном цвете минус не увидел, исправил, остальные в соответсвии с приведённым.

Flasher
Что-то не меняется сейчас ничего.

cojoc
В проверочном условии забыл дописать "-", сделал.

Total Commander

Кнопка для изменения цветовой схемы TC