一个杀死EXCEL的程序代码展播

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