Автор: Сергей Чубченко. Дата публикации: 31.07.2005

Разрабатываем программы на GPScript'е

Введение

Не знаю, в курсе Вы или нет, но пару лет назад мной был разработан довольно интересный скриптовый язык программирования, умеющий создавать нормальные Win32 приложения. О степени поддержки возможностей современных языков и оптимизированности спорить конечно бессмысленно, но когда нужно на скорую руку написать Autorun менюшку на диск или любую другую несложную программу, то данный язык может сильно пригодиться. Я не буду описывать все возможности языка - на то есть хелп. Моя цель - научить Вас на нем писать разного рода продукты. Поэтому учиться начнем на конкретных примерах. Приступим.

Autorun меню за считанные минуты

Для начала откройте GPScript и в меню "Формы" выберите пункт меню "Редактор Форм". В появившемся окне мы будем создавать интерфейс для нашего Autorun’а. В левом верхнем углу формы, прямо под меню расположена панель компонентов, которые можно разместить на форме. Их выбор не велик, но этого вполне хватит для реализации несложных задач.
Первый компонент - "Кнопка" представляет собой графическую кнопку, а также может использоваться как обычный PictureBox. Щелкните по нему. В появившемся окне выберите графический объект. Для примера возьмем файл Exit1.jpg из папки Buttons (эта папка находится в папке с GPScript’ом). Чуть ниже списка компонентов есть список свойств. У кнопки всего одно важное свойство "Стиль". Оно определяет, будет ли картинка статичной, или выполняет роль кнопки.
Второй компонент - "WinКнопка" представляет собой обычную виндовую кнопку, стандартную для всех приложений. Добавим ка на форму пару таких кнопок и разместим объекты где необходимо! Забыл сказать, если потребуется изменять размеры контролов - нуджно всего лишь подвести курсор к правому нижнему краю контрола или формы, зажать Alt на клавиатуре и ресайзить выделенный контрол.
Третий компонент - "Текст" может использоваться как поле для ввода текста или как лейбл. Все зависит от свойства "Стиль". Этот контрол мы используем в качестве лейбла вверху нашего Autorun меню.
Вот что у меня получилось:



Теперь можно сохранить шаблон формы через меню "Файл" -> "Сохранить". Это потребуется, если Вы впоследствии решите что нибудь изменить в форме используя визуальных редактор, а не копаясь в малопонятном коде. Кстати, чтобы форму добавить в свой код ее нужно перевести на язык GPScript, для этого служит меню "Компиляция". В нем два пункта. "With attach" означает что картинки из кнопок будут храниться внутри EXE файла, а не подгружаться из выбранной папки. Теперь когда мы разобрались с принципом создания формы скомпилим нашу форму With attach и скопируем скомпиленный скрипт из окна в правом нижнем углу редактора форм в самое начало нашего кода в главном окне GPScript. Как видите, там уже есть заготовки для обработчиков кнопок - они должны быть в конце скрипта, после скрипта загрузки формы. Вот код, который получился у меня:



Генератор тут немного накосячил. Перепутал параметры в функции "записать"... таких глюков в автогенераторах полно и я их не в силах исправитить, так как уже нет у меня исходников GPScript’а, Потому если возникает глюк - нужно лезть в хелп и смотреть как правильно. Хелп всегда прав :) Короче меняем:


на


Этот косяк не единственный. Генератор еще для красоты перед строчкой:


поставил два пробела, что недопустимо для директив компилятора, поэтому эти два пробела нужно убрать. Также, так как это директива компилятора, то если программу не откомпилировать - она работать как надо не будет, потому не торопитесь жать F5 (Запуск программы), а нажмите Shift+F5, введите имя создаваемой программы и после успешного создания EXE файла можете попробовать его запустить - все должно работать как надо. Теперь напишем обработчики для кнопок:


Вот и все. Быстро, правда?

Тест защиты на GPScript’е

Чтобы усвоить материал предлагаю познакомиться с моим шестым сэмплом защиты. Он написан именно на GPScript’е:


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

Visual Basic и ассемблерные вставки

Да, GPScript и на такое способен. Можете смело писать в коде так:


Только чтобы это скомпилировать псевдокомпиляция не поможет - нужно выбирать в меню "Программа" пункт "Компиляция" и заранее в опциях указать путь к Visual Basic 6.0, установленному у Вас на компьютере. Без него VB код скомпилировать не получится. Кстати вы можете юзать переменные GPScript’а в VB вставках и наоборот. Лучшим примером будет программа, написанная ShackS’ом. Эта прога рисует на форме фигуры лиссажу:


Теперь пара слов об ассемблерных вставках. Их юзать можно например так:


Встраиваем звук в программу

И наконец надо рассказать как встроить музыку в программу и проиграть ее при запуске. Помните директиву компилятора "#", которая в программу вставляет файл, путь к которому передается после символа "#"? Тем же методом приаттачивается музыка в формате wav (если бы сохранился исходный код GPScript’а - сделал бы поддержку и других, более современных форматов), затем при запуске программы сохраняем музыкальный файл в Temp папку и можно воспроизводить вызовом функции:


Вот мы и разобрались с некоторой частью возможностей GPScript’а. Если есть вопросы - загляните в справку, она очень подробно расписывает все возможности языка GScript.

Комментарии

Добавил: GPcH Дата: 01.08.2005 Пример работы с консолью: Метка Старт консоль.загрузить FTN консоль.цвет 3,0 ;Начало вашего кода консоль.напечатать Введите адрес вашего узла@CrLf@ консоль.цвет 15,0 консоль.считать Node консоль.цвет 3,0 консоль.напечатать Введите пароль@CrLf@ консоль.цвет 15,0 консоль.считать Password консоль.цвет 3,0 консоль.напечатать Все данные сохранены в файле @Current@FTN_TEST.TXT@CrLf@ ini.записать FTN,Node,@Node@,@Current@FTN_TEST.TXT ini.записать FTN,Password,@Password@,@Current@FTN_TEST.TXT консоль.цвет 15,0 консоль.считать ok ;Конец вашего кода консоль.выгрузить Завершить

Добавил: programmist Дата: 02.12.2007 GPSskript - отличный язык программирования. Сейчас я разрабатываю лдополнения к нему. Те, кто хотят делять это со мной присоединяйтесь!

Добавил: programmist Дата: 02.12.2007 GPSskript - отличный язык программирования. Сейчас я разрабатываю лдополнения к нему. Те, кто хотят делять это со мной присоединяйтесь! мой адрес: power_2007_pro@mail.ru

Добавил: programmist Дата: 02.12.2007 Пример программы "Калькулятор" ;Загрузка Формы Объект.загрузить Форма Объект.размер Форма, 3000, 480, 1395, 2190 Объект.цвет Форма, -2147483630, -2147483633 Объект.стиль Форма, 4 Объект.текст Форма, калькулятор ;Загрузка Win Кнопки 1 Объект.загрузить WinКнопка1 Объект.размер WinКнопка1, 30, 30, 275, 1000 Объект.цвет WinКнопка1, , -2147483633 Объект.текст WinКнопка1, сложить Объект.шрифт WinКнопка1, MS Sans Serif, 8,25 ;Загрузка Win Кнопки 2 Объект.загрузить WinКнопка2 Объект.размер WinКнопка2, 30, 330, 275, 1000 Объект.цвет WinКнопка2, , -2147483633 Объект.текст WinКнопка2, вычесть Объект.шрифт WinКнопка2, MS Sans Serif, 8,25 ;Загрузка Win Кнопки 3 Объект.загрузить WinКнопка3 Объект.размер WinКнопка3, 1065, 30, 275, 1000 Объект.цвет WinКнопка3, , -2147483633 Объект.текст WinКнопка3, умножить Объект.шрифт WinКнопка3, MS Sans Serif, 8,25 ;Загрузка Win Кнопки 4 Объект.загрузить WinКнопка4 Объект.размер WinКнопка4, 1065, 330, 275, 1000 Объект.цвет WinКнопка4, , -2147483633 Объект.текст WinКнопка4, разделить Объект.шрифт WinКнопка4, MS Sans Serif, 8,25 ;Сделать все объекты видимыми Объект.показать Форма Объект.показать WinКнопка1 Объект.показать WinКнопка2 Объект.показать WinКнопка3 Объект.показать WinКнопка4 Процедура_WinКнопка_1 ;Начало вашего кода WinКнопка1 ;Сложение начало терминал введите первое число, число1 терминал введите второе число, число2 сложить @число1@, @число2@, результат сообщение результат сложения: @результат@ ;Сложение конец ;Конец вашего кода WinКнопка1 Конец_Процедура_WinКнопка_1 Процедура_WinКнопка_2 ;Начало вашего кода WinКнопка2 терминал введите первое число, число1 терминал введите второе число, число2 вычесть @число1@, @число2@, результат сообщение результат вычитания: @результат@ ;Конец вашего кода WinКнопка2 Конец_Процедура_WinКнопка_2 Процедура_WinКнопка_3 ;Начало вашего кода WinКнопка3 терминал введите первое число, число1 терминал введите второе число, число2 умножить @число1@, @число2@, результат сообщение результат умножения: @результат@ ;Конец вашего кода WinКнопка3 Конец_Процедура_WinКнопка_3 Процедура_WinКнопка_4 ;Начало вашего кода WinКнопка4 терминал введите первое число, число1 терминал введите второе число, число2 разделить @число1@, @число2@, результат сообщение результат деления: @результат@ ;Конец вашего кода WinКнопка4 Конец_Процедура_WinКнопка_4

Добавление комментария

Ваше имя (на форуме): Ваш пароль (на форуме): Комментарии могут добавлять только пользователи, зарегистрированные на форуме данного сайта. Если Вы не зарегистрированы, то сначала зарегистрируйтесь тут Комментарий: