Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Кнопка для изменения цветовой схемы TC
Goto page Previous  1, 2, 3, 4, 5  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 20:16    Post subject: Reply with quote
Flasher
Четыре значения разных.
Quote:
Утилита уже есть. Так? Проверить и посмотреть результат вместо лишних вопросов - не проще?
Спросить проще, да ещё у автора, а проверить опытным путём - надёжнее Smile
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 20:20    Post subject: Reply with quote
cojoc wrote:
Четыре значения разных.
Смехота. В студию.
cojoc wrote:
Спросить проще, да ещё у автора, а проверить опытным путём - надёжнее
Лень? В название скипта читаем - "обновить цвета". Соответственно,
cojoc wrote:
это не нужно будет
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 20:31    Post subject: Reply with quote
Flasher
Quote:
Смехота. В студию.

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

BackColor=263172 - BackColor=-1
BackColor2=1184274 - BackColor2=-1
ForeColor=16777215 - ForeColor=-1
ColorFilter4Color=16645629 - ColorFilter4Color=0
Quote:
Лень?
Нет, я всё равно бы испытал этот скрипт.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 20:38    Post subject: Reply with quote
Code:
' Поочерёдное переключение двух цветовых схем
'=====================================================
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 wrote:
я всё равно бы испытал этот скрипт.
Как насчёт сообщить о результате?

Last edited by Flasher on Thu Oct 27, 2011 23:02; edited 4 times in total
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 21:08    Post subject: Reply with quote
Flasher
По поводу скрипта "Поменять местами имена двух файлов и обновить цвета.vbs" Сработал, но на 60 иногда давал сбои (не менялись цвета), на 70 у меня тоже были сбои, но реже, на 80 - всё хорошо. Довольно эффектно выходит Smile
Хотя сейчас перепроверил у меня всё-таки иногда есть сбои - окно выбора цветов не исчезает даже на 100.

Last edited by cojoc on Thu Oct 27, 2011 21:16; edited 2 times in total
Back to top
View user's profile Send private message
Lev



Joined: 02 Mar 2005
Posts: 392
Post (Separately) Posted: Thu Oct 27, 2011 21:09    Post subject: Reply with quote
[off]А зачем составляется путь к ini который может лежать не там и называться по другому вместо использования %COMMANDER_INI%?[/off]
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 21:11    Post subject: Reply with quote
cojoc wrote:
на 80 - всё хорошо
Для последнего тоже 80 поставил.
cojoc wrote:
Хотя сейчас перепроверил у меня всё-таки иногда есть сбои - окно выбора цветов не исчезает даже на 100.
Может, слишком резво нажимаешь, без ожидания отработки предыдущего раза?
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 21:29    Post subject: Reply with quote
Flasher
Quote:
Может, слишком резво нажимаешь, без ожидания отработки предыдущего раза?

Скорее наоборот прошло время - открыл окно браузера, вернулся в TC и нажал на кнопку.
А иногда такой глюк (редко - два раза из примерно 20 нажатий) - в активной панели переходит на папку выше (главнее) в пути.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 21:44    Post subject: Reply with quote
cojoc
Варианта тут два. Либо повышать значение слипа, либо отказаться от этого метода в пользу перезапуска. Его я могу тоже добавить, если потребуется.
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 21:58    Post subject: Reply with quote
Flasher
для Поменять местами имена двух файлов и обновить цвета.vbs
Поставил 130 - всё хорошо, ни разу не было сбоя из примерно 30 срабатываний.

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

Last edited by cojoc on Thu Oct 27, 2011 22:01; edited 1 time in total
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 22:01    Post subject: Reply with quote
cojoc
Отлично. С последним скриптом как?
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 22:15    Post subject: Reply with quote
С последним вылетает ошибка

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

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

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

Вернул и сейчас ошибки нет, но что-то он цвета путает - фон не поменял и в других цветах путаница.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 22:30    Post subject: Reply with quote
Только в одном цвете минус не увидел, исправил, остальные в соответсвии с приведённым.
Back to top
View user's profile Send private message
cojoc



Joined: 04 Sep 2009
Posts: 144
Post (Separately) Posted: Thu Oct 27, 2011 22:40    Post subject: Reply with quote
Flasher
Что-то не меняется сейчас ничего.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Thu Oct 27, 2011 22:43    Post subject: Reply with quote
cojoc
В проверочном условии забыл дописать "-", сделал.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4, 5  Next
Page 3 of 5

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group