所遵循的程序在不同名称的不同计算机上工作

Question

干得好 我有一个遵循另一个应用程序的项目。 我想在程序关闭时关闭计算机。

在Windows 7操作系统中= FasterPos (32 bit) 在Windows 10操作系统= FasterPos或FasterPos.exe中 有不同的印象

分别为每台计算机更新代码时没问题

您有适用于所有计算机的代码建议吗？

Public meread As OleDbDataReader 
Dim appcls As New OleDbCommand("SELECT * FROM MYSETTINGTBL WHERE MYAPPCLOSE=1", cn)
        meread = appcls.ExecuteReader
        If meread.Read Then
            Dim clsapp As String
            clsapp = ("FasterPOS.exe")
            For Each prc As Process In Process.GetProcessesByName(clsapp)
                Exit Sub
            Next
            System.Diagnostics.Process.Start("shutdown", "-s -t 10")

        Else

        End If

Answer 1

由于它们都具有相同的前缀，因此您可以轻松地做到这一点：

For Each p As Process In Process.GetProcesses()
     If p.ProcessName.ToLower.StartsWith("fasterpos") Then
        'code here
     End If
Next