ДомойНовостиФорумСтатьиКонтактыПортфолио
Форумы
Портал L-¤-D™ :: Форумы :: Total Commander :: База кнопок Total Commander
 
<< Предыдущая тема | Следующая тема >>
TC и скрипты
Переход на страницу  1 2
Модераторы: L-¤-D™
Автор Добавил
L-¤-D™
05.02.2007 — 16:12:13


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167

В этой теме предлагается обсуждение и обмен информацией, касающейся взаимодейсвия Total Commander, его кнопок и скриптов.

Для простоты и удобства указания относительного пути к объекту предлагаю ввести некую условную переменную %pp%.
Эта переменная никоим образом не относится к системным переменным или внутренним переменным Total Commander.
Повторю, она будет использоваться только в настоящем форуме для простоты и удобства указания условного пути к объекту.

Этим условным путем может быть любой абсолютный или относительный путь к объекту вашей системы, который вы, как предполагается, в дальнейшем, исправите на свой.

Итак, назову эту переменную для простоты и краткости %pp% (от %program_path% — путь к программе).
Таким образом, конструкция полного пути к объекту будет выглядеть следующим образом

Код:
  1. %pp%\program.exe


  
Наверх
L-¤-D™
05.02.2007 — 16:13:41


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 Назначение: эта кнопка будет помогать создавать и дополнять Вам информацию. Можно использовать ее для мгновенной записи любой нужной информации в файл, а также, что немаловажно, дополнять этот файл новой информацией, то есть, попросту говоря, кнопка будет записывать любую информацию из буфера обмена в указанный Вами файл на панель тотала...

Код:
  1. CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0),8,1).Write String(80,"~")&vbCrLf&CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")&vbCrLf&vbCrLf
сохраните этот код как файл *.vbs, например, desc.vbs и поместите в удобное для вас место, (можно и нужно в какой либо каталог внутри тотала :), после чего используйте такую кнопку

Код:
  1. TOTALCMD#BAR#DATA
  2. %pp%\*.vbs
  3. ?"Имя файла.txt"
  4. write.exe
  5. Создание и добавление описания в файл

Если нужно всегда одно и то же имя файла, в 3-й строке кнопки убрать начальный знак вопроса
В кнопке, разумеется, можно и нужно использовать внутреннюю переменную %commander_path%
Можно забиндить этот процесс на горячую клавишу :), как? ищем здесь.

  
Наверх
L-¤-D™
23.02.2007 — 17:54:12


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 Кнопка для загрузки файлов из интернета прямо в панель тотала, с помощью wget
Для работы понадобится Script Helper

1. Создаем скрипт download.vbs с таким содержанием

Код:
  1. set W = WScript.CreateObject("WScript.Shell")
  2. set TCS = CreateObject("TCScript.Helper")
  3. Str = TCS.GetTextFromClip
  4. For i = 1 To Len(Str)
  5. Ch = Mid(Str, i, 1)
  6. ChCode = Asc(Ch)
  7. If (ChCode > 191) or (ChCode = 32) or (ChCode = 168) or (ChCode = 184) Then
  8. StrF = StrF & "%" & Hex(ChCode)
  9. Else
  10. StrF = StrF & Ch
  11. End If
  12. Next
  13. TCS.LockTC True
  14. W.Run"%pp%\wget -N -nd -v -c -t 0 --ftp-user=anonymous "&StrF, 2
  15. TCS.LockTC False
Примечание: здесь в указании пути к wget допускается использование %commander_path%, думаю, это должно понравиться любителям портативности.

2. Кнопка для него

Код:
  1. TOTALCMD#BAR#DATA
  2. %pp%\download.vbs
  3.  
  4. %pp%\значок
  5. Загрузить ссылку

Принцип работы: копируем адрес ссылки, нажимаем кнопку, и файл через некоторое время у вас в активной панели, причем, если версия файла на сервере та же, что и у вас на панели, то загрузки не будет, а, следовательно, и трафик на повторную загрузку расходоваться не будет.
Если, по каким-либо причинам, загрузка сорвалась, повторите загрузку и она продолжится с места разъединения.
В отличие от копирования самим тоталом, операция будет проходить в фоне, так что вы можете смело закрывать тотал, перезапускать его и продолжать работать в нем дальше, а также забыть об обрывах, ..., и т.д., ну вы сами знаете, что такое встроенный загрузчик тотала.

Внимание: поскольку до сих пор существует баг при работе скриптов в русской раскладке, вы должны либо сами контролировать, чтобы раскладка была английской, либо использовать программу-автопереключатель раскладки клавиатуры Punto Switcher и забыть о проблеме раз и навсегда.

  
Наверх
L-¤-D™
25.07.2007 — 10:48:48


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 А вот, пожалуй, улучшенная версия. Дошли руки дописать.
Script Helper больше не понадобится. Портативность налицо.

Код:
  1. StrF = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
  2. If StrF <> "" Then
  3. For i = 1 To Len(Str)
  4. Ch = Mid(Str, i, 1)
  5. ChCode = Asc(Ch)
  6. If (ChCode > 191) or (ChCode = 32) or (ChCode = 168) or (ChCode = 184) Then
  7. StrF = StrF & "%" & Hex(ChCode)
  8. Else
  9. StrF = StrF & Ch
  10. End If
  11. Next
  12. CreateObject("WScript.Shell").Run"%pp%\wget -N -nd -v -c -t 0 --ftp-user=anonymous "&StrF, 2
  13. End If


  
Наверх
L-¤-D™
12.12.2007 — 03:35:37


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 JS-cкрипт для создания RaR-архивов из выделенных объектов.
Основные задачи, поставленные перед скриптом, таковы:
архивирование выделенных объектов (файлов и/или папок) одним нажатием, получая в имени будущего архива родительский каталог и дату со временем такой структуры ParentDirName_[year.month.day-hours.minutes.seconds]

Код:
  1. // В качестве команды указываем путь к скрипту
  2. // допускаетcя использование %commander_path%
  3. // Параметры кнопки: %S
  4. // Автор: LocKtaR-o-DarK™
  5. objFolder=''
  6. outDir=WScript.CreateObject('WScript.Shell').CurrentDirectory.replace(/\//gi,'\\')+'\\'
  7. objFolder=outDir.replace(/.*\\([^\\]*)\\/,'$1')
  8. if (objFolder==''){objFolder='Root'}
  9. strArg=''
  10. for (i=0;i<WScript.Arguments.length;i++){
  11. strArg+=' "'+WScript.Arguments(i)+'"'}
  12. cmd='cmd /c title RaR-packing secure... &%commander_path%\\arc\\rar a -m5 -os -s -ep1 -ag_[yyyy.mm.dd-hh.mm.ss] -hpПАРОЛЬ "'+objFolder+'.rar"'+strArg
  13. WScript.CreateObject('WScript.Shell').Run(cmd,2)

Для создания самораспаковывающихся архивов создаем схожий скрипт
и добавляем к команде параметр -sfx%pp%\\Default.SFX

  
Наверх
L-¤-D™
12.12.2007 — 03:41:46


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 JS-cкрипт для создания 7z-архивов из выделенных объектов

Код:
  1. // В качестве команды указываем путь к скрипту
  2. // допускаетcя использование %commander_path%
  3. // Параметры кнопки: %S
  4. // Автор: LocKtaR-o-DarK™
  5. function fDateTime(){
  6. d=new Date()
  7. year=d.getYear()
  8. day=d.getDate()
  9. month=d.getMonth()+1
  10. if (month<10){month='0'+month}
  11. h=d.getHours()
  12. if (h<10){h='0'+h}
  13. m=d.getMinutes()
  14. if (m<10){m='0'+m}
  15. s=d.getSeconds()
  16. if (s<10){s='0'+s}
  17. return('['+year+'.'+month+'.'+day+'-'+h+'.'+m+'.'+s+']')}
  18. objFolder=''
  19. outDir=WScript.CreateObject('WScript.Shell').CurrentDirectory.replace(/\//gi,'\\')+'\\'
  20. objFolder=outDir.replace(/.*\\([^\\]*)\\/,'$1')
  21. if (objFolder==''){objFolder='Root'}
  22. strArg=''
  23. for (i=0;i<WScript.Arguments.length;i++){
  24. strArg+=' "'+WScript.Arguments(i)+'"'}
  25. cmd='cmd /c title 7z-packing... &%commander_path%\\arc\\7z a -m0=bcj -m1=lzma:d=21 -ms -mmt -pПАРОЛЬ "'+objFolder+'_'+fDateTime()+'.7z"'+strArg
  26. WScript.CreateObject('WScript.Shell').Run(cmd,2)

Для создания самораспаковывающихся архивов создаем схожий скрипт
и добавляем к команде параметр -sfx%pp%\\7z.sfx, при этом не забываем сменить расширение .7z на .exe

  
Наверх
L-¤-D™
12.12.2007 — 03:44:52


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 JS-cкрипт для создания Zip-архивов из выделенных объектов, используя архиватор 7-Zip

Код:
  1. // В качестве команды указываем путь к скрипту
  2. // допускаетcя использование %commander_path%
  3. // Параметры кнопки: %S
  4. // Автор: LocKtaR-o-DarK™
  5. function fDateTime(){
  6. d=new Date()
  7. year=d.getYear()
  8. day=d.getDate()
  9. month=d.getMonth()+1
  10. if (month<10){month='0'+month}
  11. h=d.getHours()
  12. if (h<10){h='0'+h}
  13. m=d.getMinutes()
  14. if (m<10){m='0'+m}
  15. s=d.getSeconds()
  16. if (s<10){s='0'+s}
  17. return('['+year+'.'+month+'.'+day+'-'+h+'.'+m+'.'+s+']')}
  18. objFolder=''
  19. outDir=WScript.CreateObject('WScript.Shell').CurrentDirectory.replace(/\//gi,'\\')+'\\'
  20. objFolder=outDir.replace(/.*\\([^\\]*)\\/,'$1')
  21. if (objFolder==''){objFolder='Root'}
  22. strArg=''
  23. for (i=0;i<WScript.Arguments.length;i++){
  24. strArg+=' "'+WScript.Arguments(i)+'"'}
  25. cmd='cmd /c title 7ip-packing... &%commander_path%\\arc\\7z a -tzip -pПАРОЛЬ "'+objFolder+'_'+fDateTime()+'.zip"'+strArg
  26. WScript.CreateObject('WScript.Shell').Run(cmd,2)

Для создания самораспаковывающихся архивов создаем схожий скрипт
и добавляем к команде параметр -sfx%commander_path%\\SFXHEAD.SFX, при этом не забываем сменить расширение .zip на .exe

  
Наверх
L-¤-D™
08.06.2008 — 02:01:36


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 VBS-cкрипт для удаления концевых пробелов в выделенных файлах

Код:
  1. ' В качестве команды указываем путь к скрипту
  2. ' допускаетcя использование %commander_path%
  3. ' Параметры кнопки: %S
  4. ' Автор: LocKtaR-o-DarK™
  5. If WScript.Arguments.Count=0 Then
  6. MsgBox "Не заданы параметры!",,"Удаление концевых пробелов"
  7. WScript.Quit
  8. End If
  9. Set fso=CreateObject("Scripting.FileSystemObject")
  10. For Each warg In WScript.Arguments
  11. Set f=fso.GetFile(warg)
  12. Set txt=f.OpenAsTextStream(1)
  13. Str=""
  14. While Not txt.AtEndOfStream
  15. Str=Str&RTrim(txt.ReadLine())&vbCrLf
  16. Wend
  17. txt.Close
  18. set f1=fso.OpenTextFile(warg,2)
  19. f1.Write Str
  20. f1.Close
  21. Next


  
Наверх
L-¤-D™
25.06.2008 — 17:58:33


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 vbs-скрипт для переименования выделенных файлов по маске из буфера обмена

Код:
  1. ' В качестве команды указываем путь к скрипту
  2. ' допускаетcя использование %commander_path%
  3. ' Параметры кнопки: %L
  4. ' Автор: LocKtaR-o-DarK™
  5. If WScript.Arguments.Count=0 Then
  6. MsgBox "Не заданы параметры!",,"Переименование файлов по маске из буфера"
  7. WScript.Quit
  8. End If
  9. CreateObject("WScript.Shell").Run "cmd /c chcp 1251>nul&cmd /c for /f "&"""delims="""&" %a in ("&WScript.Arguments(0)&") do ren "&"""%a"""&" """&CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")&"_%~nxa""" ,0


Пример кнопки

Код:
  1. TOTALCMD#BAR#DATA
  2. %commander_path%\wsh\renbm.vbs
  3. %L
  4. shell32.dll,65
  5. Переименование файлов по маске из буфера обмена
  6.  
  7. 1


  
Наверх
L-¤-D™
04.08.2009 — 12:43:43


ID пользователя #1
Зарегистрирован: 26.11.2006 — 00:41:08

Сообщений: 167
 Ситуация такова:
Вы работаете в Total Commander и обнаружили, что версия Total Commander обновилась
Вы загрузили новую версию, распаковали дистрибутив и...
Для того, чтобы обновить Total Commander, Вам нужно выполнить много лишних телодвижений
Поскольку главный исполняемый файл TOTALCMD.EME и некоторые библиотеки DLL заняты процессом TOTALCMD.EME, их не удаётся заменить
Специально для таких ситуаций был разработан Скрипт для обновления Total Commander прямо из Total Commander
Задача которого: заменить занятые файлы из указанной папки с новым дистрибутивом в папку с Вашим рабочим Total Commander

Код:
  1. set w=CreateObject("WScript.Shell")
  2. w.Run("%commander_path%\totalcmd /o"),1,1
  3. WScript.Sleep 100
  4. w.SendKeys("%{F4}")
  5. WScript.Sleep 400
  6. p=WScript.Arguments(0)
  7. d=w.Environment("process").Item("commander_path")
  8. CreateObject("Scripting.FileSystemObject").CopyFile p&"TOTALCMD.EXE", d&"\",1
  9. CreateObject("Scripting.FileSystemObject").CopyFile p&"*.DLL", d&"\",1
  10. w.Run("%commander_path%\totalcmd")


пример кнопки

Код:
  1. TOTALCMD#BAR#DATA
  2. %commander_path%\wsh\Total_Update.vbs
  3. "%P"
  4. cmd.exe
  5. Обновить исполняемый файл TC


  
Наверх
Переход на страницу  1 2  

Перейти:     Наверх


Яндекс.Метрика
Счетчик тИЦ и PR
© 2006-2024 Создано 
бесплатный счетчик
Время генерации страницы:0.1753 сек.,0.0079 из этого заняли запросы.Запросов к БД:23.