Question

如何编写打开程序的VBS脚本

用VBS编写一个脚本打开某一程序，例如记事本，当记事本没有运行时则打开记事本，如果记事本已经运行则将记事本前置显示，我在网上找两段脚本，但不知道怎么组合，帮我组合一下。
第一段是打开程序，如查已打开就不再打开。
pro="c:\windows\system32\notepad.exe"

n=split(pro,"\")
name=n(ubound(n))

for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
s=s&sep&ps.name:sep="|":next
s=split(s,"|")
for i=0 to ubound(s)
if name=s(i) then wscript.quit
next

createobject("wscript.shell").run pro
第二段是前置显示
set ws=createobject("wscript.shell")
Wscript.Sleep 500
ws.appactivate "记事本"
ws.sendkeys "{enter}"
第二段如何加到第一段才能实现我要的功能。

Answer 1

set ws=createobject("wscript.shell")
pro="c:\windows\system32\notepad.exe"
n=split(pro,"\")
name=n(ubound(n))
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
s=s&sep&ps.name:sep="|":next
wscript.sleep 500
ws.appactivate "记事本"
s=split(s,"|")
for i=0 to ubound(s)
if name=s(i) then wscript.quit
next
ws.run pro

望采纳。