Исходники на Visual Basic .NET

Памирыч · Регистрация: 11.04.2010

Студворк — интернет-сервис помощи студентам

Кто-то читает книжки. Кто-то ищет информацию в Google... А кто-то набирается знаний, разбирая чужие исходники.
В этой теме предлагается выкладывать проекты разной сложности, кому чего не жалко или просто хочется поделиться

Требования к оформлению постов.

В теме можно размещать только проекты. Пользователям будет нужен доступ к исходному коду вашей программы. Желательно указать версию Framework
Приложения должны быть написаны на языке Visual Basic .NET
Должно присутствовать хотя бы краткое описание программы и ее назначение. Скриншоты программы и демонстрационный скомпилированный файл так же приветствуются.
В одном посте желательно прикреплять не более одного проекта.
В данной теме запрещается вступать в обсуждения. В случае, если возникли какие-либо вопросы, следует создать тему в разделе VB .NET и дать ссылку на интересующий пост.
Размещаемый контент не должен затрагивать права и интересы третьих лиц и полностью удовлетворять Правилам форума
Простейшие проекты лучше не выкладывать. Код должен содержать функционал, который может быть полезен в изучении

Комментарий модератора

Данные правила обязательны к исполнению в рамках темы

Формат сообщения:

Программа "Мои файлы"

Инструменты и технологии: VS 2008, Net Framework 3.5

Простое приложение, которое обеспечивает быстрый доступ к файлам и папкам.

Элементы добавляются путем перетаскивания файлов и папок в окно приложения.

Приложение при запуске проверяет актуальность путей. Для каждого элемента доступно контекстное меню, через которое можно открыть папку, содержащую указанный файл с его выделением, изменить цвет фона и шрифта кнопок, шрифт кнопок, текст, отображаемый на кнопке. Так же можно скрыть кнопку или удалить ее. При удалении кнопка помечается на удаление. Физическое удаление отмеченных элементов коллекции происходит при закрытии приложения. При скрытии по крайней мере одного элемента в нижней части окна станет доступным элемент управления "Скрытые кнопки".
Скрытые и удаленные кнопки можно посмотреть в отдельном окне, вновь отобразить, а так же отменить удаление.
В приложении есть изображения разных цветов. Они назначаются для папок в рандомном порядке от запуска к запуску. Значки файлов полностью соответствуют их значкам в проводнике Windows.
Доступна функция полной и групповой/выборочной очистки коллекции. При нажатии "Удалить все" отмена действия невозможна.
Коллекция хранится в бинарном файле, для его чтения и записи используется бинарная сериализация.

В приложении проект, демонстрационный скомпилированный файл и скриншот окна программы

@ovva · 29.04.2016, 19:35

В GDI+ используется три координатных пространства:
• World – мировые координаты, используемые в контексте решаемой задачи.
• Page -система координат, используемая областью рисования, например PictureBox.
• Координатное пространство устройства вывода - система координат, используемая физическим устройством, на котором производится рисование (Display, Printer и т.д.).
По умолчанию начало систем координат, и направление осей совпадают, единицы измерения пиксели.
В приводимом коде даны примеры работы с координатными пространствами, использование аффинных преобразований через класс Matrix и дан пример использования рассмотренных принципов при построении простого просмотрщика изображений (движение – ЛКМ, масштабирование – колесо мыши).

@ovva · 03.05.2016, 13:42

Автоматическое определение кодировки текста (ASCII, cp866, win1251, KOI8-R). По мотивам "Рощин И. Автоматическое определение кодировки текста" (http://ivr.webzone.ru/articles/defcod_2/ - сайт уже не доступен, но можно скачать сохраненную копию), также "Ревич Ю. Нестандартные приемы программирования на Delphi".
VS2010

Памирыч · 03.05.2016, 19:29 **[ТС]**

Игра-головоломка «Собери картинку»
Простая игра-головоломка, написанная на VB .NET (Framework 3.5)

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

После победы будет предложен другой уровень. Количество уровней определяется числом картинок в папке с программой. Новый уровень отличается от предыдущего тем, что изображение бьется на все большее число частей, в результате чего игра становится все сложнее.

В программе предусмотрено меню
Показывать подсказки: при установке квадратика программа в правом верхнем углу сообщает, верно ли был совершен ход фразами «Верно!» и «Мимо(»
Режим сапера (без права на ошибку): при установке этого флажка игрок не имеет права сделать ни одной ошибки (т.е. поставить квадратик «не туда»). Игра заканчивается немедленно, если был совершен неверный ход. При этом режиме становятся недоступными подсказки
Показать, как нужно собирать картинку: программа сама соберет картинку. Это можно посмотреть как в начале уровня, так и на любом его этапе. Отменить демонстрацию нельзя.

Технические детали

Технология Windows Forms. Количество уровней определяется числом картинок в папке Pictures. Разрешение картинки должно быть примерно 420х300 пикселей.

Программа сама разбивает картинку и перемешивает фрагменты изображения. В случае, если картинка не подходит под уровень (например, при расчетах выяснилось, что суммарная ширина/высота фрагментов превысила размер самого битмапа, то он будет подогнан под требуемый размер. На глаз это не заметно.)

После примерно пятого уровня сложность больше не возрастает. Это ограничение можно убрать (переменная Level)

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

Закомментирована некая особенность, когда при правильной установке квадратика на нем рисуется указанное изображение (путь с C:\)

События в игре сопровождаются звуками. Игра не требует установки

Скриншоты игры, готовая программа и исходник с ресурсами игры:

@Orlangur · 26.05.2016, 16:43

Программа позволяет скрывать, а также восстанавливать пользователя в системах Windows.
Для работы необходимы права администратора.
Тестировалась на Windows XP / Server 2003 / Windows 7 / Server 2008 / Windows 10.
Кому надо, можете допилить под себя

@Orlangur · 27.05.2016, 15:00

Нашел в стареньких архивах.
Программа позволяет скрыть любой диск из explorer.
Примечание:
При этом диск физически будет доступен, при обращении к нему по букве или же будет виден через другие программы.
В некоторых случаях бывает полезно, чтобы скрыть парочку виртуальных приводов или же пустые диски от кардридера. Так же можно скрыть ненужную сетевую шару или вообще диск C:\.
Для работы нужны права администратора.
Тестировалась на Windows XP / Windows 7 / Windows 8 / Windows 8.1 / Server 2003 / Server 2008.

@godmode · 05.06.2016, 18:58

Рисовалка 3D куба, c текстурами, без directx и opengl.

@Orlangur · 14.06.2016, 16:25

Программа позволяет сканировать ip или доменное / сетевое имя и проверять, какие порты открыты.

@Sklifosofsky · 19.07.2016, 23:10

Представляю два элемента управления ColorMenuBox и ColorMenuBox2V, предназначенные для работы с текстовыми элементами управления как RichTextBox и не только, а также их интегрированную версию в ToolStripSplitButton для ToolStrip – ToolStripSplitButtonColorMenuBox и ToolStripSplitButtonColorMenuBox2V. Позволяют определять собственные цвета.

Название: cmb1.jpg
Просмотров: 2893

Размер: 2.8 Кб

Название: cmb1.jpg
Просмотров: 2893

Размер: 2.8 Кб

Название: cmb2.jpg
Просмотров: 2897

Размер: 3.5 Кб

Название: cmb1b.jpg
Просмотров: 2906

Размер: 7.5 Кб

Название: cmb2b.jpg
Просмотров: 2908

Размер: 10.3 Кб

Описание

Кликните здесь для просмотра всего текста

ColorMenuBox – ограничен 15 элементами из-за примитивной схемы определения курсора мыши над ячейками. В общем имеется массив с распределенными зонами ячеек и при каждом событии MouseMove происходит проверка всех элементов на вхождение координат курсора, поэтому такой подход не годится для создания огромного количества зон. Но как нестранно такой подход имеет место существовать, т.к. при не больших объемах данных такая работа не наносит и минимального вреда в производительности системы.

ColorMenuBox2V – если про собрата мало чего интересного, то про этот элемент можно сказать обратное. Здесь используется совсем другой подход определения курсора мыши над ячейками. Я бы назвал его «Векторным сканированием зон» (скорее всего есть и другой термин =) ). Структура зон состоит из массива зон строк и зон ячеек. Сперва проверяется массив строковых зон, при этом определяя каждый раз относительно текущей зоны в какую сторону нужно искать, то есть при каждом такте поиск начинается не с 0 или конца массива зон строк, а с последней найденной или ближайшей зоны. Если зона строки найдена, то начинается аналогичный поиск ячеек содержащихся в данной строке. И получается так что зоны строк ищутся по Y, а ячеек по X. Подробно можно все попытаться понять по ходу приложенного кода, комментарии присутствуют. Еще плюсы заключаются в возможности изменения вида этого элемента: размер ячеек, количество их, отступы, рамки и.д. Может показаться, что элемент немного залапшёван (перемудрил =) ), но такой подход почти помогает избежать создание локальных переменных внутри методов при циклической работе и соответственно ненужную нагрузку.

ToolStripSplitButton для своего элемента настроен одинаково. При клике по ячейке раскрывающиеся меню закрывается, при этом срабатывает событие SelectColor с передачей цвета. При клике по кнопке этого элемента происходит также срабатывание события SelectColor с передачей текущего (ранее выбранного) цвета.
Все события передают класс ColorMenuBoxEventArgs, содержащий свойства для разностороннего использования: Color, Brush, Pen (перегружен с параметром width)

Свойства, события, функции

Кликните здесь для просмотра всего текста

ColorMenuBox
Свойства:
Colors – коллекция цветов в виде массива Color() из 15 элементов
CurrentColor – возвращает/задает текущий цвет, при этом выделяет соответствующую ячейку в элементе управления. Если передать цвет, отсутствующий в списке или nothing – выделение снимется с ячейки
События:
ColorChanged – срабатывает только при изменении текущего цвета
ColorBoxClicked – срабатывает при клике на ячейку цвета

ToolStripSplitButtonColorMenuBox
Свойства:
Аналогичны ColorMenuBox
DefaultColor – возвращает/задает цвет по умолчанию. Нужно при инициализации элемента управления
ShowColorIcon – включение/выключение отображения иконки цвета на кнопке элемента управления
Image – иконка кнопки элемента управления
ColorMenuBox – ссылка на элемент управления, находящийся в контейнере ToolStripSplitButton.DropDown
События:
ColorSelected – срабатывает при клике по ячейке цвета в меню или при нажатии на кнопку элемента управления при повторе передачи текущего цвета
Функции:
SelectColorBox(c as Color) – выделить ячейку с соответствующим цветом. Если цвет отсутствует в списке элемента управления - выделения не происходит. При этом не изменяется текущий цвет и иконка элемента управления
DeselectColorBox() – убрать выделение с текущей ячейки

ColorMenuBox2V
Свойства:
Columns – количество столбцов
Rows – количество строк
Colors – коллекция цветов в виде массива Color(). Размер зависит от свойств Rows и Columns. Разрешено вносить массив равный Rows * Columns
ColorsARGB – коллекция цветов в представлении массива Integer()
CurrentColor – возвращает/задает текущий цвет, при этом выделяет соответствующую ячейку в элементе управления. Если передать цвет, отсутствующий в списке или nothing – выделение снимется с ячейки
BackColor – цвет фона
BoxWidth – ширина ячейки
BoxHeight – высота ячейки
Padding – отступ ячеек от границ элемента управления
BoxOffsetHorizontal – промежуток между ячейками по горизонтали
BoxOffsetVertical – промежуток между ячейками по вертикали
MenuStyle – стиль отображения ячеек
BoxBorderColor – основной цвет границы ячейки
BoxBorderColorHO – цвет внешней границы ячейки при выделении
BoxBorderColorHI – цвет внутренней границы ячейки при выделении
События:
ColorChanged – срабатывает только при изменении текущего цвета
ColorBoxClicked – срабатывает при клике на ячейку цвета

ToolStripSplitButtonColorMenuBox2V
Свойства:
Аналогичны ColorMenuBox2V
DefaultColor – возвращает/задает цвет по умолчанию. Нужно при инициализации элемента управления
ShowColorIcon – включение/выключение отображения иконки цвета на кнопке элемента управления
Image – иконка кнопки элемента управления
ColorMenuBox2V – ссылка на элемент управления, находящийся в контейнере ToolStripSplitButton.DropDown
События:
ColorSelected – срабатывает при клике по ячейке цвета в меню или при нажатии на кнопку элемента управления при повторе передачи текущего цвета
Функции:
SelectColorBox(c as Color) – выделить ячейку с соответствующим цветом. Если цвет отсутствует в списке элемента управления - выделения не происходит. При этом не изменяется текущий цвет и иконка элемента управления
DeselectColorBox() – убрать выделение с текущей ячейки

Общие

Кликните здесь для просмотра всего текста

При подключении к проекту библиотеки ColorMenuBoxVi есть возможно добавлять элементы управления посредствам редактора для ToolStrip

Есть простенький редактор списка цветов элемента управления HEXColorEditor

Все свойства в редакторе для элемента управления в разделе Settings Color Menu Box

Библиотека: ColorMenuBoxViLIB.rar
Исходник: ColorMenuBoxVi.rar
Пример: Пример.rar

@Orlangur · 05.08.2016, 16:40

Простенькая программка, позволяющая резать и собирать файлы.

@Yury Komar · 05.09.2016, 10:45

Slided Toggle Control

Решил выкинуть на форум свой Toggle Control из одного из проектов... Правда он на основе UserControl с лишними свойствами, добавлено свойство Checked...
Переключение работает с помошью мышки (потянуть или двойной клик).
Вообщем свой минимум выполняет... Не делал только событие смены состояния CheckedChanged... Можете сами его прикрутить.

@ReIgnite · 11.09.2016, 07:10

Вот. Решил выложить доработанный мною TrackBar, использованный одним довольно милым человеком в Проекте AeroMediaPlayer.
TrackBar отлавливает клики и передаёт значения по ним. Можно настраивать цвета заполнения и заднего фона.

@Sklifosofsky · 02.11.2016, 19:23

Как привязать массив c числовыми, текстовыми и другими данными c DataGridView.DataSource?

Минимальная платформа .net 2.0

Специальный интерфейс BinderArray предназначен для привязывания массива с элементом управления DataGridView с возможностью редактирования. Поддерживаются массивы одномерные [], двумерные [][] или [ , ] а также тип Object[] содержащий в себе массив c числовыми, текстовыми и другими данными.

Все необходимые параметры указываются в конструкторе класса.

Параметры конструктора:

Обязательные:
SourceArray: Массив данных в виде - одномерный [ ], двумерный [ ][ ] или [ , ]
SourceView: Шаблон привязки (При параметре ColumnsRows интерфейс обращается к массиву как Array[Колонка][Строка], соответственно при RowsColumns - Array[Строка][Колонка])

Опционально:
ReadOnly: Включение/выключение защиты от записи данных в привязанный массив со стороны клиента
SupportsSorting: Включение/выключение сортировки в визуальном редакторе (Ни каким образом не влияет на содержание привязанного массива и его порядок)
ColumnNames: Коллекция имен колонок для визуального редактора. По умолчанию присваиваются имена: "Column1 , Column2, ..."
ColumnTypes: Коллекция типов колонок. По умолчанию присваивается соответствующий тип в первой строке
ColumnWhiteList: Коллекция индексов колонок, которые необходимо отобразить (Нельзя указывать вместе с ColumnBlackList)
ColumnBlackList: Коллекция индексов колонок, которые необходимо скрыть (Нельзя указывать вместе с ColumnWhitekList)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
        Dim arr(10, 5000) As String
        Dim i, j As Integer
        For i = 0 To 10
            For j = 0 To 5000
                arr(i, j) = String.Format("Col{0} Row{1}", i + 1, j + 1)
            Next
        Next
 
        Dim ba As New BinderArray(arr, BinderArray.SourceViews.ColumnsRows, SupportsSorting:=True)
        'Dim ba As New BinderArray(arr, BinderArray.SourceViews.ColumnsRows, SupportsSorting:=True, ColumnWhiteList:=New Integer() {0}, ColumnNames:=New String() {"MyColumn"}) ' будет отображаться только первая колонка c наименованием "MyColumn"
 
        Me.DataGridView1.DataSource = ba

Примечания:
1. При изменении размерности привязанного массива - связь прервётся. По сути появятся два экземпляра массивов - изменений пользователем и содержащиеся в экземпляре BinderArray
2. Сортировка не влияет на порядок данных в привязанном массиве
3. BinderArray не может изменять тип вводимых данных. Например если привязанный массив имеет тип Integer[,], то ему не удастся присвоить строковые значения. В некоторых случаях требуется вводить проверку в DataGridView на вводимые данные
4. Нужно учитывать количество колонок, в DataGridView есть ограничение на общую ширину и при огромном количестве колонок может выдать исключение "Сумма значений FillWeight столбцов не должна превышать 65535"
5. Имена в ColumnNames для колонок должны быть различны друг от друга, иначе будут не верно отображаться данные.
6. Поддерживается все примитивы. Тип bool по умолчанию в DataGridView определяется как checkbox. Поддерживается тип изображений Image, Bitmap.

@Sklifosofsky · 14.12.2016, 20:21

TrackBarVi
Альтернатива стандартному элементу управления полосе прокрутки (TrackBar).

Написан на базе UserControl
Минимальная платформа Net 2.0
Элемент управления имеет схожий набор свойств, что и стандартный TrackBar, с некоторыми дополнительными функциями и возможностью созданию альтернативных стилей отображения.

Поддерживает два типа управления (ActionMode):
Classic - при клике по зоне движения ползунок стремится к курсору мыши, с шагом указанным в LargeChange и частотой смещения 5 в секунду;
Alternative - при клике по зоне движения ползунок моментально перемещается в зону клика.

Есть небольшая настройка управления с клавиатуры (KeyControl), позволяющая отключать или ограничивать управление.

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

Кликните здесь для просмотра всего текста

Для создания пользовательского стиля отображения требуется создать класс, унаследованный от TrackBarViRenderer и заполнить требуемые методы своими инструкциями работы, а также можно дополнить свойствами для управления в дизайн режиме отображением (в исходнике все прописано, что за что отвечает)

Файлы: TrackBarViLib.zip - библиотека, TrackBarViLib source code.zip - исходный код

@Sklifosofsky · 13.01.2017, 20:09

ToggleVi Controls
(ToggleVi, ToggleViRoundA, ToggleViRoundB, ToggleViSquareA, ToggleViSquareB)
Название: toggleNew.gif
Просмотров: 2380

Размер: 88.9 Кб

Название: toggleNew.gif
Просмотров: 2380

Размер: 88.9 Кб

Минимальная платформа .net 2.0

Переключатели в стиле Android с анимацией.

Есть режим "Сомнения" (заполняется полупрозрачная сфера вокруг кнопки) - если продолжительное время удерживать нажатой кнопку мыши на переключателе, то можно отменить действие.

Свойства

Кликните здесь для просмотра всего текста

Для всех
State - Возвращает/присваивает состояние элемента управления
KeyControl - Включение/выключение режима управления с клавиатуры (Стрелки ВЛЕВО, ВПРАВО)
ScrollColorOff - Цвет ползунка при состоянии Off
ScrollColorOn - Цвет ползунка при состоянии On
ScrollColorDisable - Цвет ползунка при неактивном состоянии элемента управления. Смешивается с основным цветом с учетом свойства BlendColorDisable() (Соотношение смешивания)
ScrollImage - Изображение внутри ползунка
SliderColorOff - Цвет зоны перемещения ползунка при состоянии Off
SliderColorOn - Цвет зоны перемещения ползунка при состоянии On
SliderColorDisable - Цвет зоны перемещения ползунка при неактивном состоянии элемента управления. Смешивается с основным цветом с учетом свойства BlendColorDisable (Соотношение смешивания)
BlendColorDisable - Смешивание цветов текущего стиля с настроенными цветами при не активном состоянии элемента управления. От 0.0 до 1.0 (Соотношение смешивания)
Для ToggleViRoundA, ToggleViRoundB, ToggleViSquareA, ToggleViSquareB
ScrollBorderColorOff - Цвет границы ползунка при состоянии Off
ScrollBorderColorOn - Цвет границы ползунка при состоянии On
ScrollBorderColorDisable - Цвет границы ползунка при неактивном состоянии элемента управления. Смешивается с основным цветом с учетом свойства BlendColorDisable() (Соотношение смешивания)
ScrollBorderSize - Толщина границы ползунка
SliderBorderColorOff - Цвет границы зоны перемещения ползунка при состоянии Off
SliderBorderColorOn - Цвет границы зоны перемещения ползунка при состоянии On
SliderBorderColorDisable - Цвет границы зоны перемещения ползунка при неактивном состоянии элемента управления. Смешивается с основным цветом с учетом свойства BlendColorDisable() (Соотношение смешивания)
SliderBorderSize - Толщина границы зоны перемещения ползунка

Функции

Кликните здесь для просмотра всего текста

SetState(State As ToggleViLib.ToggleViState) - Изменяет состояние элемента управления
SetStateWithoutAnimation(State As ToggleViLib.ToggleViState) - Изменяет состояние элемента управления без проигрывания анимации

События

Кликните здесь для просмотра всего текста

StateChanged(sender As Object, e As System.EventArgs) - Вызывается при изменении состояния элемента управления
StateChanging(sender As Object, ByRef e As ToggleViLib.ToggleViCancelEventArgs) - Вызывается перед изменением состояния элемента управления. Если после вызова состояние Cancel в объекте класса ToggleViCancelEventArgs было изменено на true, то произойдет отмена действия

@ovva · 22.01.2017, 19:28

Печать таблицы из DataGridView с заголовком и комментариями (через PrintDocument).
VS2010,Net4.0

@Orlangur · 05.07.2018, 16:31

Экспорт / Импорт контейнеров с закрытыми ключами и личных сертификатов.
VS 2012 / Framework 4.0
Использовал для работы только с Crypto Pro
Перед переустановкой системы или при переносе данных на другой пк необходимо перетаскивать и сертификаты с контейнерами. При большом объеме это может быть довольно затратно по времени.
Программа позволяет получить список имеющихся контейнеров с ключами , а так же все личные сертификаты пользователя и экспортировать их.
Импорт работает только для контейнеров, (потому что не понятно как правильно соотнести сертификат с закрытым ключом) при этом в самом файле меняется SID пользователя для установки их на машину, где программа была запущена. Есть возможность просматривать только действующие сертификаты, что позволит упростить их просмотр и выбор.
После экспорта рядом с программой создается каталог "export", где и находятся все контейнеры с сертификатами. Импортировать контейнеры на другом пк можно просто нажав на кнопку "Импортировать контейнеры". После чего вручную можно соотнести каждый сертификат с контейнером, либо установить сертификат прямиком из контейнера, если он был туда помещён.

@ovva · 06.08.2018, 00:06

Иллюстрация к работе с битами.

@ovva · 12.08.2018, 20:15

Формирование/чтение штрих-кода. Использована библиотека ZXing.Net.
Среда VS2017, NET 4.0.

@Orlangur · 10.01.2019, 20:40

Защита exe файлов паролем
Используемый Framework 4.5

Здравствуйте!
Помню как-то давно натыкался на программу Game Protector, что позволяла устанавливать пароль на исполняемые файлы. Делает она это с помощью помещения в начало файла своего так называемого лаунчера, что требует ввести пароль, после чего уже запустится программа.
Я сделал некий аналог.
Прикреплено 2 проекта:
1 - AppPass - Так называемый лаунчер, что будет открываться при попытке запустить защищенное приложение.
2 - AppProtect - Сама программа, что будет устанавливать или снимать пароль с приложения.
Алгоритм очень простой, необходимо в начало файла поместить лаунчер и при вводе верного пароля создать из массивов байт exe файл и запустить его.
Да, немного разобравшись, это все легко можно обойти, как с использованием hex редакторов, так и без них, но как защита от "домохозяек" пойдет

Кликните здесь для просмотра всего текста

Главное окно

Окно, появляющееся при попытке запуска запароленного exe

В проекте используется библиотека Resourcelib
для организации переноса в новый exe файл информации о приложении, манифеста и иконок.
Во избежании проблем при запуске запароленных приложений, манифест не копируется 1 в 1 из файла - источника, а используются заготовки.
Так же, чтобы не было проблем с отображением информации в новом файле из AppPass после компиляции с помощью программы Resource Hacker была удалена вся информация (Manifest / VersionInfo).
Сейчас в проекте AppProtect в ресурсах есть все необходимые для работы файлы:
- заготовки манифестов
- библиотека Resourcelib
- Готовый файл из проекта AppPass (Лаунчер)

@Marcus Lipton · 09.02.2019, 10:05

Исходник простого антивируса для обучения

Завалялся проект в папках, старый и недоделанный антивирус.
Местами он боянистый и кривоватый.
Делюсь с вами.

Использована библиотека MetroFramework.1.2.0.3

Описание:
Простой антивирус, подойдет для обучения новичкам и всем желающим.
Сканирует только по MD5. Возможность сканировать выбранные папки.
Есть различные инструменты, чистка мусора и другое. Так же есть система активации лицензии.

Если у вас есть знания в области VB, дорабатывайте его.
antivirus.rar

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@Sklifosofsky 1086 / 916 / 213 Регистрация: 29.09.2015 Сообщений: 1,019
	19.07.2016, 23:10
	Представляю два элемента управления ColorMenuBox и ColorMenuBox2V, предназначенные для работы с текстовыми элементами управления как RichTextBox и не только, а также их интегрированную версию в ToolStripSplitButton для ToolStrip – ToolStripSplitButtonColorMenuBox и ToolStripSplitButtonColorMenuBox2V. Позволяют определять собственные цвета. Описание Кликните здесь для просмотра всего текста ColorMenuBox – ограничен 15 элементами из-за примитивной схемы определения курсора мыши над ячейками. В общем имеется массив с распределенными зонами ячеек и при каждом событии MouseMove происходит проверка всех элементов на вхождение координат курсора, поэтому такой подход не годится для создания огромного количества зон. Но как нестранно такой подход имеет место существовать, т.к. при не больших объемах данных такая работа не наносит и минимального вреда в производительности системы. ColorMenuBox2V – если про собрата мало чего интересного, то про этот элемент можно сказать обратное. Здесь используется совсем другой подход определения курсора мыши над ячейками. Я бы назвал его «Векторным сканированием зон» (скорее всего есть и другой термин =) ). Структура зон состоит из массива зон строк и зон ячеек. Сперва проверяется массив строковых зон, при этом определяя каждый раз относительно текущей зоны в какую сторону нужно искать, то есть при каждом такте поиск начинается не с 0 или конца массива зон строк, а с последней найденной или ближайшей зоны. Если зона строки найдена, то начинается аналогичный поиск ячеек содержащихся в данной строке. И получается так что зоны строк ищутся по Y, а ячеек по X. Подробно можно все попытаться понять по ходу приложенного кода, комментарии присутствуют. Еще плюсы заключаются в возможности изменения вида этого элемента: размер ячеек, количество их, отступы, рамки и.д. Может показаться, что элемент немного залапшёван (перемудрил =) ), но такой подход почти помогает избежать создание локальных переменных внутри методов при циклической работе и соответственно ненужную нагрузку. ToolStripSplitButton для своего элемента настроен одинаково. При клике по ячейке раскрывающиеся меню закрывается, при этом срабатывает событие SelectColor с передачей цвета. При клике по кнопке этого элемента происходит также срабатывание события SelectColor с передачей текущего (ранее выбранного) цвета. Все события передают класс ColorMenuBoxEventArgs, содержащий свойства для разностороннего использования: Color, Brush, Pen (перегружен с параметром width) Свойства, события, функции Кликните здесь для просмотра всего текста ColorMenuBox Свойства: Colors – коллекция цветов в виде массива Color() из 15 элементов CurrentColor – возвращает/задает текущий цвет, при этом выделяет соответствующую ячейку в элементе управления. Если передать цвет, отсутствующий в списке или nothing – выделение снимется с ячейки События: ColorChanged – срабатывает только при изменении текущего цвета ColorBoxClicked – срабатывает при клике на ячейку цвета ToolStripSplitButtonColorMenuBox Свойства: Аналогичны ColorMenuBox DefaultColor – возвращает/задает цвет по умолчанию. Нужно при инициализации элемента управления ShowColorIcon – включение/выключение отображения иконки цвета на кнопке элемента управления Image – иконка кнопки элемента управления ColorMenuBox – ссылка на элемент управления, находящийся в контейнере ToolStripSplitButton.DropDown События: ColorSelected – срабатывает при клике по ячейке цвета в меню или при нажатии на кнопку элемента управления при повторе передачи текущего цвета Функции: SelectColorBox(c as Color) – выделить ячейку с соответствующим цветом. Если цвет отсутствует в списке элемента управления - выделения не происходит. При этом не изменяется текущий цвет и иконка элемента управления DeselectColorBox() – убрать выделение с текущей ячейки ColorMenuBox2V Свойства: Columns – количество столбцов Rows – количество строк Colors – коллекция цветов в виде массива Color(). Размер зависит от свойств Rows и Columns. Разрешено вносить массив равный Rows * Columns ColorsARGB – коллекция цветов в представлении массива Integer() CurrentColor – возвращает/задает текущий цвет, при этом выделяет соответствующую ячейку в элементе управления. Если передать цвет, отсутствующий в списке или nothing – выделение снимется с ячейки BackColor – цвет фона BoxWidth – ширина ячейки BoxHeight – высота ячейки Padding – отступ ячеек от границ элемента управления BoxOffsetHorizontal – промежуток между ячейками по горизонтали BoxOffsetVertical – промежуток между ячейками по вертикали MenuStyle – стиль отображения ячеек BoxBorderColor – основной цвет границы ячейки BoxBorderColorHO – цвет внешней границы ячейки при выделении BoxBorderColorHI – цвет внутренней границы ячейки при выделении События: ColorChanged – срабатывает только при изменении текущего цвета ColorBoxClicked – срабатывает при клике на ячейку цвета ToolStripSplitButtonColorMenuBox2V Свойства: Аналогичны ColorMenuBox2V DefaultColor – возвращает/задает цвет по умолчанию. Нужно при инициализации элемента управления ShowColorIcon – включение/выключение отображения иконки цвета на кнопке элемента управления Image – иконка кнопки элемента управления ColorMenuBox2V – ссылка на элемент управления, находящийся в контейнере ToolStripSplitButton.DropDown События: ColorSelected – срабатывает при клике по ячейке цвета в меню или при нажатии на кнопку элемента управления при повторе передачи текущего цвета Функции: SelectColorBox(c as Color) – выделить ячейку с соответствующим цветом. Если цвет отсутствует в списке элемента управления - выделения не происходит. При этом не изменяется текущий цвет и иконка элемента управления DeselectColorBox() – убрать выделение с текущей ячейки Общие Кликните здесь для просмотра всего текста При подключении к проекту библиотеки ColorMenuBoxVi есть возможно добавлять элементы управления посредствам редактора для ToolStrip Есть простенький редактор списка цветов элемента управления HEXColorEditor Все свойства в редакторе для элемента управления в разделе Settings Color Menu Box Библиотека: ColorMenuBoxViLIB.rar Исходник: ColorMenuBoxVi.rar Пример: Пример.rar 11

@Marcus Lipton 7 / 7 / 0 Регистрация: 09.02.2019 Сообщений: 27
	09.02.2019, 10:05
	Исходник простого антивируса для обучения Завалялся проект в папках, старый и недоделанный антивирус. Местами он боянистый и кривоватый. Делюсь с вами. Использована библиотека MetroFramework.1.2.0.3 Описание: Простой антивирус, подойдет для обучения новичкам и всем желающим. Сканирует только по MD5. Возможность сканировать выбранные папки. Есть различные инструменты, чистка мусора и другое. Так же есть система активации лицензии. Если у вас есть знания в области VB, дорабатывайте его. antivirus.rar 3