View previous topic :: View next topic |
Author |
Message |
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Thu Jul 13, 2006 13:53 Post subject: |
|
|
Fktrc
Это ты к чему? Или ссылку перепутал? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Thu Jul 13, 2006 15:55 Post subject: |
|
|
Batya wrote: | Fktrc
Это ты к чему? Или ссылку перепутал? |
Походу, он поисковик перепутал
Yandex дает ссылку только на саму эту фразу и ВСЕ . Вот тебе и поисковик. Google Forever |
|
Back to top |
|
|
Fktrc
Joined: 26 Jan 2005 Posts: 13 Location: Кемерово
|
(Separately) Posted: Fri Jul 14, 2006 07:46 Post subject: |
|
|
Ничего не попутал, просто забыл слово "лопата" в конец поста приписать |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sun Sep 03, 2006 15:32 Post subject: Сообщение сделал, чтобы не постить скрипт в чужую тему |
|
|
Пишем VBS-файл вот с таким содержимым Code: | '=========================[ Start of file ]===================
' File: Separators.vbs
' Description: Производит переключение между 3-мя любыми
' позициями разделителя панелей ТС
' Installation: Создайте новую команду в меню Запуск TC
' Команда: "диск:\путь\к\файлу\Separators.vbs"
' Назначьте на нее горячую клавишу
' Copyright: (c) 2006, Volniy
Option Explicit
Dim TCS
Const Pos1=85, Pos2=15, Pos3=50
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
If TCS.Separator < 0 Or TCS.Separator > 100 Then
TCS.SendCommand "cm_50Percent", True
End If
Select Case CInt(TCS.Separator)
Case (Pos2 - 1), Pos2, (Pos2 + 1)
TCS.Separator = Pos3
Case (Pos3 - 1), Pos3, (Pos3 + 1)
TCS.Separator = Pos1
Case (Pos1 - 1), Pos1, (Pos1 + 1)
TCS.Separator = Pos2
Case Else
TCS.Separator = Pos3
End Select
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit()
'=========================[ End of file ]===================
|
ставим на него комбинацию клавиш в меню Запуск и пользуемся ею для быстрого переключения между тремя произвольными позициями разделителя панелей TC (Pos1, Pos2, Pos3) (скрипт можно легко изменить, увеличив число позиций) при наличии установленного в системе Script Helper ActiveX for Total Commander [24 кб].
Из-за взаимодействия нажатой клавиатуры и действий скрипта по перемещению разделителя иногда может понадобиться повторное нажатие (разделитель уходит в 100%). И вообще кнопка на панели будет работать надежнее. |
|
Back to top |
|
|
Uy
Joined: 17 Sep 2006 Posts: 4
|
(Separately) Posted: Sun Sep 17, 2006 20:20 Post subject: |
|
|
А исходники хелпера открыты? |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Sun Sep 17, 2006 22:16 Post subject: |
|
|
Uy wrote: | А исходники хелпера открыты? |
Пока нет |
|
Back to top |
|
|
Uy
Joined: 17 Sep 2006 Posts: 4
|
(Separately) Posted: Mon Sep 18, 2006 09:06 Post subject: |
|
|
А можно узнать хотя бы как работает функция SendCommand? |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Mon Sep 18, 2006 12:12 Post subject: |
|
|
Code: | SendMessage(TCMainHwnd, 1075, cmdnumber, 0) |
|
|
Back to top |
|
|
Uy
Joined: 17 Sep 2006 Posts: 4
|
(Separately) Posted: Mon Sep 18, 2006 17:18 Post subject: |
|
|
Огромное спасибо! )) Жду с нетерпением новых версий и, конечно, раскрытие исходников. Удачи! |
|
Back to top |
|
|
Parcan
Joined: 15 Dec 2004 Posts: 398 Location: Russian
|
(Separately) Posted: Tue Sep 19, 2006 16:59 Post subject: |
|
|
Вопрос может не совсем по теме:
заметил что после работы чистильщиков реестра в скриптах перестает работать конструкция "Set Query = New RegExp" типа такого объекта не существует.
сейчас реестр вообще не чищу, но если не изменяет память пользовался следующими: блин память изменяет, помоему WWW-расшифровку не помню, из NeoUtilities, RegCleaner который потом стал каким то там jtools или что то созвучное возможно еще чемто, вообще за свою жизнь пользовался 5ю чистильщиками реестра и после всех был один и тот же результат.
это как нибудь можно поправить? а то у меня в 1С один скрип из за этого не работает, который ну очень облегчает жизнь при конфигурировании. |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Tue Sep 19, 2006 17:56 Post subject: |
|
|
Выполни в командной строке Code: | regsvr32 vbscript.dll | находясь в системной папке винды. |
|
Back to top |
|
|
Parcan
Joined: 15 Dec 2004 Posts: 398 Location: Russian
|
(Separately) Posted: Wed Sep 20, 2006 10:47 Post subject: |
|
|
спасибо дома попробую, но мне наверное потребуется regsvr32 jscript.dll |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Wed Sep 20, 2006 12:56 Post subject: |
|
|
Parcan wrote: | но мне наверное потребуется regsvr32 jscript.dll |
Если у тебя скрипты написаны на JScript, то - да. В любом случае лучше при таких проблемах полностью переустановить WSH. Переустановка не создает никаких дополнительных проблем. |
|
Back to top |
|
|
Uy
Joined: 17 Sep 2006 Posts: 4
|
(Separately) Posted: Wed Sep 20, 2006 13:31 Post subject: |
|
|
Хотелось бы узнать, появится ли возможность установки хуков на события в ТС? Или это невозможно выполнить посредством СОМ-сервера? |
|
Back to top |
|
|
Volniy
Joined: 15 Dec 2004 Posts: 585 Location: Местный
|
(Separately) Posted: Wed Sep 20, 2006 23:47 Post subject: |
|
|
Uy wrote: | Хотелось бы узнать, появится ли возможность установки хуков на события в ТС? Или это невозможно выполнить посредством СОМ-сервера? |
Даже не знаю, что ответить . Трудно уложить рядом на одну полку хуки и COM-сервер, написанный на VB. Да и к чему это все нужно? |
|
Back to top |
|
|
|