|
ЗАКАЗ СКРИПТОВ
|
|
| Andrey_A | Дата: Среда, 29.02.2012, 23:46 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
ЗАКАЗ СКРИПТОВ
В этой теме Вы можете высказывать идеи о написании того или иного скрипта. Если Вы столкнулись с монотонной задачей, которую можно автоматизировать и не знаете как это сделать, Вы можете описать свою проблему здесь и возможно найдутся те, кто подскажет как её решить.
Большая просьба чётко описывать задачу, от этого будет зависеть качество её решений
Готовые решения будут открепляться в отдельные темы
[info]
Тема по большому счёту закрыта, т.к. я больше не пишу отдельных скриптов...
Большинство скриптов для Total Commander вошли в функционал в утилиты TCIMG
[/info]
|
| |
| |
| shveicar | Дата: Пятница, 26.10.2012, 13:43 | Сообщение № 121 |
|
|
Quote (Andrey_A) Я думаю поможет: Как найти, выделить файлы, путь которых включает в себя строки из списка?
Спасибо, все подробно и понятно.
Сообщение отредактировал shveicar - Пятница, 26.10.2012, 13:44 |
| |
| |
| Andrey_A | Дата: Пятница, 26.10.2012, 16:13 | Сообщение № 122 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Quote (kibroma) Вот если бы скрипт следил за файлами в первой указанной папке и когда изменился файл (например размер) то копировал без запроса во вторую указанную папку, это бы была осуществлена мечта наверное многих верстальщиков!!!)))
Что-то подобное родилось CopyFilesAtResizing.vbs - Слежение за папкой и копирование файла при изменении его размера
Конечно, ещё тестировать и тестировать... если что продолжим в теме скрипта
|
| |
| |
| TePPoPucT | Дата: Воскресенье, 28.10.2012, 16:48 | Сообщение № 123 |
Рядовой
На сайте с: 28.10.2012
Город: Уфа
Сообщений: 6
|
Здравствуйте.
Нужна помощь в создании скрипта.
Требуется скрипт который проверяет папку на наличие нового файла и этот новый файл отправлял на печать(пдф принтер, если это важно), после чего этот файл должен быть вырезан и перемещен в другую папку (также вариант просто с удалением будет неплох, но если есть возможноть лучше с вырезанием).
Дело в том что я скрипты никогда не писал, а на работе внезапно озадачили. Я ваще компы крутил, а тут - скрипт.
У меня есть вот такое тело скрипта для проверки папки на наличие файла, но так как я не имею опыта в написании скриптов-для меня нарисовалась проблема в дополнении этого тела нужными мне функциями - отправка на печать, удаление/перемещение файла. Скрипт по отправке на печать файла я нашел, а вот как добавить его в тело основного скрипта - не знаю.
Quote strDir = "c:\temp" ' каталог, за которым следим
strComputer = "." ' имя компьютера; "." означает текущий компьютер
'==============================================================================
strDirSlash = Replace(strDir, "\", "\\\\")
strNamespace = "Root\CIMV2"
' Подключаемся к пространству имен
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")
objService.ExecNotificationQueryAsync objSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " &_
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " &_
"TargetInstance.GroupComponent= " &_
"'Win32_Directory.Name=""" & strDirSlash & """'"
' Выводим сообщение о запуске сканера
Wscript.Echo "Запущен сканер создания файла в папке " & strDir
' Запускаем бесконечный цикл ожидания
While 1
WScript.Sleep 1000
Wend
' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
strResult = Date & " " & Time & vbCrLf &_
"Создан файл: " & oOutParams.TargetInstance.PartComponent
Wscript.Echo strResult
End Sub
Quote Option Explicit
Const PrintFolder = "C:\temp\"
DIM objShell : Set objShell = CreateObject("Shell.Application")
DIM objFolder : Set objFolder = objShell.Namespace(PrintFolder)
Dim objItem
For Each objItem in objFolder.Items
'WScript.Echo "Printing..." & objItem.Path
objItem.InvokeVerbEx("Print")
Next
Помогите пожалуйста, уже голова пухнет от всего этого....
|
| |
| |
| Andrey_A | Дата: Воскресенье, 28.10.2012, 19:20 | Сообщение № 124 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Quote (TePPoPucT) Помогите пожалуйста, уже голова пухнет от всего этого....
Не было времени тестировать , на работе, если что позже посмотрю подробнее:
Доступно только для пользователей
|
| |
| | |
| wisdom | Дата: Воскресенье, 28.10.2012, 20:52 | Сообщение № 126 |
Сержант
На сайте с: 25.10.2012
Город: Волгоград
Сообщений: 20
|
Здравствуйте! Помогите с таким скриптом(минипрогой). Когда в программе для сёрфинга SafeSurf закончатся сайты просмотра, то через определённое время(до 1-5 минут) запустить батник с названием newip.bat(имеется в наличии), который изменяет IP. Спасибо!
В файле .txt папки f программы SafeSurf меняется ID сайта, когда сайтов для просмотра нет, то там написано 0:: и число.
Помогите, пожалуйста!
|
| |
| |
| Andrey_A | Дата: Понедельник, 29.10.2012, 11:15 | Сообщение № 127 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Quote (TePPoPucT) Спасли просто
Пусть вам премию выписывают)))
Подправил, версия 1.1
TrackingDirAndSendFilePrint.vbs - Слежение за папкой, при появлении в ней нового файла, он посылается на печать и удаляется...
Quote (wisdom) Помогите с таким скриптом(минипрогой). Когда в программе для сёрфинга SafeSurf ...
Попробуйте TrackingFileAndRunBat.vbs - Слежение за файлом, при появлении в содержимом "0::", запускается батник через 5 мин
если необходимо подправить, то продолжим в теме скрипта
|
| |
| |
| wisdom | Дата: Понедельник, 29.10.2012, 20:49 | Сообщение № 128 |
Сержант
На сайте с: 25.10.2012
Город: Волгоград
Сообщений: 20
|
Добрый вечер! Требуется скрипт вот для чего. В проге utorrent установлены, к примеру, 4 торрента, но не запущены на скачивание. Запускаю верхний в списке на скачивание и когда он скачается(будет раздаваемым), то запускается следующий и так далее, пока не скачаются все, т.е. не параллельное скачивание, а последовательное.
Спасибо.
|
| |
| |
| 12 | Дата: Воскресенье, 04.11.2012, 00:22 | Сообщение № 129 |
Рядовой
На сайте с: 04.11.2012
Город: Харьков
Сообщений: 1
|
Здравствуйте, кто-нибудь может написать скрипт vbs при запуске которого все сохраненные пароли браузеров скинутся текстовым документом в указанную папку ? Заранее спасибо!
|
| |
| |
| shveicar | Дата: Воскресенье, 04.11.2012, 03:47 | Сообщение № 130 |
|
|
wisdom
В utorent(3.1), в настройках, есть опция, - очередность, ставите 1 и будет то что вам нужно. Еще есть планировщик, и масса других полезных опций...
12Quote (12) Здравствуйте, кто-нибудь может написать скрипт vbs при запуске которого все сохраненные пароли браузеров скинутся текстовым документом в указанную папку
Здесь Мне кажется, не все так просто, пароли в браузерах хранятся в зашифрованном виде, и извлечь их, без расшифровки - нельзя, разве что в виде хеша.
Хотя для некоторых браузеров (например firefox) есть расширение password-exporter, которое как раз для этого создано. Возможно для других браузеров есть что-то похожее, но ими не пользуюсь, и другой информации не имею.
Теперь просьба: доработать скрипт
Копирование или перемещение списка каталогов и файлов в создаваемый каталог с именем файла или каталога под курсором
ссылка на тему чтобы он работал с рекурсией. (с возможным перемещением файлов и(или) папок из разных каталогов).
Поясню: частенько, бывает необходимо через поиск найти файлы с определенным расширением, после выведения результатов, выделенное необходимо переместить в противоположную панель с созданием каталога из имени главного, - вот тут то, скрипт и буксует..
Спасибо.
Сообщение отредактировал shveicar - Воскресенье, 04.11.2012, 03:54 |
| |
| |
| wisdom | Дата: Вторник, 06.11.2012, 17:28 | Сообщение № 131 |
Сержант
На сайте с: 25.10.2012
Город: Волгоград
Сообщений: 20
|
Здравствуйте! Есть скрипт vbs. Как его запустить в скрипте Autoit? Спасибо.
|
| |
| |
| Andrey_A | Дата: Вторник, 06.11.2012, 23:02 | Сообщение № 132 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Quote (wisdom) Здравствуйте! Есть скрипт vbs. Как его запустить в скрипте Autoit? Спасибо.
Code _ProcessExistsVbs()
Func _ProcessExistsVbs()
$SC = ObjCreate("MSScriptControl.ScriptControl")
$SC.language = "VBScript"
$VBSCode = 'здесьпрописывается весь скрипт vbs, строки разделяются двоеточием'
$SC.ExecuteStatement($VBSCode)
EndFunc
|
| |
| |
| wisdom | Дата: Среда, 07.11.2012, 11:21 | Сообщение № 133 |
Сержант
На сайте с: 25.10.2012
Город: Волгоград
Сообщений: 20
|
Не так написал. Есть скрипт vbs. Нужно, чтобы файл autoit(может бат файл) запускал скрипт vbs(как двойной клик мыши, но скрытно).
|
| |
| |
| shveicar | Дата: Среда, 07.11.2012, 11:24 | Сообщение № 134 |
|
|
Всех приветствую.
Вопрос скорее всего относится к этой теме, - суть в следующем: необходим "инструмент" который позволит выделить все (файлы - каталоги или то и другое вместе) по диапазону букв (желательно с поддержкой кириллицы). Конечно, в идеале нужно окно с запросом диапазона, чтобы не плодить тучу кнопок. Например а-м(А-М) или d-k(D_K). Заглавные или прописные, - значения не имеет.
Если есть возможность добавить в него так же, - и выделение и по диапазону цифр (1-6) (7-9) будет просто великолепно.
Надеюсь на помощь.
Спасибо.
|
| |
| |
| Andrey_A | Дата: Среда, 07.11.2012, 16:43 | Сообщение № 135 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
|
Quote (wisdom) Не так написал. Есть скрипт vbs. Нужно, чтобы файл autoit(может бат файл) запускал скрипт vbs(как двойной клик мыши, но скрытно).
Почему именно autoit?
Что значит скрытно?
Quote (shveicar) позволит выделить все (файлы - каталоги или то и другое вместе) по диапазону
Этот функционал пока тестируется в утилите TCIMG - придётся подождать, включён и включается огромнейший функционал в утилиту
|
| |
| |
|
