1、
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Foxtable")For Each p As System.Diagnostics.Process In ps If p.MainWindowTitle.Contains("管理项目68") Then p.kill End IfNext