一个杀死EXCEL的程序

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

• 关 键 词：
• 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/dotnet/c984112002.html进入讨论组讨论。

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

较早的文章：终于可以实现后台自动更新了

较新的文章：VB.NET 拖动无边框的窗体