Importations System.Threading
Module Module1
Faible mutexOk comme booléen
Faible m comme Mutex
Force secondaire ()
m = nouveau Mutex (rectifier, « MyMutexName », mutexOk)
Sinon mutexOk alors
MsgBox (un « autre fonctionnement d'exemple déjà, stoppant cet one.")
Retour
Finir si
MsgBox (« premier exemple »)
GC.KeepAlive (m)
Sous-marin d'extrémité
Module d'extrémité
|