Как сделать TLB

@testuser2 · Регистрация: 08.02.2017

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

Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB?

@testuser2 · 05.07.2023, 02:50 **[ТС]**

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

серьёзно?

Да что-т не очень, тлб-шка то создается я и обрадовался, но в ней ничего нет для пользования

@HackerVlad · 05.07.2023, 06:31

testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6.

@testuser2 · 05.07.2023, 07:38 **[ТС]**

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

Да и вообще чего ты так на этом VBA помешался.

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

Добавлено через 12 минут
На Пайтоне подобная концепция реализована в виде библиотеки скриптов. Недавно запись была про это. https://www.cyberforum.ru/blog... g8158.html
Удобно - надо какую-то задачу сделать - выбрал нужный скрипт. Но мне не нравится, что там при выполнении скрипта, выводится какая-то билиберда консолью, вообще не понимаю в этом смысла.

@testuser2 · 06.04.2025, 12:44 **[ТС]**

Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу..

@The trick · 06.04.2025, 12:45

testuser2, как компилируешь и что?

@testuser2 · 06.04.2025, 12:49 **[ТС]**

The trick, у меня есть своя простейшая tlb-шка всего с одной функцией. Я ее откры OleView и сохранил от туда файл IDL и попытался скомпилить с ключем /tlb последний раз это было так. Я уже наустанавливал всякой "требухи" типо Windows Kits, Даже VS 2017 Community установил не че не помагает (

Code
1
F:\Windows Kits\10\bin\10.0.26100.0\x86\midl.exe" "C:\Users\User\Documents\Excel\TLB\exampleIDL.IDL" /tlb "C:\Users\User\Documents\Excel\TLB\TestExample.tlb

@The trick · 06.04.2025, 12:54

testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно.

@testuser2 · 06.04.2025, 13:01 **[ТС]**

The trick, вот мой idl-файл, есть еще один тестовый файл, со структурами и функциями там есть importlib("stdole2.tlb"); для поддержки Variant и safearray, но там я сейчас заметил ошибки.

@The trick · 06.04.2025, 13:09

testuser2, нужно сначала настроить пути типа такого:

Bash
1
2
call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"
"C:\Program Files (x86)\Windows Kits\10\bin\10.0.22621.0\x86\midl.exe" exampleIDL.idl

В IDL нужно вставить алиас:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[
  uuid(61F37A68-F92D-458D-B50B-9FC55DBC0E04),
  version(0.0) //,
  //helpstring("VB/VBA Memory Help WAPI TLB")
]
library ExampleTestTlb
{
 
typedef [public] long LONG_PTR;
 
    // Forward declare all types defined in this typelib
 
    [
      dllname("kernel32") //,
      //helpstring("kernel32 mama-helper.")
    ]
    module kernel32 {
        [entry("RtlMoveMemory"), helpstring("RtlMoveMemory")]
        void _stdcall CopyMemory(
                    [in] void* Dst, 
                    [in] void* Src, 
                    [in] LONG_PTR Size);
    };
};

@testuser2 · 06.04.2025, 13:34 **[ТС]**

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

В IDL нужно вставить алиас:

Я конечно маленько не об этом мечтал, но алиасы в tlb это круто конечно, не знал, спасибо!
Все-таки от статичности TLB видимо ни куда не уйти. А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

@The trick · 06.04.2025, 14:18

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

А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

https://learn.microsoft.com/en... l/optional
https://learn.microsoft.com/en... faultvalue

@testuser2 · 06.04.2025, 15:36 **[ТС]**

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

Все-таки от статичности

Да нет же, такие типы как BSTR, void на само деле не статичные, они по разному определяются в x86/x64

Добавлено через 30 минут

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

call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"

Там все на английском, я сдаюсь, но не исключаю, что в этом может быть решение.

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

typedef [public] long LONG_PTR;

Вот что интересно, а нельзя ли делать алиас-указатель типа typedef void* PtrPtr ?

Добавлено через 6 минут
Вижу, есть аттрибут ptr https://learn.microsoft.com/ru... 2/midl/ptr
Но еще бы понять, может ли это добавить каких-то возможностей Vb..

@testuser2 · 24.04.2025, 16:39 **[ТС]**

Получилось все-таки скомпилировать с помощью midl-а таким образчиком
1 сначала нужно найти vcvars32.bat (или vcvars64.bat)
2 открыть окно команд от администратора и выполнить батник
3 выполнить midl "путь к .tlb"
tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat)

@testuser2 · 02.08.2025, 13:23 **[ТС]**

Нашел, как настоящий LongPtr добавлять в tlb, для этого нужно добавлят импорт

Code
1
importlib("VBE7.dll");

В VBE7 как раз определен этот тип-алиас

C
1
2
3
4
typedef [public    ,
      custom(F914481D-9C62-4B43-9340-E9B2E6252E5F, 1)    
]
    long LONG_PTR;

Так можно делать универсальные tlb для 32/64 для VBA

Добавлено через 21 минуту
Еще одну вещь увидел в stdole2.tlb тип OLE_COLOR определен как unsigned long, вау, думаю, а не работает ли unsigned в VBA. Неа, код выполняется без ошибок )(

Visual Basic
1
2
3
4
Sub safasfas()
    Dim cl As OLE_COLOR
    cl = -123    
End Sub

Добавлено через 5 часов 36 минут

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

Так можно делать универсальные tlb

ошибочка, универсальные idl-ы, а, вот, tlb-шка получается не универсальная. Еще из наблюдений, видимо в idl нельзя делать публик-константы, кроме как в энумах. А в odl можно, поскольку на vbspeeds выложена целая одна tlb с всего одной константой, но рабочей и не состоящей в энумах.
Дальше об экспериментах

C
1
2
// typedef [public] long* LongRef; //не удачный эксперимент, в VB выдаст ошибку неподдерживаемого типа.
typedef [public] void AnyType;    //удачный эксперимент, можно сделать аргмент в VB функции, работающий как Any..

@testuser2 · 23.11.2025, 07:49 **[ТС]**

Опять же не понятная ситуация
В VBE7 есть модуль Constants

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    [
      dllname("<no entry points>"),
      uuid(343DB180-2BCC-1069-82D4-00DD010EDFAA),
      helpcontext(0x000f6ebd)
    ]
    module Constants {
        [helpcontext(0x000f79aa)] const long vbObjectError = 0x80040000;
        [helpcontext(0x0010aa32)] const LPSTR vbNullString = "";
        [helpcontext(0x0010aa32)] const LPSTR vbNullChar = "\0";
        [helpcontext(0x0010aa32)] const LPSTR vbCrLf = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbNewLine = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbCr = "\r";
        [helpcontext(0x0010aa32)] const LPSTR vbLf = "\n";
        [helpcontext(0x0010aa32)] const LPSTR vbBack = "\b";
        [helpcontext(0x0010aa32)] const LPSTR vbFormFeed = "\f";
        [helpcontext(0x0010aa32)] const LPSTR vbTab = "\t";
        [helpcontext(0x0010aa32)] const LPSTR vbVerticalTab = "\v";
    };

Пытаюсь создать такой же модуль в своем idl-файле, но это нарушает компиляцию

Code
1
Ошибка    LNK1169 обнаружен многократно определенный символ - один или более

C
1
2
3
4
5
6
7
    [
        dllname("<no entry points>"),
        uuid(343DB180-2BCC-1069-8215-00DD010EDFAA)
    ]
    module ConstModule{
        const long sizeofptr = 0x00000004;
    };

Добавлено через 2 часа 7 минут
Разобрался. В Atl-проекте, в демонстрационном модуле автоматически добавляется заголовок такого вида #include "название_проекта_i.h" (в моем случае ATLVBA_i.h), я думал, что это необходимо и добавлял этот инклд во все новые модли. Но это вот как раз мешало откомпилировать константы в idl-модуле, поскольку все константы и функции из idl автоматически попадают в ATLVBA_i.h, а посколь ATLVBA_i.h был заинклюден в несколько модулей, то в них автоматически попадают определения из ATLVBA_i.h, т.е. из файла idl. И все вроде в порядке, но с константами из idl почему-то происходит такая фигня, что они как-будто переопределяются в каждом модуле по-новой и начинают друг с другом конфликтовать. В обем убрал во всех своих модулях #include "ATLVBA_i.h" и компиляция прошла нормально и константа появилась в Object-браузере.

Новые блоги и статьи Все статьи Все блоги /
Гайд, как ворваться в вайб-кодинг в мае 2026 Noname2331 17.05.2026 Простите за получившееся полотно текста, я даже не знаю, как его разбить на главы. Тут, что называется, ни добавить ни убавить, одна сцена одним дублем. На моих глазах недавно случилось чудо. Как. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@testuser2 1400 / 858 / 92 Регистрация: 08.02.2017 Сообщений: 3,642 Записей в блоге: 2

	Как сделать TLB 30.06.2023, 20:11. Показов 4194. Ответов 34 Метки нет (Все метки) Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB? 0

@HackerVlad Вернулся 1748 / 644 / 45 Регистрация: 10.09.2021 Сообщений: 2,786
	05.07.2023, 06:31
	testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6. 0

@testuser2 1400 / 858 / 92 Регистрация: 08.02.2017 Сообщений: 3,642 Записей в блоге: 2
	06.04.2025, 12:44 [ТС]
	Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу.. 0

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	06.04.2025, 12:45
	testuser2, как компилируешь и что? 0

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 79
	06.04.2025, 12:54
	testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно. 0

@testuser2 1400 / 858 / 92 Регистрация: 08.02.2017 Сообщений: 3,642 Записей в блоге: 2
	24.04.2025, 16:39 [ТС]
	Получилось все-таки скомпилировать с помощью midl-а таким образчиком 1 сначала нужно найти vcvars32.bat (или vcvars64.bat) 2 открыть окно команд от администратора и выполнить батник 3 выполнить midl "путь к .tlb" tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat) 0