Многопоточность в 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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .

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

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

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

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

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

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