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

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

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

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

@HackerVlad · 13.07.2023, 16:20

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

Вот, кстати, хороший пример Трика - создание окон в разных потоках

Да я давно уже видел, именно этот пример Трика мне больше всего и понравился, очень легко тут можно разобраться как создавать несколько потоков, в отличии от других его примеров, таких как TrickMTDownloader... Я на основе этого примера для себя и создал уже свою пробную программку где одна и та же процедура у меня выполняется в разных потоках.

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

Еще забыл упомянуть, там используется такая вот интересная конструкция, как я понял, еще одна вариация доэвента.

Visual Basic
1
2
3
4
    Do While GetMessage(wMsg, 0&, 0&, 0&)
        Call TranslateMessage(wMsg)
        Call DispatchMessage(wMsg)
    Loop

@HackerVlad · 13.07.2023, 16:45

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

Вот, кстати, хороший пример Трика

Кстати он говорил, что у него там неправильно очередь огранизована, там в примере:

Visual Basic
1
2
3
4
Do While GetMessage(wMsg, 0&, 0&, 0&)
        Call TranslateMessage(wMsg)
        Call DispatchMessage(wMsg)
    Loop

А надо примерно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Do
        
        lRet = GetMessage(tMsg, 0, 0, 0)
        
        If lRet = -1 Then
            ' // Error
            Exit Do
        ElseIf lRet = 0 Then
            Exit Do
        Else
            TranslateMessage tMsg
            DispatchMessage tMsg
        End If
        
    Loop

Добавлено через 2 минуты
И вот на форуме Хакер говорит, что за такое надо быть по рукам:

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

там используется такая вот интересная конструкция

http://bbs.vbstreets.ru/viewtopic.php?f=9&t=42707

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

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

еще одна вариация доэвента

Это очередь сообщений потока, меня всегда удивляли эти бесконечные циклы если честно, первое время меня вообще помню шокировал этот код и я всё время думал о том, почему же не зависает вообще программа в этом бесконечном цикле... Do Loop сам по себе же это бесконечный цикл... А тут получается что цикл хоть как бы и бесконечный но не бесконечный и на 100% проц нагружать не будет)

Это всё очень интересно для изучения кстати. Эта очередь сообщений используется как раз для того чтобы окно висело в памяти и не закрывалось сразу же)))) Меня больше всего шокировало почему Do Loop не зависает... Оказывается функции TranslateMessage, DispatchMessage замораживают поток ровно до тех пор пока окно не получит какое-либо сообщение отклика и лишь на мгновение тогда программа размораживается чтобы что-то там выполнять в окне этом потом поток снова замораживается и снова ждёт сообщений типа того, если честно про очередь сообщений потока и очередь сообщений окна отдельную тему надо) это очень интересно)

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

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

в отличии от других его примеров, таких как TrickMTDownloader...

TrickMTDownloader еще по-людски описан, а вот там, где про копирование файла конкреный брейнфак

@HackerVlad · 13.07.2023, 16:48

testuser2, https://www.cyberforum.ru/blog... g5296.html вот тут вроде как самый лучший его пример многопоточности, но я не изучал, слишком сложно

@locm · 13.07.2023, 16:52

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

Вот, кстати, хороший пример Трика - создание окон в разных потоках

Там числый WinAPI. Ни о каких окнах VB6 речь не идет.
VB6 интересен прежде всего визуальностью. А на WinAPI лучше писать на ЯП с поддержкой многопоточности.

@HackerVlad · 13.07.2023, 17:09

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

Ни о каких окнах VB6 речь не идет

А кто тебе говорит про окна VB6? Ну да, там API'шные окна.

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

Там числый WinAPI

Тем и прекрасно!

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

А на WinAPI лучше писать на ЯП с поддержкой многопоточности.

Зачем? Если на VB6 The Trick уже написал итак многопоточность.

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

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

VB6 интересен прежде всего визуальностью.

Я поэтому на нём и программирую, и работает на всех виндах, даже на виндовс 95. Плюс зачем мне мучиться изучать новый язык программирования если я абсолютно всё умею на vb6.

@locm · 13.07.2023, 17:19

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

Ну да, там API'шные окна.

Тогда смысл писать на VB?
Если нет визуального программирования, смысла мало.

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

Зачем? Если на VB6 The Trick уже написал итак многопоточность.

Например на других ЯП (возьмем к примеру PB) можно писать многопоточные приложения без необходимости прибегать к WinAPI (но если нужно никто не запрещает его использовать).
В любом случае код будет проще чем на VB и работать стабильнее. Вот к примеру код с похожим функционалом как у The trick в блоге.

PureBasic
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
CompilerIf #PB_Compiler_Thread=0
  CompilerError "Включите поддержку мнгопоточности"
CompilerEndIf
 
DisableDebugger
 
Procedure ThreadProc(Num)
  OpenWindow(Num, Random(500), Random(500), 220, 220, "Гаджет Канвас "+Num, #PB_Window_SystemMenu)
  CanvasGadget(Num, 10, 10, 200, 200)
  
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Gadget And EventGadget() = Num 
      If EventType() = #PB_EventType_LeftButtonDown Or (EventType() = #PB_EventType_MouseMove And GetGadgetAttribute(Num, #PB_Canvas_Buttons) & #PB_Canvas_LeftButton)
        If StartDrawing(CanvasOutput(Num))
          x = GetGadgetAttribute(Num, #PB_Canvas_MouseX)
          y = GetGadgetAttribute(Num, #PB_Canvas_MouseY)
          Circle(x, y, 2, RGB(Random(255), Random(255), Random(255)))
          StopDrawing()
        EndIf
      EndIf
    EndIf    
    
  Until Event = #PB_Event_CloseWindow
EndProcedure
 
#CountThread = 10
Dim ThID(#CountThread)
 
; Создаем потоки
For i=1 To #CountThread
  ThID(i) = CreateThread(@ThreadProc(), i)
Next
 
; Ждем завершения потоков.
For i=1 To #CountThread
  WaitThread(ThID(i))
Next

@HackerVlad · 13.07.2023, 17:23

locm, я видел уже на другом форуме эти примеры на PureBasic и видел как The Trick спорил там с кем-то каждый доказывал где ему лучше и на чём ему лучше это писать)))))))

@locm · 13.07.2023, 17:26

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

@HackerVlad · 13.07.2023, 17:27

locm, а если я например не умею программировать на других языках кроме VB6. И зачем мне тратить много-много-много времени на то чтобы изучить новый язык программирования и написать на нём, когда я уже умею программировать на vb6 и всё сделаю быстро.

@locm · 13.07.2023, 17:32

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

зачем мне тратить много-много-много времени на то чтобы изучить новый язык

Ну можете тратить много-много-много времени на то чтобы писать более сложный и менее стабильный многопоточный код на VB.
The Trick может себе это позволить, т. к. уровень знаний соответствующий. Но мало кто кроме него сможет проделывать такие трюки на VB.

Язык это инструмент и его подбирают под задачу.

@The trick · 13.07.2023, 20:14

locm, на вб6 многопоточность в activex exe без всякого winapi из коробки работает. И формы можно создавать и классы - все что угодно.

@locm · 13.07.2023, 20:19

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

на вб6 многопоточность в activex exe без всякого winapi из коробки работает.

Много тут на форуме тем с кодами имеющими многопоточность и компилируемыми в activex exe?
Кроме ваших конечно же.

@The trick · 13.07.2023, 20:56

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

Много тут на форуме тем с кодами имеющими многопоточность и компилируемыми в activex exe?

А при чем тут это? Ты написал:

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

Например на других ЯП (возьмем к примеру PB) можно писать многопоточные приложения без необходимости прибегать к WinAPI (но если нужно никто не запрещает его использовать).
В любом случае код будет проще чем на VB и работать стабильнее. Вот к примеру код с похожим функционалом как у The trick в блоге.

Я же тебе ответил что на вб6 можно еще проще сделать.

@locm · 13.07.2023, 21:29

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

@The trick · 13.07.2023, 21:42

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

В коде неявная многопоточность.

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

@locm · 13.07.2023, 21:52

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

Понятно, "ваша многопоточность - не многопоточность".

Я такого не писал.
Видно что при открытии/закрытии окон число потоков изменяется.
Но т. к. создание потоков неявное, не совсем ясно как все это происходит.

@The trick · 13.07.2023, 23:19

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

Я такого не писал.
Видно что при открытии/закрытии окон число потоков изменяется.
Но т. к. создание потоков неявное, не совсем ясно как все это происходит.

Еще раз - это почти тоже самое что ты привел выше с окнами и потоками. Каждое окно создается в своем потоке. Thread Per Object - обозначает что каждый VB6 публичный-объект будет жить в своем STA (считай потоке) и необязательно это должна быть форма - любой пользовательский класс. Создаешь 10 объектов - каждый в своем потоке, в каждом выполняешь любые операции - они друг друга не блокируют. В примере выше в форме просто можно гонять либо цикл большой, либо Sleep. Т.к. объекты используют STA модель, для них не нужно обеспечивать атомарный доступ к данным - все на себя берет система. Программист работает с блоками - объектами. И единственный вариант в данном конкретном случае выстрелить в ногу - это дедлоки.
Еще раз - изучи этот момент, если тебе действительно интересно, чтобы не писать больше дезинформацию.

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

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

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

Тут уже публиковались несколько вариантов на вб6. Более того можно сделать даже с разной битностью при желании.

@HackerVlad · 13.07.2023, 23:56

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

Более того можно сделать даже с разной битностью при желании.

Ты мне говорил что нельзя. Ну если и можно то слишком сильно сложно.

Добавлено через 6 минут
The trick, у тебя создаётся окно в новом потоке без единой API-функции вообще!? как такое возможно!?

Новые блоги и статьи Все статьи Все блоги /
Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	13.07.2023, 16:48
	testuser2, https://www.cyberforum.ru/blog... g5296.html вот тут вроде как самый лучший его пример многопоточности, но я не изучал, слишком сложно 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	13.07.2023, 17:23
	locm, я видел уже на другом форуме эти примеры на PureBasic и видел как The Trick спорил там с кем-то каждый доказывал где ему лучше и на чём ему лучше это писать))))))) 0

@locm 7239 / 3417 / 348 Регистрация: 28.10.2011 Сообщений: 13,462 Записей в блоге: 7
	13.07.2023, 17:26
	Я пишу что когда речь заходит об многопоточном оконном приложении, VB не лучший выбор. Код получится сложнее, уровень необходимых знаний гораздо выше и стабильность под вопросом. 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	13.07.2023, 17:27
	locm, а если я например не умею программировать на других языках кроме VB6. И зачем мне тратить много-много-много времени на то чтобы изучить новый язык программирования и написать на нём, когда я уже умею программировать на vb6 и всё сделаю быстро. 0

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	13.07.2023, 20:14
	locm, на вб6 многопоточность в activex exe без всякого winapi из коробки работает. И формы можно создавать и классы - все что угодно. 1

@locm 7239 / 3417 / 348 Регистрация: 28.10.2011 Сообщений: 13,462 Записей в блоге: 7
	13.07.2023, 21:29
	В коде неявная многопоточность. Не совсем понятно как создать несколько потоков без окон, в которых выполнять фоновые задачи, например качать что-то с сети, сканировать диск, обрабатывать данные пересылая их между несколькими потоками и т. д. 0