Многопоточность в VBA

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

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

Почему VBA? Про VB в принципе уже все давно расписано и исследовано за десятки лет. На VBA тема менее популярна, по в принципе понятным причинам, по скольку, там она не сильно так уж и нужна. Мне также в ней нет особой необходимости, просто некоторый интерес прощупать эту тему с точки зрения "простого обывателя", на сколько далеко можно зайти и т.д.
Вообще, говоря, на VBA есть довольно простая и удобная не очень изящная возможность организовать "потоки" за счет запуска нескольких копий приложения, также можно делать на VBS.
Далее простой пример (в файле), назовем "Игра - Останови колобка если сможешь!" ). В примере все не очень оптимально, и нет какого-то полезного шаблона, но как мне кажется хорошо видно работу т.н. маршаллинга, его усточивую работу, даже при не очень, как бы правильной ситации. При запуске множества экземпляров Экселя и их одновременному обращению к одному и тому же объекту, все продолжает работать довольно устойчиво при том, что объектная модель отдельного Экселя "общается" со всеми в одном потоке или точнее из одного потока. Видимо маршаллинг все разруливает.
В данном примере, не мало важно, что рабоает пропуск ошибок и doevents. Если попытаться реализовать подобное с помощью win-api то с этим уже появляются некоторые проблеммки.. и бог весть еще с чем, а вот при работе разных экземпляров Эксель все очень просто.

@testuser2 · 09.07.2023, 18:33 **[ТС]**

Итак, по итогу, можно сказать, что есть некоторый результат. Скопировать, код Трика в VBA не получилось, что в принципе не удивительно, ведь он рассчитан на нативное исполнение. У Аппельмана там вообще недочеты в статье, не хватает кода формы, в котором должен быть объект, объявленный Withevents (это ключевое). Но у меня получилось реализовать этот принцип, немного по другому, создать фоновый поток без ожидания запускающей процедуры. Позже опишу

Добавлено через 30 минут
Очень интересный результат, программу не вышибает, даже если стопануть vba.

@HackerVlad · 09.07.2023, 19:26

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

даже если стопануть vba.

Вообще программа может продолжать работать даже после остановки, если используются другие потоки или хуки или субклассирование, я это уже давно заметил

@testuser2 · 10.07.2023, 15:32 **[ТС]**

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

Очень интересный результат

Или не очень.. Хотелось бы как-то красиво закончить тему, показать какой-нибудь фокус-покус.. И вроде бы есть кое какой прогресс. Можно запустить два потока (может и больше) (выполняющие разные не нагружные действия), и они не будут вызывать вылет Экселя, даже если что-то вводить в ячейки, и которые сами себя могут автоматически завершить в случае ошибки или нажатия на стоп (при включении дизайн-режима - вылет). Плюс к потокам еще параллельно можно запустить, какую-то нагружную задачу в основном потоке, также не вызовет вылет. Есть интересный момент, что при ошибке происходит обнуление всех переменных, но переменные, инициализированные в потоке, даже объекты сохраняются и их можно использовать, допустим, для "аварийного" завершения. Но это все годиться только для чего-то фонового, не нагружного, как и указано у Аппельмана. Стоит нагрузть поток, и это приводит к вылету. Все описанное можно реализовать с помощью таймера и более надежно. Единственное новое, что удалось получить с помощью CreateThread - это нагреть процессор, хотя качественно.) Можно наверное сделать тест для плавной нагрузки.

@testuser2 · 11.07.2023, 18:39 **[ТС]**

А дело то живет..!) Переводчик заработал по новой "фоновой" схеме. Но для этого пришлось выяснить еще одну деталь. В общем, если поток в какую-то переменную что-то запиал - он ее "сцапал" и ни кому другому туда писать нельзя.. В связи с этим пониманием кое что улучшилось, и кое что заработало. Если все будет нормально, то потом выложу рабочий код.

@HackerVlad · 11.07.2023, 22:57

testuser2, хорошо, рад что у тебя стало получаться

@testuser2 · 12.07.2023, 12:10 **[ТС]**

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

рад что у тебя стало получаться

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

@locm · 12.07.2023, 12:14

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

субклассирование

Окон?
У каждого потока свой обработчик событий. Так что не самая лучшая идея.

@HackerVlad · 12.07.2023, 12:26

Субклассирование окон с обратным вызовом стандартной оконной процедуры само по себе явяется чем-то вроде второго потока) только это не второй поток но тем ни менее)))) не вижу никакого смысла оконную процедуру запускать во второй поток.

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

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

как-там по научному субклассирование?

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

@locm · 12.07.2023, 12:41

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

Субклассирование окон с обратным вызовом стандартной оконной процедуры само по себе явяется чем-то вроде второго потока)

Это не так.
Вероятно сложилось такое мнение потому что в VB скрытый обработчик событий окон.
Переход в callback функцию происходит при вызове GetMessage или PeekMessage. При этом выход из функции произойдет после возврата из callback. То есть по сути это вызов callback функции из GetMessage или PeekMessage.

@testuser2 · 12.07.2023, 13:43 **[ТС]**

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

GetMessage или PeekMessage.

Эти же функции являются частью DoEvents. Ест простой вариант на VB.

Visual Basic
1
2
3
4
5
6
7
Public Sub DoEventsWAPI()
    Dim CurrMsg As MSG
    Do While PeekMessage(CurrMsg, 0, 0, 0, PM_REMOVE) <> 0
        TranslateMessage CurrMsg
        DispatchMessage CurrMsg
    Loop
End Sub

Реально сишный алгоритм немного посложнее

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void DoEvents()
{
    MSG msg;
    BOOL result;
    while ( ::PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE ) )
    {
        result = ::GetMessage(&msg, NULL, 0, 0);
        if (result == 0) // WM_QUIT
        {
            ::PostQuitMessage(msg.wParam);
            break;
        }
        else if (result == -1)
        {
             // Handle errors/exit application, etc.
        }
        else
        {
            ::TranslateMessage(&msg);
            :: DispatchMessage(&msg);
        }
    }
}

А как правильно будет на VB?

Добавлено через 13 минут
Кажись так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub DoEventsWAPI()
    Dim CurrMsg As msg
    Do While PeekMessage(CurrMsg, 0, 0, 0, PM_NOREMOVE)
        Select Case GetMessage(CurrMsg, 0, 0, 0)
        Case 0
            PostQuitMessage CurrMsg.wParam
            Exit Do
        Case -1
            'Handle errors/exit application, etc.
        Case Else
            TranslateMessage CurrMsg
            DispatchMessage CurrMsg
        End Select
    Loop
End Sub

@HackerVlad · 12.07.2023, 15:08

Если это всё так. То, что касается очереди потока, именно очередь потока, если обратный вызов оконной процедуры субклассирования происходит из вызова очереди потока, то тогда как вообще возможно в другой поток засунуть это? только вдумайтесь в это, очередь ведь одного конкретного потока за это отвечает

Добавлено через 3 минуты
То есть я предполагаю, что скорее всего невозможно вызвать оконную процедуру во втором потоке для окна из первого потока. Фактически должны быть как, если зависает первый основной поток, то и конечно же очередь сообщений тоже зависнет, то есть если будет не отвечать основной поток с основным окном, то будет и нельзя вызвать ну никак просто из второго отдельного потока оконную процедуру для окна из первого потока. Тогда вообще не понимаю смысла из второго потока вызывать функцию callbak для первого потока.

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

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

поэтому я думаю что это невозможно

Добавлено через 16 секунд
но точно не имеет никакого смысла вообще

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

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

Переход в callback функцию происходит при вызове GetMessage или PeekMessage.

Если тут имели ввиду про очередь потока конечно
Я уже немного подзабыл эту тему, есть ещё и очередь сообщений для окна по моему? И окно только для сообщений ещё есть

Добавлено через 42 секунды
Да и программисту на VB это знать не надо, только сишному.

@testuser2 · 12.07.2023, 15:11 **[ТС]**

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

да ето не получается, это безобразие одно

И ето получается когда люди вроде мен занимаются ерундой. На самом деле, если взят тот же Excel, там эта многопоточность есть если писать xll, на с++, с#, есть многопоточный pover query c яваподобным языком запроса, также как-то подключают яву. Я лично ни когда не имел плана изучать что либо из этого, а как раз-таки любитель иногда позаниматься ерундой ) Попутно с такой ерундой, иногда могут выяснится какие-то или не очень извесные моменты, и это как раз интересно.

@HackerVlad · 12.07.2023, 15:22

Жалко The Trick'а нету в сети, только он знает все подробности, ноу него ремонт бесконечный там) уже и не заходит в сеть даже))) По очереди сообщений для потока он мне тоже говорил, что нужно как-то там более правильно делать, не помню как уже...

Добавлено через 1 минуту
Не встречал в Интернете ещё лучше программиста чем The Trick вообще я много научился у него (хотя думал что всё умею итак) а на самом деле я нихрена не умел...

@locm · 12.07.2023, 15:33

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

Да и программисту на VB это знать не надо

И незнающие программисты пытаются выполнять callback функции окна в не в том потоке где оно было создано.

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

И ето получается когда люди вроде мен занимаются ерундой.

Есть документация и в ней написано что можно, а что нельзя.

Если VBA не поддерживает многопоточность, стабильной работы потоков не будет.

@HackerVlad · 12.07.2023, 15:37

Надо читать MSDN короче)))) самое правильное что только можно сказать))))))) почитай доку и всё поймёшь))))

Добавлено через 39 секунд
Да сама затея в VBA многопоточность тупиковая какая-то.

@testuser2 · 12.07.2023, 16:26 **[ТС]**

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

Если VBA не поддерживает многопоточность, стабильной работы потоков не будет.

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

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

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

И незнающие программисты пытаются выполнять callback функции окна в не в том потоке где оно было создано.

Влад же как-то субклассировал редактор реестра, не знаю правда не разбирал его код.

@HackerVlad · 12.07.2023, 19:42

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

Влад же как-то субклассировал редактор реестра

Я субклассировал своё собственное окно, которое принадлежит моему потоку. Окно, созданное внутри редактора реестра, принадлежит не процессу regedit, а моей собственной программе. Это вот такое вот удивительное чудо. Только поэтому я и смог отсубклассировать текстовое поле внутри редактора реестра, только потому что окно принадлежит МОЕМУ потоку, не редактору реестра.

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

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

не разбирал его код

а лучше бы посмотрел на самом деле

Добавлено через 5 минут
Вообще отсубклассировать можно любое чужое окно (если совпадает битность приложений), как это делает любимая ваша программа Spy+ там что-то там не помню название. Я пользуюсь WindowDetective мне гораздо больше нравится.

Добавлено через 2 минуты
Для просмотра всех оконных сообщений, я имею ввиду

@testuser2 · 13.07.2023, 02:33 **[ТС]**

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

любимая ваша программа Spy+

Любимая наша Spy++ есть в поставке VB6, но лучше более современный Syxx с Гитхаба. У меня еще еть прожка WinID.

@HackerVlad · 13.07.2023, 09:27

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

в поставке VB6

Нет, в поставке VB6 её нет

Добавлено через 1 минуту
Он в каких-то других поставках Visual Studio более новых наверное чем VB6, но лично у меня этой проги нет

Добавлено через 19 минут
Скачал Spy++ посмотрел, ерундовая программулька, не понравилась мне, WindowDetective гораздо лучше)))

@testuser2 · 13.07.2023, 16:00 **[ТС]**

Вот, кстати, хороший пример Трика - создание окон в разных потоках, и там же сабклассинг в этих потоках, также там показана работа такой вещи как мьютекс..

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@testuser2 1410 / 870 / 93 Регистрация: 08.02.2017 Сообщений: 3,720 Записей в блоге: 2
	09.07.2023, 18:33 [ТС]
	Итак, по итогу, можно сказать, что есть некоторый результат. Скопировать, код Трика в VBA не получилось, что в принципе не удивительно, ведь он рассчитан на нативное исполнение. У Аппельмана там вообще недочеты в статье, не хватает кода формы, в котором должен быть объект, объявленный Withevents (это ключевое). Но у меня получилось реализовать этот принцип, немного по другому, создать фоновый поток без ожидания запускающей процедуры. Позже опишу Добавлено через 30 минут Очень интересный результат, программу не вышибает, даже если стопануть vba. 0

@testuser2 1410 / 870 / 93 Регистрация: 08.02.2017 Сообщений: 3,720 Записей в блоге: 2
	11.07.2023, 18:39 [ТС]
	А дело то живет..!) Переводчик заработал по новой "фоновой" схеме. Но для этого пришлось выяснить еще одну деталь. В общем, если поток в какую-то переменную что-то запиал - он ее "сцапал" и ни кому другому туда писать нельзя.. В связи с этим пониманием кое что улучшилось, и кое что заработало. Если все будет нормально, то потом выложу рабочий код. 0

@HackerVlad Вернулся 1772 / 668 / 45 Регистрация: 10.09.2021 Сообщений: 2,816
	11.07.2023, 22:57
	testuser2, хорошо, рад что у тебя стало получаться 0

@HackerVlad Вернулся 1772 / 668 / 45 Регистрация: 10.09.2021 Сообщений: 2,816
	12.07.2023, 15:22
	Жалко The Trick'а нету в сети, только он знает все подробности, ноу него ремонт бесконечный там) уже и не заходит в сеть даже))) По очереди сообщений для потока он мне тоже говорил, что нужно как-то там более правильно делать, не помню как уже... Добавлено через 1 минуту Не встречал в Интернете ещё лучше программиста чем The Trick вообще я много научился у него (хотя думал что всё умею итак) а на самом деле я нихрена не умел... 0

@HackerVlad Вернулся 1772 / 668 / 45 Регистрация: 10.09.2021 Сообщений: 2,816
	12.07.2023, 15:37
	Надо читать MSDN короче)))) самое правильное что только можно сказать))))))) почитай доку и всё поймёшь)))) Добавлено через 39 секунд Да сама затея в VBA многопоточность тупиковая какая-то. 0

@testuser2 1410 / 870 / 93 Регистрация: 08.02.2017 Сообщений: 3,720 Записей в блоге: 2
	13.07.2023, 16:00 [ТС]
	Вот, кстати, хороший пример Трика - создание окон в разных потоках, и там же сабклассинг в этих потоках, также там показана работа такой вещи как мьютекс.. 0