一個殺死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

非原創