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