| View previous topic :: View next topic |
| Author |
Message |
Flasher
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 |
|
 |
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 |
|
|
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 |
|
|
mar1boro
Joined: 24 Jun 2010
Posts: 24
|
| (Separately) Posted: Fri Jun 25, 2010 14:17 Post subject: |
|
|
| sa, да просто изменил на время - мне так тестировать легче, т.к. ярлык на путь к сети, а к той сети сейчас комп не подключен. |
|
| Back to top |
|
|
Flasher
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 |
|
|
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 |
|
|
mar1boro
Joined: 24 Jun 2010
Posts: 24
|
| (Separately) Posted: Fri Jun 25, 2010 14:42 Post subject: |
|
|
sa, есть. странно до ужаса. попробую систему откатить назад  |
|
| Back to top |
|
|
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 |
|
|
mar1boro
Joined: 24 Jun 2010
Posts: 24
|
| (Separately) Posted: Fri Jun 25, 2010 14:58 Post subject: |
|
|
| sa, да, конечно.... |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2599
|
| (Separately) Posted: Fri Jun 25, 2010 15:11 Post subject: |
|
|
| Проблема в том, что, если по тем или иным причинам переход к нужному файлу не состоялся (из-за раскладки, например), Enter всё равно сработает на файле (каталоге) под курсором. А уж, что за файл под ним окажется... Тут надо поаккуратней. |
|
| Back to top |
|
|
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 |
|
|
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 |
|
|
Flasher
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 |
|
|
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 |
|
|
mar1boro
Joined: 24 Jun 2010
Posts: 24
|
| (Separately) Posted: Fri Jun 25, 2010 18:44 Post subject: |
|
|
ну вот и раскрыли это дело 
sa, Flasher, спасибо! |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
