prog_san

|
Posted: Fri Jul 24, 2009 09:49 Post subject: |
|
|
Написал script. Для работы необходим TCScript.Helper
Code: |
' Отключение\включение ракраски файлов в зависимоти от типа
' prog_san 2009
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
' Перейти на вкладку управления настройками цветов
TCS.SendCommand(494)
' Перейти к галочке отключения раскраски файлов, изменить ее значение
TCS.SendKeystroke "{TAB 14} {SPACE}"
' Закрыть диалоговое окно
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Wscript.Quit() |
_________________ Errare humanum est |
|