Создание процедурных DLL в Visual Basic (статья)

@Catstail · Регистрация: 12.02.2012

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

Создание процедурных DLL в Visual Basic

Несколько слов о резонах создания процедурных Dll на VB. Как известно, VB позволяет без проблем создавать ActiveX-Dll. Эта возможность в целом решает проблему повторного использования кода. Однако, есть два момента, которые могут сделать использование ActiveX-Dll (т.е. COM) не вполне удобным.

Первая проблема состоит в том, что ActiveX-Dll нельзя просто скопировать - нужна регистрация (т.е. административные права). А при повсеместном внедрении политик безопасности, получение прав администратора вырастает в большую проблему. Использование процедурных dll не требует регистрации.

Вторая проблема состоит в том, что интенсивное использование кода из ActiveX-Dll (даже при раннем связывании) все-таки медленнее, чем использование кода из своей программы (или из процедурной dll) - ведь соблюдение стандарта COM требует ресурсов... И особенно больших, если используется ActiveX-Exe.

Все это делает создание процедурных dll на VB достаточно актуальным.

Теперь к делу!

Интересующиеся деталями могут прочитать мой перевод статьи
"Создание процедурных DLL в Visual Basic".

А для "занятых" могу сказать следующее:

1) Скопируйте и разверните прилагаемый архив с примерами
2) из поддиректории link-2 возьмите модуль linkk.exe; перенесите его в установочную директорию VB (она обычно располагается по адресу \Program Files\Microsoft Visual Studio\Vb98); модуль LINK.EXE переименуйте в LINKLNK.EXE,
а модуль linkk.exe -> LINK.EXE
3) Для создание dll действуйте так:

- создавайте проект ActiveX-DLL (и назовите myLib)
- модуль класса не трогайте
- добавьте в проект стандартный модуль и занесите в него следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
 
Public lastErr As Long
 
Public Function DllMain(hInst As Long, fdwReason As Long, _
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH
         ' при завершении процесса ничего не делать…
      Case DLL_PROCESS_ATTACH
         DllMain = True
      Case DLL_THREAD_ATTACH
         ' перед началом потока ничего не делать…
      Case DLL_THREAD_DETACH
         ' после завершения потока ничего не делать
   End Select
End Function
 
Public Function Increment(var As Integer) As Integer
   Increment = var + 1
End Function
 
Public Function Decrement(var As Integer) As Integer
   Decrement = var - 1
End Function
 
Public Function Square(var As Long) As Long
   On Error Resume Next
   Square = var ^ 2
   If Err.Number <> 0 Then lastErr = Err.Number
End Function
 
Public Function getLastError() As Long
   getLastError = lastErr
End Function
 
Public Function ClearError() As Long
   lastErr = 0
End Function

- создайте текстовый файл myLib.def:

NAME myLib
LIBRARY MathMod
DESCRIPTION "... ..."
EXPORTS DllMain @1
Increment @2
Decrement @3
Square @4
getLastError @5
ClearError @6

- транслируйте проект обычным образом в среде IDE - получится процедурная DLL!

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

Все, разложенные по директориям, исходники прилагаются:

@locm · 06.02.2014, 23:56

DLL заработала. Теперь хотелось бы увидеть подробную инструкцию по созданию DLL в VB.
А чтобы она не потерялась, лучше ее разместить в этой теме. Создание процедурных DLL в Visual Basic (статья)

@The trick · 07.02.2014, 00:20

Сообщение от locm

Теперь хотелось бы увидеть подробную инструкцию по созданию DLL в VB.

Я писал уже несколькими постами ранее почему падают DLL написанные на VB6 в других ЯП. И давал ссылки (ссылки удалили, но они очень просто гуглятся), где объясняется как сделать так чтобы работало.

@Антихакер32 · 07.02.2014, 07:11

Сообщение от The trick

(ссылки удалили, но они очень просто гуглятся)

тема очень интересная, Создание процедурных DLL в Visual Basic (статья)
жаль в этой статье об этом не говорилось, хорошо что у меня гугл есть )

@Pro_grammer · 07.02.2014, 08:13

В ходе рабочих дебатов в ветке для начинающих был всё же достигнут положительный результат. Вернее этот метод уже давно используется, и в большей степени положительно, а точнее с 2007 г.
Описан и разработан кем то под ником Хакер. В виду запрета ссылок на оригинальную статью - она на другом форуме, привожу только полное название :
[FireNativeDLL] Создание полноценных DLL на Visual Basic
Кто хочет, тот найдет.
Там проект создания DLL с одной функцией сложения целых чисел + FireNativeDLL 1.0 - это средство, которое добавит в VB возможность создавать обычные DLL + программа проверки работы DLL, написанная на PureBasic, Всё проверял на winXP, а посему в других современных ОС возможны траблы, прошу протестить.
P.S.
После установки FireNativeDLL 1.0 ни чего не сломается - как и раньше можно работать с обычными проектами.

@Pro_grammer · 07.02.2014, 08:14

Сообщение от locm

Теперь хотелось бы увидеть подробную инструкцию по созданию DLL в VB.

Сообщение от The trick

И давал ссылки (ссылки удалили, но они очень просто гуглятся), где объясняется как сделать так чтобы работало.

Уважаемый The trick видимо не хочет тут описывать процесс создания DLL потому, что всё не так просто, и без костылей этот процесс не обходится.

Во одной предлагается открыть vbp-файл блокнотом и добавить туда ключи экспорта наших функций. Этот способ был бы идеальным, но как там же и оговаривается никакой «инициализации рантайма» нет, а значит такая Dll бесполезна в плане общего применения.

В другой ссылке предлагается скачать FireNativeDLL 1.0 - это средство, которое добавит в VB возможность создавать обычные DLL (т.н. в народе NativeDLL).
Но тоже не всё гладко в плане работы. У кого с 7-кой не работает, у кого работает, но 1 раз и т.п. мелочи.
Вроде бы да, на Vb6 можно как то написать DLL, но гарантий правильной работы ни кто не даст.

Добавлено через 55 минут
Всё получилось, проект и все необходимые для этого файлы тут
Создание процедурных DLL в Visual Basic (статья)

@Антихакер32 · 07.02.2014, 09:08

я в той теме вас поблагодарил, а вот интересно The trick этими костылями пользовался ?
у него кстате win-семёрка

@The trick · 07.02.2014, 11:12

Сообщение от Pro_grammer

Уважаемый The trick видимо не хочет тут описывать процесс создания DLL потому, что всё не так просто, и без костылей этот процесс не обходится.

Все очень просто, просто надо немного знать как работает VB6, в моих примерах никакой инициализации рантайма не было (она там и не нужна была), но это не мешало мне создать окно и контролы на нем. Как раз в плане общего пользования такая длл более чем достаточна (она поддерживает многопоточность, в ней можно вызывать любые API и многое другое), я написал кучу программ где не используется потокозависимые функции рантайма. Ты просил нормально работающую DLL, я ее сделал и выложил тебе (даже 2 штуки), ты убедился что они работают, даже спасибо не сказал. Тогда с чего мне доказывать кому-то что-то, что я знаю на 100% что это работает? Я бы мог просто написать - на VB6 можно делать полноценные DLL и все, и не тратить свое время, т.к. у меня его и так мало. Уж если на VB можно делать внедрение, самомодифицирующийся код, перехватывать АПИ, почему он не может создавать DLL?

@Pro_grammer · 07.02.2014, 13:09

Сообщение от The trick

я ее сделал и выложил тебе (даже 2 штуки)

Спасибо, конечно. Но что стОят 2 штуки ( да хоть 5 штук) готовых DLL без описания того, как их сделать?
Я так и не понял, каким образом сделаны твои DLL? Но точно не так, каким сделана моя. У меня в DLL только 1 функция - VBSum. А в твоих образцах есть куча дополнительных
DllCanUnloadNow()
DllGetClassObject()
DllRegisterServer()
DllUnregisterServer()
Нужны ли они? При чем в одном случае они без параметров, в другом случае с 2-мя параметрами.
Хотелось бы ясности в этом вопросе!

@The trick · 07.02.2014, 13:30

Сообщение от Pro_grammer

А в твоих образцах есть куча дополнительных

Я эти DLL делал из ActiveX Dll, поэтому в ней содержатся эти функции (ее можно подключить через референсы), но мне ни чего не стоит сделать это любым другим способом (подменой линкера, FNDLL и т.п.), и у меня этих функций не будет, и будет также все работать, т.к. я писал что нет разницы каким способом создана DLL. Изначально вопрос не стоял в ограничении на экспортируемые функции, а всего лишь ты попросил работающую DLL

Сообщение от Pro_grammer

Я так и не понял, каким образом сделаны твои DLL?

Я делал пропиской ключей линкера LinkSwitches экспортируемых функций.

Сообщение от Pro_grammer

Нужны ли они? При чем в одном случае они без параметров, в другом случае с 2-мя параметрами.
Хотелось бы ясности в этом вопросе!

Это функции нужны для работы COM

@Антихакер32 · 11.02.2014, 05:53

И всётаки...., товарищи, покажите пример

1) отдельный проект где созданно 1 или 2 функции, подготовленный для компиляции в DLL + коментарии на русском
2) другой проект написанный на VB6 (VBA) который использует эту(эти) функции + коментарии на русском

Сообщение от The trick

Я делал пропиской ключей линкера LinkSwitches экспортируемых функций.

Сообщение от The trick

но мне ни чего не стоит сделать это любым другим способом (подменой линкера, FNDLL и т.п.), и у меня этих функций не будет, и будет также все работать

Как это правильно сделать?
Расскажите в этой теме. Хотя-бы мне

обычному землянину, имеющего среднее образование
и знающего только синтаксис VB6(VBA)
я очень хочу это понять

дело в том, что у меня накопилось множество DLL-ок, с исходниками
и зачастую приходиться подключать их к своим приложениям через референс
а хотелось бы пользовать только несколько отдельных функций

Добавлено через 11 минут
а главное, хотелось бы отправить клиенту посылку со своим приложением
у которого есть рантайм msvbvm60.dll
посылку, где будет папка с DLL-ками и EXE-Файл , который будет сразу-же работать

@Pro_grammer · 11.02.2014, 07:48

Сообщение от FelixMacintosh

а главное, хотелось бы отправить клиенту посылку со своим приложением
у которого есть рантайм msvbvm60.dll

Прочитай самый первый пост этой темы. Если надо работать с DLL только из VB6, то проблем нет вообще. Там и пример есть.

Все копии ломают исключительно из желания работать с DLL написанными в VB6 на других ЯП.
Повторюсь, что ввиду запрета ссылок на оригинальную статью - она на другом форуме, привожу только полное название :
[FireNativeDLL] Создание полноценных DLL на Visual Basic ( первая строка Гугла)
Там есть инсталлятор на 3-й странице конференции ( нужна регистрация). После установки появится шаблон в VB6, куда надо вписать свои функции, скомпилировать обычный способом и наслаждаться полученной DLL.

@Антихакер32 · 11.02.2014, 08:39

Ну хорошо, спасибо, Native VB DLL.zip вы сдесь уже выкладывали ...
сейчас к себе копирую, все страницы, из найденной дополнительной информации
буду разбираться ...

Добавлено через 26 минут
а шаблон Standard DLL.vbp я не сразу у себя обнаружил, после установки
пришлось вскрыть архив SFX чтоб подсмотреть что туда установилось )

@The trick · 11.10.2014, 23:18

Многопоточность в VB6 часть 2 - создание Native DLL и вызов экспортируемой функции в другом потоке.

@Антихакер32 · 12.10.2014, 01:07

Я редко заглядываю на сайт *Конференция VBStreets*
Зато теперь понятно как сделать нативную DLL (без примочек)

Откройте блокнотом проектный файл (vbp)
и обратите внимание на новый ключ внизу ([VBCompiler]),
и как экспортируются функции из DLL

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

Type=OleDll
Module=Module1; Module1.bas
Class=Class1; Class1.cls
Startup="(None)"
HelpFile=""
ExeName32="1.dll"
Command32=""
Name="Vb1"
HelpContextID="0"
CompatibleMode="1"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=1
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[VBCompiler]
LinkSwitches=-export:Foo -export:Bar -export:VBStreetsRules

Картинка:

@The trick · 12.10.2014, 01:11

Антихакер32, ты читал тему? Это уже было.

@Антихакер32 · 12.10.2014, 01:18

Сообщение от The trick

ты читал тему? Это уже было.

Где?..
Может-быть и было, повторение мать учения, тем-более я так красиво оформил пост
что любой начинающий смогёт собрать *полноценную* длл-ку ))

@The trick · 12.10.2014, 15:08

Сообщение от Антихакер32

Где?..

Вообще-то я 2 раза описал это метод.

Сообщение от Антихакер32

что любой начинающий смогёт собрать *полноценную* длл-ку ))

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

Добавлено через 13 часов 47 минут
Многопоточность в VB6 часть 3 - внедрение в чужой процесс.
Пример DLL, написанной на VB6, с внедрением ею в чужие процессы.

@The trick · 17.02.2015, 01:08

Многопоточность на VB6 часть 4 - многопоточность в Standart EXE.
Многопоточность в стандартном EXE.

@Kataraksis · 24.11.2015, 08:56

Всем доброго времени суток! Позвольте задать небольшой вопрос? Пример dll из шапки отлично работает в проверочном модуле, запущенном в VB6, также справляется в VBA6.5 в Excel и в VBA7.1(x32) в AutoCAD, но в VBA7.1(x64) в AutoCAD выдает ошибку 48. Возможно это связано с необходимостью вызывать функции в виде: Private Declare PtrSafe Function? И можно ли как-то исправить сей момент? Заранее спасибо!

@The trick · 24.11.2015, 13:41

Нельзя использовать 32-разрядные dll в 64 разрядных приложениях (можно обойти, но это дорого будет стоить)

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@locm 6801 / 3228 / 335 Регистрация: 28.10.2011 Сообщений: 12,607 Записей в блоге: 7
	06.02.2014, 23:56
	DLL заработала. Теперь хотелось бы увидеть подробную инструкцию по созданию DLL в VB. А чтобы она не потерялась, лучше ее разместить в этой теме. Создание процедурных DLL в Visual Basic (статья) 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	07.02.2014, 08:13
	В ходе рабочих дебатов в ветке для начинающих был всё же достигнут положительный результат. Вернее этот метод уже давно используется, и в большей степени положительно, а точнее с 2007 г. Описан и разработан кем то под ником Хакер. В виду запрета ссылок на оригинальную статью - она на другом форуме, привожу только полное название : [FireNativeDLL] Создание полноценных DLL на Visual Basic Кто хочет, тот найдет. Там проект создания DLL с одной функцией сложения целых чисел + FireNativeDLL 1.0 - это средство, которое добавит в VB возможность создавать обычные DLL + программа проверки работы DLL, написанная на PureBasic, Всё проверял на winXP, а посему в других современных ОС возможны траблы, прошу протестить. P.S. После установки FireNativeDLL 1.0 ни чего не сломается - как и раньше можно работать с обычными проектами. 2

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	07.02.2014, 09:08
	я в той теме вас поблагодарил, а вот интересно The trick этими костылями пользовался ? у него кстате win-семёрка 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	11.02.2014, 08:39
	Ну хорошо, спасибо, Native VB DLL.zip вы сдесь уже выкладывали ... сейчас к себе копирую, все страницы, из найденной дополнительной информации буду разбираться ... Добавлено через 26 минут а шаблон Standard DLL.vbp я не сразу у себя обнаружил, после установки пришлось вскрыть архив SFX чтоб подсмотреть что туда установилось ) 0

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	11.10.2014, 23:18
	Многопоточность в VB6 часть 2 - создание Native DLL и вызов экспортируемой функции в другом потоке. 2

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	12.10.2014, 01:11
	Антихакер32, ты читал тему? Это уже было. 0

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	17.02.2015, 01:08
	Многопоточность на VB6 часть 4 - многопоточность в Standart EXE. Многопоточность в стандартном EXE. 3

@Kataraksis 0 / 0 / 0 Регистрация: 23.11.2015 Сообщений: 2
	24.11.2015, 08:56
	Всем доброго времени суток! Позвольте задать небольшой вопрос? Пример dll из шапки отлично работает в проверочном модуле, запущенном в VB6, также справляется в VBA6.5 в Excel и в VBA7.1(x32) в AutoCAD, но в VBA7.1(x64) в AutoCAD выдает ошибку 48. Возможно это связано с необходимостью вызывать функции в виде: Private Declare PtrSafe Function? И можно ли как-то исправить сей момент? Заранее спасибо! 0

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	24.11.2015, 13:41
	Нельзя использовать 32-разрядные dll в 64 разрядных приложениях (можно обойти, но это дорого будет стоить) 2