一个杀死 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
　　
　　
　　

【责编:admin】

--------------------next---------------------