View previous topic :: View next topic |
Author |
Message |
Serge Yolkin
Joined: 25 Jul 2009 Posts: 664
|
(Separately) Posted: Mon Jul 19, 2010 16:17 Post subject: |
|
|
ask-rus
Кинуть могу только почтой
Теперь по теме.
1. Файл завершает работу (закрывает окно), или вроде как висит?
2. Если завершает, не сжат ли уже winamp.exe UPXом?
3. Если "зависает" - в каталоге с winamp.exe появляется winamp.upx? |
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Mon Jul 19, 2010 16:39 Post subject: |
|
|
Serge Yolkin wrote: | 1. Файл завершает работу (закрывает окно), или вроде как висит? |
Нет. Ничего не происходит.
Serge Yolkin wrote: | 2. Если завершает, не сжат ли уже winamp.exe UPXом? |
Нет.
Serge Yolkin wrote: | 3. Если "зависает" - в каталоге с winamp.exe появляется winamp.upx? |
Нет.
Serge Yolkin wrote: | Кинуть могу только почтой |
ask-rus@mail.ru
Взял с почты. Работает, но непонятно, что это за ".../36"?
Что это за 36 проходов по одному файлу?! _________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009 Posts: 664
|
(Separately) Posted: Tue Jul 20, 2010 00:29 Post subject: |
|
|
ask-rus
Использован ключ best программы UPX - выбирается лучший (по степени сжатия) алгоритм из 36-и возможных. Долго, но качественно. Можно изменить командную строку запуска UPX: UPX /? |
|
Back to top |
|
|
Serge Yolkin
Joined: 25 Jul 2009 Posts: 664
|
(Separately) Posted: Tue Jul 20, 2010 00:33 Post subject: |
|
|
ask-rus
Кстати, если не в лом: сравните, пожалуйста файл из почты с кодом в моем посте. По-моему одно и то-же. |
|
Back to top |
|
|
ask-rus
Joined: 10 Nov 2009 Posts: 2076 Location: Russian Federation
|
(Separately) Posted: Tue Jul 20, 2010 17:01 Post subject: |
|
|
Serge Yolkin wrote: | Кстати, если не в лом: сравните, пожалуйста файл из почты с кодом в моем посте. По-моему одно и то-же. |
По-моему то-же. Скорей всего дело в этом:
Batya wrote: | удалил все пробелы на концах строк |
Или этом :
Serge Yolkin wrote: | .cmd файлы имеют кодировку OEM (866) |
_________________ «Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10257 Location: Россия, Саратов
|
(Separately) Posted: Fri Aug 06, 2010 15:33 Post subject: |
|
|
Вниманию посетителей форума
Тема создавалась для представления готовых кодов кнопок. В первом посте, если кто забыл, было ясно сказано, что обсуждение идёт в другом месте. (Если надо, со ссылкой на основную тему.) У меня есть ощущение, что тут уже напрочь забыли об этом факте. См. также это предупреждение.
Короче говоря, по прежним постам правки в теме, скорее всего, не будет, но по новым порядок придётся наводить. Начиная с сегодняшних сообщений, перенесённых по принадлежности в дочернюю тему, расположенную теперь в "Автоматизации". _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
GGS
Joined: 02 May 2009 Posts: 322
|
(Separately) Posted: Sun Aug 08, 2010 12:37 Post subject: |
|
|
Создание пустого текстового файла (со счётчиком) в текущей папке
Code: | TOTALCMD#BAR#DATA
cmd /c if /i not exist "Новый файл.txt" (CD.>"Новый файл.txt"&exit) else for /l %a in (2,1,999) do if /i not exist "Новый файл (%a).txt" (CD.>"Новый файл (%a).txt"&exit)
Wcmicons.dll,28
Новый файл
1
-1
|
|
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Aug 10, 2010 12:53 Post subject: |
|
|
Модифицированный вариант скрипта создаёт несколько ярлыков на рабочем столе по отмеченным в TC файлам и папкам:
Code: | ' ===============================================
' Авторы: SkOle, Batya
' Описание: Создает ярлыки на рабочем столе
' Параметры: %L
' ===============================================
Option Explicit
If WScript.Arguments.Count > 0 Then
Dim WSH, FSO, Desktop, F
Set WSH = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Desktop = WSH.SpecialFolders("Desktop")
For Each F In Split(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine)
If FSO.FileExists(F) Or FSO.FolderExists(F) Then
With WSH.CreateShortcut(Desktop & "\" & FSO.GetBaseName(F) & ".lnk")
.TargetPath = F
.WorkingDirectory = FSO.GetParentFolderName(F)
.Save
End With
End If
Next
Set FSO = Nothing
Set WSH = Nothing
End If
WScript.Quit |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon Sep 20, 2010 18:11 Post subject: |
|
|
Просьба на кнопку здесь.
Кнопка:
Quote: | TOTALCMD#BAR#DATA
Диск:\Путь\к\скрипту\Скрипт.vbs
%Commander_Path%\WCMICONS.DLL,59
Копирование в буфер имен с путями с заменой "ftp" на "http"
-1
|
Скрипт.vbs (путь к файлу скрипта в приведённой кнопке отмечен зелёным цветом):
Code: | With CreateObject("TCScript.Helper")
.SendCommand "cm_CopyFullNamesToClip"
.SetTextToClip(Replace(.GetTextFromClip, "ftp", "http"))
End With |
Внимание. Для работы скрипта требуется TCScript.Helper. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Samwatas
Joined: 12 Sep 2009 Posts: 95
|
(Separately) Posted: Tue Sep 28, 2010 10:53 Post subject: |
|
|
---
Last edited by Samwatas on Wed Oct 13, 2010 23:12; edited 1 time in total |
|
Back to top |
|
|
Rodny
Joined: 24 Jan 2007 Posts: 949 Location: Могилёв, Беларусь
|
(Separately) Posted: Tue Sep 28, 2010 12:04 Post subject: |
|
|
Samwatas wrote: | тотал не поддерживает псевдопеременную %COMMANDER_PATH% в строке параметров (он переопределяет первых два символа как несуществующий параметр %C) |
Кхе-кхе...
Справка wrote: | Диалоговое окно: Конфигурация – Панель инструментов / Параметры:
<...>
%%вставляет знак процента. |
То бишь, если нужно использовать в параметрах переменные, проценты нужно удвоить: %%COMMANDER_PATH%% |
|
Back to top |
|
|
Samwatas
Joined: 12 Sep 2009 Posts: 95
|
(Separately) Posted: Tue Sep 28, 2010 12:50 Post subject: |
|
|
---
Last edited by Samwatas on Wed Oct 13, 2010 23:12; edited 1 time in total |
|
Back to top |
|
|
Rodny
Joined: 24 Jan 2007 Posts: 949 Location: Могилёв, Беларусь
|
(Separately) Posted: Tue Sep 28, 2010 14:19 Post subject: |
|
|
Samwatas
А разве не все запущенные из TC программы автоматически разворачивают все его переменные? Я просто ни разу не программист, но такое работает:
Quote: | TOTALCMD#BAR#DATA
cmd /k
dir %%COMMANDER_PATH%%
D:\Programs\totalcmd\WCMICONS.DLL,74
0
-1
|
|
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Wed Oct 13, 2010 21:37 Post subject: |
|
|
Не секрет, но иногда удобно панель инструментов увидеть и использовать в виде меню:
Code: | TOTALCMD#BAR#DATA
%Commander_Path%\DEFAULT.BAR
wcmicons.dll,15
Панель Default в виде меню
1
-1
|
PS Пример использования здесь. |
|
Back to top |
|
|
|