Total Commander

Вот sa написал строку, которую нужно поставить следом за TCS.SendCommand "cm_FocusCmdLine". В Punto можно прописать правило автозамены, либо пароль сохранить в таком виде.

Код: Выделить всё

'Открыть рабочую группу 
Dim TCS 
Set TCS = CreateObject("TCScript.Helper") 
TCS.LockTC True 
TCS.SendCommand "cm_FocusCmdLine" 
TCS.SendKeystroke "^+1"
TCS.SendKeystroke "cd " & "d:\1.txt" 
TCS.Pause = 200 
TCS.SendKeystroke "{ENTER 2}" 
Set TCS = Nothing 
Wscript.Quit

Здесь нет ошибок? после последней строки должна быть еще пустая или нет? я как-то доигрался, что теперь скрипт входит в цикл и прервать его можно только выходом из tcmd. Иногда, если цикл не происходит, на панели открывается D:\documents хотя в скрипте этого пути нет нигде.

mar1boro писал(а):Здесь нет ошибок?

Откуда вместо ссылки "d:\Documents\hard.lnk" появился "d:\1.txt"?

sa, да просто изменил на время - мне так тестировать легче, т.к. ярлык на путь к сети, а к той сети сейчас комп не подключен.

mar1boro писал(а):Здесь нет ошибок? после последней строки должна быть еще пустая или нет?

По логике нет. Пустые строки вообще никакой роли в скриптах не играют.

mar1boro писал(а):скрипт входит в цикл

А без строки "TCS.SendKeystroke "^+1" цикла нет?

sa, есть. странно до ужаса. попробую систему откатить назад

mar1boro писал(а):просто изменил на время - мне так тестировать легче

А файл-то 1.txt в корне диска D имеется?

sa, да, конечно....

Проблема в том, что, если по тем или иным причинам переход к нужному файлу не состоялся (из-за раскладки, например), Enter всё равно сработает на файле (каталоге) под курсором. А уж, что за файл под ним окажется... Тут надо поаккуратней.

sa, вернул в строке D:\documents\hard.txt и все стало работать как нужно. Теперь снова делаю D:\hard.txt и на панели после выполнения открывается папка D:\documents но уже без запуска файла. Мистика

Может у меня TCWSHelp.exe неправильный? version beta11plus

mar1boro писал(а):Может у меня TCWSHelp.exe неправильный? version beta11plus

У меня тот же. Можно при отладке попробовать убрать второй Enter, чтобы видеть, как срабатывает команда cd.

mar1boro писал(а):Теперь снова делаю D:\hard.txt и на панели после выполнения открывается папка D:\documents но уже без запуска файла. Мистика

Это не мистика, это старая версия. ТС давно обновляли?

Flasher писал(а):это старая версия

Точно, было такое:
03.03.10 Release Total Commander 7.51 beta 7
03.03.10 Fixed: cd c:\somefile didn't place the cursor on the file (in the root only)

ну вот и раскрыли это дело

sa, Flasher, спасибо!

Total Commander

Cделать открытие ярлыка на рабочую группу в панели TCMD