VB.Net by API/System.Threading/Mutex

Mutex.WaitOne()

  
Imports System.Threading
Module Module1
    Public Class MutexSample
        Shared globalMutex1 As Mutex
        Shared globalMutex2 As Mutex
        Const Counter As Integer = 100
        Shared Event1 As AutoResetEvent = New AutoResetEvent(False)
        Shared Event2 As AutoResetEvent = New AutoResetEvent(False)
        Shared Event3 As AutoResetEvent = New AutoResetEvent(False)
        Shared Event4 As AutoResetEvent = New AutoResetEvent(False)
        Public Sub do1()
            Console.WriteLine("do1 started,  Mutex.WaitAll(Mutex())")
            Dim gMs(1) As Mutex
            gMs(0) = globalMutex1    
            gMs(1) = globalMutex2
            WaitHandle.WaitAll(gMs)
            Thread.Sleep(2000)
            Console.WriteLine("do1 finished, Mutex.WaitAll(Mutex())")
            Event1.Set()
        End Sub
        Public Sub do2()
            Console.WriteLine("do2 started,  globalMutex1.WaitOne( )")
            globalMutex1.WaitOne()   
            Console.WriteLine("do2 finished, globalMutex1.WaitOne( )")
            Event2.Set()  
        End Sub
        Public Sub do3()
            Console.WriteLine("do3 started,  Mutex.WaitAny(Mutex())")
            Dim gMs(1) As Mutex
            gMs(0) = globalMutex1    
            gMs(1) = globalMutex2
            Mutex.WaitAny(gMs)
            Console.WriteLine("do3 finished, Mutex.WaitAny(Mutex())")
            Event3.Set()     
        End Sub
        Public Sub do4() 
            Console.WriteLine("do4 started,  globalMutex2.WaitOne( )")
            globalMutex2.WaitOne()    
            Console.WriteLine("do4 finished, globalMutex2.WaitOne( )")
            Event4.Set()     
        End Sub
        Public Sub Run()     
            Console.WriteLine("MutexSample ...")
            globalMutex1 = New Mutex(True, "MyMutex") 
            globalMutex2 = New Mutex(True)   
            Console.WriteLine(" - Main Owns globalMutex1 and globalMutex2")
            Dim evs(3) As AutoResetEvent
            evs(0) = Event1   
            evs(1) = Event2   
            evs(2) = Event3   
            evs(3) = Event4   
            Dim tm As MutexSample = New MutexSample()
            Dim t1 As Thread = New Thread(New ThreadStart(AddressOf tm.do1))
            Dim t2 As Thread = New Thread(New ThreadStart(AddressOf tm.do2))
            Dim t3 As Thread = New Thread(New ThreadStart(AddressOf tm.do3))
            Dim t4 As Thread = New Thread(New ThreadStart(AddressOf tm.do4))
            t1.Start()     
            t2.Start()     
            t3.Start()     
            t4.Start()     
            Thread.Sleep(2000)
            Console.WriteLine(" - Main releases globalMutex1")
            globalMutex1.ReleaseMutex() 
            Thread.Sleep(1000)
            Console.WriteLine(" - Main releases globalMutex2")
            globalMutex2.ReleaseMutex() 
        End Sub
    End Class 
    Sub main()
        Dim ms As MutexSample = New MutexSample()
        ms.Run()
    End Sub
End Module