VB.Net 程式只能執行一次的範例程式碼

Imports System.Threading

Module Program
    Private mutex As Mutex

    Sub Main()
        Dim mutexName As String = "Global\MyUniqueAppName"

        Dim createdNew As Boolean
        mutex = New Mutex(True, mutexName, createdNew)

        If Not createdNew Then
            Console.WriteLine("程式已經在執行中。")
            Return
        End If

        ' 主程式邏輯開始
        Console.WriteLine("程式開始執行...")
        Console.ReadLine()

        ' 程式結束時釋放 Mutex
        mutex.ReleaseMutex()
    End Sub
End Module