VB.NET阻止程序重复启动

以下两种方法来自qq群,未经测试:

---

方法一:

If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
MessageBox.Show("当前程序已启动,请使用Alt+Tab键进行切换!", "禁止运行 ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End
Exit Sub
End If

---

方法二:

        Dim bExist As Boolean = False
        Dim MyMutex As New System.Threading.Mutex(True, "随便给个名字", bExist) '互斥进程
  
        If bExist = False Then
            MessageBox.Show("程序已经运行！", "禁止多开", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Dispose()
            End
        End If 

---