Importazioni System.Threading
Modulo Module1
mutexOk fioco come booleano
M. fioca come Mutex
Conduttura secondaria ()
m. = nuovo Mutex (allineare, “MyMutexName„, mutexOk)
Se non mutexOk allora
MsgBox (“altro funzionare di caso già, rinunciante questo one.")
Ritorno
Concluder se
MsgBox (“primo caso„)
GC.KeepAlive (m)
Sommergibile dell'estremità
Modulo dell'estremità
|