Flasher
|
 Posted: Wed Nov 25, 2015 19:54 Post subject: Переносной Script Helper ActiveX for TC by Volniy |
 |
|
Script Helper ActiveX for TC
Из справки: | Quote: | Управление Total Commander-ом из различных программных сред,
поддерживающих COM-технологию. Некоторые команды и функции могут
быть применены в WSH скриптах для целей, никак не связанных с TC. |
Детали работы смотрите в прилагаемом ReadMe.txt.
Постоянная страница компонента.
Уже года 3-4 как пользуюсь портабельным Хелпером, но всё никак руки не доходили опубликовать решение, хотя паре человек обещал.
Что ж, с большим запозданием, но публикую статью на TCKB.
Также сообщаю, что компонент обновлён до версии 1.0.0.14, здесь появился новый метод GetInfo на основе возвращаемых WMCopyData данных.
Один пример приведён в статье. Далее публикую vbs-скрипт, отображающий сразу все варианты. | Code: | '===========================================================
' Демонстрация использования метода GetInfo вспомогательного
' для ТС компонента "Script Helper ActiveX for TC by Volniy"
'===========================================================
Set TCHelper = CreateObject("TCScript.Helper")
TCHelper.Pause = 0 : T = vbTab : C = vbCr
For Each N in Split("LP LC LI LN RP RC RI RN SP SC SI SN TP TC TI TN")
Select Case(Mid(N, 2))
Case "P" T1 = "Путь"
Case "C" T1 = "Число объектов"
Case "I" T1 = "№ объекта под курсором"
Case "N" T1 = "Имя объекта под курсором"
End Select
Select Case(Left(N,1))
Case "S" T2 = "активной" : Case "R" T2 = "правой"
Case "T" T2 = "пассивной" : Case "L" T2 = "левой"
End Select : Execute N & "= T1 & "" "" & T2 & """ &_
" панели:"" & T & TCHelper.GetInfo(CStr(N)) & vbCr"
Next: If TCHelper.GetInfo("A") = "L" Then A = "левая" Else A = "правая"
MsgBox T & T & "Активная панель:" & T & T & A & C & C & T & SC & T &_
TC & T & LC & T & RC &T & C & SI & TI & LI & RI & C & SN & TN & LN &_
RN & C & SP & TP & LP & RP,, Space(18) & "Данные WM_CopyData для TC" |
 Либо так: | Code: | '===========================================================
' Демонстрация использования метода GetInfo вспомогательного
' для ТС компонента "Script Helper ActiveX for TC by Volniy"
'===========================================================
Set TCHelper = CreateObject("TCScript.Helper")
TCHelper.Pause = 0 : T = vbTab : C = vbCr
Call WM_CopyData("LP")("LC")("LI")("LN")("RP")("RC")_
("RI")("RN")("SP")("SC")("SI")("SN")("TP")("TC")("TI")("TN")
If TCHelper.GetInfo("A") = "L" Then A = "левая" Else A = "правая"
MsgBox T & T & "Активная панель:" & T & T & A & C & C & T & SC & T &_
TC & T & LC & T & RC &T & C & SI & TI & LI & RI & C & SN & TN & LN &_
RN & C & SP & TP & LP & RP,, Space(18) & "Данные WM_CopyData для TC"
Function WM_CopyData(Var)
Select Case(Mid(Var, 2))
Case "P" T1 = "Путь"
Case "C" T1 = "Число объектов"
Case "I" T1 = "№ объекта под курсором"
Case "N" T1 = "Имя объекта под курсором"
End Select
Select Case(Left(Var,1))
Case "S" T2 = "активной" : Case "R" T2 = "правой"
Case "T" T2 = "пассивной" : Case "L" T2 = "левой"
End Select : Execute Var & "= T1 & "" "" & T2 & """&_
" панели:"" & T & TCHelper.GetInfo(CStr(Var)) & vbCr"
Set WM_CopyData = GetRef("WM_CopyData")
End Function |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed Dec 02, 2015 16:53; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
