Dim pTemp As System.Diagnostics.Process()
pTemp = System.Diagnostics.Process.GetProcesses()
Dim pTempProcess As System.Diagnostics.Process
For Each pTempProcess In pTemp
Dim sProcessName As String = pTempProcess.ProcessName
Dim sProcessID As Int32 = pTempProcess.Id
'将EXCEL改成你需要检测的程序名，不要加exe
If StrComp("excel", sProcessName, CompareMethod.Text) = 0 Then
Dim pProcessTemp As System.Diagnostics.Process
'得到进程的开始运行时间
Dim sStartTime As String = pTempProcess.StartTime.ToString ( )
pProcessTemp = Process.GetProcessById(sProcessID)
' MessageBox.Show
'pProcessTemp.Kill()
' pProcessTemp.Close()
End If
Next
非原创
