防止同一个程序多次运行。 [VB.NET]

最新推荐文章于 2023-02-28 23:13:08 发布

转载最新推荐文章于 2023-02-28 23:13:08 发布 · 2.2k 阅读

文章标签：

#vb.net #function #exe #each

vb 专栏收录该内容

1 篇文章

订阅专栏

博客介绍了VB.NET中防止程序多次打开的两种方法。方法一是定义IsInstanceRunning函数，通过遍历同名进程判断工程是否已运行；方法二则是利用Process类获取当前程序名称，根据进程数量判断是否退出。

'*****************方法一：防止程序多次打开*****************
'      函数名：      IsInstanceRunning
'      功能：      判断工程是否已运行
'      参数：      无
'      返回值：      True 已运行    False 未运行
'*******************************************************
Public Function IsInstanceRunning() As Boolean
    Dim current As Process = System.Diagnostics.Process.GetCurrentProcess()
    Dim processes As Process() = System.Diagnostics.Process.GetProcessesByName(current.ProcessName)
    'Loop through the running processes in with the same name
    Dim p As Process
    For Each p In processes
        'Ignore the current process
        If p.Id <> current.Id Then
            'Make sure that the process is running from the exe file.
            If System.Reflection.Assembly.GetExecutingAssembly().Location.Replace("/", "/") = current.MainModule.FileName Then
                'Return the other process instance.
                Return True
            End If
       End If
    Next
    'No other instance was found, return null.
    Return False
End Function   'RunningInstance

'*****************方法二：防止程序多次打开*****************
Imports System.Diagnostics
If UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) _
> 0 Then Eixt Sub
'Process.GetCurrentProcess.ProcessName 获取当前运行程序的名称。