各位高手请问如何使用VB关闭其他应用程序

在VS2008中，我用shell打开了powerpoint，请问怎么样使用VB再关闭打开的这个powerpoint，示范具体的API，谢谢！

---

0)
End If
Loop While (ProcessNext(hSnapShot, pe32))
CloseHandle (hSnapShot)
GetTargetProcessID = dwRet
End Function

Private Function CloseTargetProcess(ByVal dwProcessID As Long) As Boolean
Dim hProcess As Long
Dim lpExitCode As Long
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID)
If hProcess = 0 Then
CloseTargetProcess = False
Exit Function
End If
If GetExitCodeProcess(hProcess, lpExitCode) = 0 Then
CloseTargetProcess = False
Exit Function
End If
If TerminateProcess(hProcess, lpExitCode) = 0 Then
CloseTargetProcess = False
Else
CloseTargetProcess = True
End If
CloseHandle (hProcess)
End Function
Private Function CloseProcess(ProcessName As String)
On Error Resume Next
Dim ret As Long
ret = GetTargetProcessID(ProcessName)
If ret <> 0 Then
ret = CloseTargetProcess(ret)
End If
End Function


'调用
Call CloseProcess("powerpoint.exe") '这里的进程名必须一致.  大小写都要一样

---

谢谢了，不过好像你说的那些不是VS2008中的，系统都不认识这些OpenProcess等等的

---

不会VB的人员路过！帮顶！

---

VB code

---

Code highl