vbs Вставка водяных знаков в фото - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - vbs Вставка водяных знаков в фото (http://forum.oszone.net/showthread.php?t=289091)

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

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

PHP код:


		
			
Процедура Сформировать()

    Перем Путь,Имя;

    Если ФС.ВыбратьФайлКартинки(0,Имя,Путь,"","(*.jpg)|*.jpg","jpg")=0 Тогда

        Возврат;

    КонецЕсли;

    Шел=СоздатьОбъект("Shell.Application");

    Папка=Шел.NameSpace(Путь);

    Файл=Папка.ParseName(Имя);

    Для Сч=-1 По 47 Цикл

        Сообщить(""+Сч+". "+Папка.GetDetailsOf(Папка.Items(),Сч)+": "+Папка.GetDetailsOf(Файл,Сч));

    КонецЦикла;

    

    Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");

    Скрипт.language="vbscript";

    Картинка=Скрипт.Eval("LoadPicture("""+Путь+Имя+""")");

    Сообщить(""+Картинка.Width+" x "+Картинка.Height);

КонецПроцедуры

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

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

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

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

Цитата:

Цитата angel_lyucifer

я пытаюсь создать программу для скриншотов »

Цитата:

Цитата angel_lyucifer

нужен скрипт »

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

Цитата:

Цитата Iska

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

На давно всеми забытом языке Бесик...

Цитата:

Цитата angel_lyucifer

На давно всеми забытом языке Бесик... »

А конкретней? Их весьма много.

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

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

1. Библиотека Windows Image Acquisition — Википедия. Возможно простое наложение одного изображения поверх другого: Stamp Filter: Stamp a Picture Over Another Picture. См. также третий пример отсюда: vbscript: работа с графическими файлами — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум.

Можно «рисовать» посредством «ручной» корректировки массива ARGB, составляющего пиксели изображения: ARGB Filter: Create a Modified Version of an Image, что, в принципе, позволяет проделывать определённые манипуляции, но я лично за подобные извращения не возьмусь.

2. Библиотека GFL SDK. Возможно как наложение одного изображения поверх другого, так и рисование произвольным текстом поверх изображения.

3. Библиотека ImageMagick — Википедия. Читайте: Annotating -- IM v6 Examples (работа с объектом ImageMagick в конечном счёте банально сводится к применению того же набора параметров, что и в командной строке утилит).

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