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

[cojoc]

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

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

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

[Flasher]

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

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

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

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

это не нужно будет

[cojoc]

Flasher

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

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

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

Лень?

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

[Flasher]

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

' Поочерёдное переключение двух цветовых схем
'=====================================================
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.

[Lev]

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

[Flasher]

на 80 - всё хорошо

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

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

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

[cojoc]

Flasher

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

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

[Flasher]

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

[cojoc]

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

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

[Flasher]

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

[cojoc]

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

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

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

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

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

[Flasher]

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

[cojoc]

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

[Flasher]

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