怎么让一个程序运行时自动打开另一个程序

您的位置：龙岩金蝶软件论坛 -> 生活服务区 -> 工作交流 -> 怎么让一个程序运行时自动打开另一个程序

本帖共有375个阅读者

怎么让一个程序运行时自动打开另一个程序

cyy275(管理员)

头衔：社区公民

帮派：无帮无派

帖数：497

金钱：100000

积分：2248

注册时间：2017-5-8

小大楼主信息 | 留言 | Email | 主页 | 编辑 | 管理 |

怎么让一个程序运行时自动打开另一个程序

下面代码复制到记事本，保存为后缀名为VBS的脚本文件，然后运行。

当notepad.exe（记事本）运行时，calc.exe（计算器）就运行。（你改为你自己的程序A和程序B就行了。但是现在还有bug，如果notepad在运行，calc就算被关了也还是会运行，稍后再帮你修改一下）

checkProcess = "notepad.exe" '监控的程序
startProcess = "calc.exe" '要运行的程序
startProcessPath = "%SystemRoot%\system32\calc.exe" '要运行的程序的路径

set os = Wscript.CreateObject("Wscript.shell")
do
processOne = false
processTwo = false
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
for each process in objWMIService
if process.name = checkProcess then processOne = True
if process.name = startProcess then processTwo = True
next
if processOne = True and processTwo = false then
os.run startProcessPath
end if
wscript.sleep 500
loop

当不需要使用时

打开任务管理器，结束wscript.exe进程

今天的努力，明天的享受！
今天的无为，明天的无助！
今天的迷茫，明天的受累！

等级：

2017-5-8 18:22:48