View previous topic :: View next topic |
Author |
Message |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 25, 2010 13:24 Post subject: |
|
|
Вот sa написал строку, которую нужно поставить следом за TCS.SendCommand "cm_FocusCmdLine". В Punto можно прописать правило автозамены, либо пароль сохранить в таком виде. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 13:53 Post subject: |
|
|
Code: | 'Открыть рабочую группу
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 хотя в скрипте этого пути нет нигде. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 14:03 Post subject: |
|
|
mar1boro wrote: | Здесь нет ошибок? |
Откуда вместо ссылки "d:\Documents\hard.lnk" появился "d:\1.txt"? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 14:17 Post subject: |
|
|
sa, да просто изменил на время - мне так тестировать легче, т.к. ярлык на путь к сети, а к той сети сейчас комп не подключен. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 25, 2010 14:27 Post subject: |
|
|
mar1boro wrote: | Здесь нет ошибок? после последней строки должна быть еще пустая или нет? | По логике нет. Пустые строки вообще никакой роли в скриптах не играют.
Last edited by Flasher on Fri Jun 25, 2010 16:28; edited 1 time in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 14:29 Post subject: |
|
|
mar1boro wrote: | скрипт входит в цикл |
А без строки "TCS.SendKeystroke "^+1" цикла нет? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 14:42 Post subject: |
|
|
sa, есть. странно до ужаса. попробую систему откатить назад ![Shocked](images/smiles/icon_eek.gif) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 14:46 Post subject: |
|
|
mar1boro wrote: | просто изменил на время - мне так тестировать легче |
А файл-то 1.txt в корне диска D имеется? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 14:58 Post subject: |
|
|
sa, да, конечно.... |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 15:11 Post subject: |
|
|
Проблема в том, что, если по тем или иным причинам переход к нужному файлу не состоялся (из-за раскладки, например), Enter всё равно сработает на файле (каталоге) под курсором. А уж, что за файл под ним окажется... Тут надо поаккуратней. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 15:53 Post subject: |
|
|
sa, вернул в строке D:\documents\hard.txt и все стало работать как нужно. Теперь снова делаю D:\hard.txt и на панели после выполнения открывается папка D:\documents но уже без запуска файла. Мистика
Может у меня TCWSHelp.exe неправильный? version beta11plus |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 16:03 Post subject: |
|
|
mar1boro wrote: | Может у меня TCWSHelp.exe неправильный? version beta11plus |
У меня тот же. Можно при отладке попробовать убрать второй Enter, чтобы видеть, как срабатывает команда cd. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Flasher
![](images/avatars/11897631144e285f14b2775.jpg)
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Jun 25, 2010 16:13 Post subject: |
|
|
mar1boro wrote: | Теперь снова делаю D:\hard.txt и на панели после выполнения открывается папка D:\documents но уже без запуска файла. Мистика | Это не мистика, это старая версия. ТС давно обновляли? |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
sa
Joined: 29 Apr 2009 Posts: 2599
|
(Separately) Posted: Fri Jun 25, 2010 16:22 Post subject: |
|
|
Flasher wrote: | это старая версия |
Точно, было такое:
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) |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mar1boro
Joined: 24 Jun 2010 Posts: 24
|
(Separately) Posted: Fri Jun 25, 2010 18:44 Post subject: |
|
|
ну вот и раскрыли это дело
sa, Flasher, спасибо! |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|