Многопоточность в 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-функции вообще!? как такое возможно!?

Новые блоги и статьи Все статьи Все блоги /
интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .

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

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

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

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

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

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