Flasher
|
 Posted: Thu Oct 27, 2011 20:38 Post subject: |
 |
|
| 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 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
