作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
kevinchengcw |
Q: 如何用vba代码隐藏运行程序并实现程序关闭？
A: 示例程序如下：- Sub test()
- Dim X%
- X = Shell("mspaint.exe", vbHide) '隐藏运行画图程序，并将程序的pid值赋值给变量（因mspaint.exe一般位于系统目录中，属默认path环境变量中已存在的，故未加路径，其他程序请酌情添加绝对或相对目录
- MsgBox "OK" '显示提示框，暂停程序运行（这里打开任务管理器会看到画图程序已经运行，但是并未显示程序界面）
- Shell "taskkill -pid " & X & " /t", vbHide '调用windows提供的taskkill程序利用程序的pid关闭掉程序，/t参数关掉由此程序打开的任何子程序
- End Sub
注：以shell运行的程序返回的是主体程序的pid值，如x=shell "cmd.exe /c mspaint.exe"，则返回的是cmd程序的句柄，cmd程序界面隐藏，但画图程序会显示出来。
以上程序运行过程中始终打开任务管理器观察会更明显。 |
2楼
ljh29206 |
sub text1()
Dim X%
Dim p As String
p = "C:\Program Files\Windows Media Player\wmplayer.exe"
X = Shell(p, vbHide)
Shell "taskkill -pid " & X & " /t", vbHide 或者Shell "taskkill -pid " & p & " /t", vbHide 能执行 但是没效果
end sub
sub text2()
Shell "taskkill -pid " & wmplayer.exe & " /t", vbHide 提示要求对象
end sub
我试过用 mspaint.exe 能操作.
但是用 wmplayer.exe 这个就不行, 麻烦帮忙看下 谢谢咯 |
3楼
罗刚君 |
Sub 关闭Word()
Shell "taskkill -im winword.exe"
End Sub
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一