p = Process.GetProcessesByName("PROClient")
If p.Count > 0 Then
' uygulama açıksa yapılacak işlemler
Else
' uygulama kapalıysa yapılacak işlemler
Application.Exit()
End If
Dim isRunning As Boolean = Process.GetProcesses().Any(Function(p) p.ProcessName.Contains("oyunun denetim masasındaki adi"))
If isRunning Then
Else
Application.Exit()
End If
p = Process.GetProcessesByName("PROClient")
If p.Count > 0 Then
' uygulama açıksa yapılacak işlemler
Else
' uygulama kapalıysa yapılacak işlemler
Application.Exit()
End If
Dim isRunning As Boolean = Process.GetProcesses().Any(Function(p) p.ProcessName.Contains("oyunun denetim masasındaki adi"))
If isRunning Then
Else
Application.Exit()
End If