vbnet 进程监控，监控Acad开启的数量，并且添加到开机启动

1# 自定义函数，添加到注册表

Public Sub StartRunRegHKLM()

        REM HKEY_LOCAL_MACHINE \ SOFTWARE \ WOW6432Node \ Microsoft \ Windows \ CurrentVersion \ Run

        Dim strName As String = Application.StartupPath + "\" + Application.ProductName + ".exe"

        Dim strNewName As String = System.IO.Path.GetFileNameWithoutExtension(strName）
        If Not System.IO.File.Exists(strName) Then Return
        Try
            Dim Rkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\\WOW6432Node\\Microsoft\\Windows\\CurrentVersion\\Run", True)
            If IsNothing(Rkey) Then
                Rkey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("SOFTWARE\\WOW6432Node\\Microsoft\\Windows\\CurrentVersion\\Run")
                Rkey.SetValue(strNewName, Chr(34) & strName & Chr(34)) '修改注册表，使程序开机时自动执行.
            Else
                Rkey.SetValue(strNewName, Chr(34) & strName & Chr(34)) '修改注册表，使程序开机时自动执行。 
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "StartRun") ' //MessageBox.Show(ex.Message);
        End Try
    End Sub

 2# timer 事件中写入处理机制，不笔者限制ACAD程序最多运行2个

 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim listacad = CheckAppProcess("acad"), proAcad As Process
        If listacad.Count > 2 Then
            Me.Timer1.Stop()
            If MessageBox.Show("进程数量超过服务器的载荷!请排队等候", "AutoCAD 报告", MessageBoxButtons.OK, MessageBoxIcon.Warning) = DialogResult.OK Then
                For index = listacad.Count - 1 To 2 Step -1
                    proAcad = listacad(index)
                    If Not proAcad.HasExited Then proAcad.Kill()
                Next
                Me.Timer1.Start()
            End If
        End If
    End Sub

3# 读取进程的数量

 

Public Function CheckAppProcess(appName As String) As List(Of Process)
        Dim pros As Process() = Process.GetProcesses()
        Dim processAcad As List(Of Process) = New List(Of Process)()
        For Each p As Process In pros
            If p.ProcessName = "acad" Then processAcad.Add(p)
        Next
        Return processAcad
    End Function

 4# 最后将相关的启动timer空间的语句写入到程序开始

 

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 3000
        Me.Timer1.Start()
    End Sub

---

 

运行开机启动需要提权到管理员权限

https://www.cnblogs.com/zbfamily/p/6269335.html