vbs Вставка водяных знаков в фото

[angel_lyucifer]

Всем привет, помогите пожалуйста создать vbs скрипт.
Для вставка водяных знаков в фото, вот скрипт нашёл...

Процедура Сформировать()
Перем Путь,Имя;
Если ФС.ВыбратьФайлКартинки(0,Имя,Путь,"","(*.jpg)|*.jpg","jpg")=0 Тогда
Возврат;
КонецЕсли;
Шел=СоздатьОбъект("Shell.Application");
Папка=Шел.NameSpace(Путь);
Файл=Папка.ParseName(Имя);
Для Сч=-1 По 47 Цикл
Сообщить(""+Сч+". "+Папка.GetDetailsOf(Папка.Items(),Сч)+": "+Папка.GetDetailsOf(Файл,Сч));
КонецЦикла;

Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="vbscript";
Картинка=Скрипт.Eval("LoadPicture("""+Путь+Имя+""")");
Сообщить(""+Картинка.Width+" x "+Картинка.Height);
КонецПроцедуры



Но я не пойму его!

[Iska]

angel_lyucifer, во-первых, это не «vbs скрипт», а код на языке 1С v7.7 Предприятие. Во-вторых, он не имеет ни малейшего отношения к «вставке водяных знаков в фото».

Изложите детали. Укажите, можно ли использовать сторонние компоненты.

[angel_lyucifer]

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

[Iska]

я пытаюсь создать программу для скриншотов »
нужен скрипт »
Опп-ля. Почему бы тогда попросту не добавить данный функционал в само приложение (кстати, на чём пишете)? К чему тут скрипт?!

[angel_lyucifer]

Опп-ля. Почему бы тогда попросту не добавить данный функционал в само приложение (кстати, на чём пишете)? »
На давно всеми забытом языке Бесик...

[Iska]

На давно всеми забытом языке Бесик... »
А конкретней? Их весьма много.

[angel_lyucifer]

ОХ, в основе моей программы лежит пакетный файл виндовс,который контролирует все процессы для интерфейса программы Я использую файл hta для озвучивания программы я использую скрипты vbs и для диалогов , но мне нужен скрипт нанесения информации на картинку при запуске скрипта должен срабатывать и наносить мой собственный текст на картинку , если такое не возможно , ну и ладно, не буду больше беспокоить, зарание спасибо.

[Iska]

angel_lyucifer, именно встроенными средствами и именно «водяных» знаков — навряд ли выйдет. Перечислю основные возможности.

1. Библиотека Windows Image Acquisition — Википедия (https://ru.wikipedia.org/wiki/Windows_Image_Acquisition). Возможно простое наложение одного изображения поверх другого: Stamp Filter: Stamp a Picture Over Another Picture (http://msdn.microsoft.com/ru-ru/library/windows/desktop/ms630819(v=vs.85).aspx#itemStamp). См. также третий пример отсюда: VBScript: работа с графическими файлами — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум (http://forum.script-coding.com/viewtopic.php?id=2846).

Можно «рисовать» посредством «ручной» корректировки массива ARGB, составляющего пиксели изображения: ARGB Filter: Create a Modified Version of an Image (http://msdn.microsoft.com/ru-ru/library/windows/desktop/ms630819(v=vs.85).aspx#FilterSharedSample026), что, в принципе, позволяет проделывать определённые манипуляции, но я лично за подобные извращения не возьмусь.

2. Библиотека GFL SDK (http://www.xnview.com/fr/GFL/). Возможно как наложение одного изображения поверх другого, так и рисование произвольным текстом поверх изображения.

3. Библиотека ImageMagick — Википедия (http://ru.wikipedia.org/wiki/ImageMagick). Читайте: Annotating -- IM v6 Examples (http://www.imagemagick.org/Usage/annotating/#wmark_image) (работа с объектом ImageMagick в конечном счёте банально сводится к применению того же набора параметров, что и в командной строке утилит).

4. Разнообразные утилиты командной строки, вызываемые из скрипта.