shell 打开的文件怎么关闭

chenyulin37

我用shell打开一个可执行费EXE文件，运行后我要关闭它，不知道怎么写代码，向各位高手求救！谢谢！

wxhnr

百度一下无需等待
Sub aaa()
Shell "C:\Program Files\winrar\winrar.exe", vbNormalFocus
End Sub

Sub ccc()
Shell "taskkill /f /im winrar.exe"
End Sub

chenyulin37

非常谢谢！

All-rise

学习了，这个比较简单些.

crazy0qwer

2楼的简单是简单，但是如果同时打开多个进程的话，会关闭所有。
下面代码，打开哪个就关闭哪个。

1. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
   
2. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
   
3. Dim hProcess As Long
   
4. 
   
5. Private Sub Command1_Click() '打开进程
   
6.     Dim pid As Long
   
7.     pid = Shell("calc.exe", vbNormalFocus)
   
8.     hProcess = OpenProcess(&H1, 0, pid)
   
9. End Sub
   
10. 
    
11. Private Sub Command2_Click() '关闭进程
    
12.     TerminateProcess hProcess, 1
    
13. End Sub

复制代码

_沉默的痞子

crazy0qwer 发表于 2013-5-24 00:58
2楼的简单是简单，但是如果同时打开多个进程的话，会关闭所有。
下面代码，打开哪个就关闭哪个。

为什么在帮助里面找不到openprocess        terminateprocess？

jsxjd

_沉默的痞子 发表于 2015-6-15 13:06
为什么在帮助里面找不到openprocess        terminateprocess？

查 windows API

_沉默的痞子

jsxjd 发表于 2015-6-15 15:32
查 windows API

要用什么代码来查呢？这两个不是VBA本身的吧

jsxjd

_沉默的痞子 发表于 2015-6-16 09:38
要用什么代码来查呢？这两个不是VBA本身的吧

确实不是的
Windows API 文档
MSDN

_沉默的痞子

jsxjd 发表于 2015-6-16 09:51
确实不是的
Windows API 文档
MSDN

太复杂了...