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

Новые блоги и статьи Все статьи Все блоги /
Теория всего 6. Судьба неотвратима? anaschu 21.07.2026 Математическое доказательство Судьбы: Точка бифуркации в едином тензорном ядре Модели ВсегоСвежее обновление питоновского ядра «Soil Chemistry 2. 0» дало нам неопровержимое математическое. . .	Теория всего 5. ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли anaschu 21.07.2026 Единое ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли Главная задача «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы» (аттракторов. . .	сукцессия 37. Внедрил дипсик в свой оркестр из ИИ. У него закончилось пространство чата, потому опубликую выводы из его работы здесь anaschu 21.07.2026 ==================================================================== КОНТЕКСТ: Моделирование микоризной сукцессии (AM → ECM) ==================================================================== . . .	сукцессия 36. Делаю прогоны модели около порога бифуркации (превращения эндо микоризы в экто микоризу) anaschu 21.07.2026 СУКЦЕССИЯ МИКОРИЗ: КАК МАТЕМАТИКА ОБЪЯСНЯЕТ ПОДЗЕМНУЮ ВОЙНУ Мы привыкли думать, что лес — это деревья. А грибы — это то, что мы собираем в корзинку осенью. Но если заглянуть под землю, окажется,. . .
ИИ и человечность kumehtar 21.07.2026 Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .	Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф

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

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

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

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

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

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