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

来源： 作者： 出处：巧巧读书 2006-05-24 进入讨论组

• 关 键 词：
• 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保留地址 http://www.qqread.com/meetwindows/c264963.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：系统声音随意改Windows语音设置技巧

较新的文章：tempdb和索引创建