Flasher

|
Posted: Sun Jun 13, 2010 15:37 Post subject: |
|
|
DoctorIkari
Это объясняется тем, что команда TCS.SendKeystroke вводит не заданные буквы, в имитирует нажатия заданных клавиш вне зависимости от раскладки. Поэтому "cd" и прописывается как "св". Я, честно говоря, не понимаю, зачем, находясь в Тотале, нужно копировать отдельно путь самому. Было бы логичней открывать активную папку в новой вкладке, либо в новой вкладке другой панели. У меня момент с "св" решается автокорректором текста/раскладки (в сети таких несколько). Только, чтобы он успел изменить текст на нужный, желательно перед TCS.SendKeystroke "{ENTER}" поставить TCS.Pause = 400 , ну или больше. Например, как у меня Code: | 'Открыть новую вкладку с путём активного каталога
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand "cm_CopySrcPathToClip"
TCS.SendCommand "cm_OpenNewTab"
TCS.SendCommand "cm_FocusCmdLine"
TCS.SendKeystroke "cd " & TCS.GetTextFromClip
TCS.Pause = 400
TCS.SendKeystroke "{ENTER}"
TCS.ClearClip
Set TCS = Nothing
Wscript.Quit |
|
|