请教！如何用代码关闭已打开的应用程序？

sxgaobo

Call Shell("D:\猜猜我是谁.exe")，这个可以打开，怎么关闭啊？

cgsilicone

id=Shell("D:\猜猜我是谁.exe")
AppActivate id
SendKeys "%{F4}"

sxgaobo

cgsilicone 发表于 2018-12-15 21:50
id=Shell("D:\猜猜我是谁.exe")
AppActivate id
SendKeys "%{F4}"

谢谢您的关注！出错了啊

cgsilicone

sxgaobo 发表于 2018-12-16 07:49
谢谢您的关注！出错了啊

你打开立刻又执行关闭，是要干啥呢？
你放在前后脚执行的代码里，那个exe可能还没有打开呢!

sxgaobo

cgsilicone 发表于 2018-12-16 08:39
你打开立刻又执行关闭，是要干啥呢？
你放在前后脚执行的代码里，那个exe可能还没有打开呢!

是想控制一个隐藏运行的程序，需要的时候打开，不需要的时候关闭了，不是刚打开就关闭，
Private Sub Command1013_Click()
Call Shell("D:\猜猜我是谁.exe")
End Sub

Private Sub Command1014_Click()
id = Shell("D:\猜猜我是谁.exe")
AppActivate id
SendKeys "%{F4}"
End Sub

cgsilicone

sxgaobo 发表于 2018-12-16 10:48
是想控制一个隐藏运行的程序，需要的时候打开，不需要的时候关闭了，不是刚打开就关闭，
Private Sub Co ...

Dim id as long
Private Sub Command1013_Click()
      id=Shell("D:\猜猜我是谁.exe")
End Sub

Private Sub Command1014_Click()
      AppActivate id
      SendKeys "%{F4}"
End Sub
看看这个!隐藏的方法另说。

sxgaobo

cgsilicone 发表于 2018-12-16 11:11
Dim id as long
Private Sub Command1013_Click()
      id=Shell("D:\猜猜我是谁.exe")

OK了！
再麻烦问下，如何判断“D:\猜猜我是谁.exe”是否已打开了啊？