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

一个杀死EXCEL的程序代码展播
12/31 2008	优化性能 \| Windows	879 次查看
上一条：如何才能在10046event自由漫步下一条：VC#2005WinForm开发体验
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