Ввозы System.Threading
Модуль Module1
Тусклое mutexOk как булевско
Тусклый m как Mutex
Sub основа ()
m = новое Mutex (True, «MyMutexName», mutexOk)
Если не mutexOk после этого
MsgBox («другой бежать примера уже, прекращая это one.")
Возвращение
Закончитесь если
MsgBox («первый пример»)
GC.KeepAlive (m)
Подводная лодка конца
Модуль конца
|