Importaciones System.Threading
Módulo Module1
mutexOk dévil como boleano
M dévil como Mutex
Cañería secundaria ()
m = nuevo Mutex (verdad, “MyMutexName”, mutexOk)
Si no mutexOk entonces
MsgBox (“otro funcionamiento del caso ya, parando este one.")
Vuelta
Terminar si
MsgBox (“primer caso”)
GC.KeepAlive (m)
Submarino del extremo
Módulo del extremo
|