Importações System.Threading
Módulo Module1
mutexOk não ofuscante como bôoleano
M não ofuscante como Mutex
Cano principal secundário ()
m = Mutex novo (retificar, “MyMutexName”, mutexOk)
Se não mutexOk então
MsgBox (um “outro funcionamento do exemplo já, parando este one.")
Retorno
Terminar se
MsgBox (“primeiro exemplo”)
GC.KeepAlive (m)
Submarino da extremidade
Módulo da extremidade
|