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() & strName & Chr()) '修改注册表，使程序开机时自动执行.
             Else
                 Rkey.SetValue(strNewName, Chr() & strName & Chr()) '修改注册表，使程序开机时自动执行。
             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 >  Then
             Me.Timer1.Stop()
             If MessageBox.Show("进程数量超过服务器的载荷!请排队等候", "AutoCAD 报告", MessageBoxButtons.OK, MessageBoxIcon.Warning) = DialogResult.OK Then
                 For index = listacad.Count -  To  Step -
                     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 =
         Me.Timer1.Start()
     End Sub

---

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

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