VBS 打開第三方程式或操作計算機關機重新開機

效果動畫示範

 實作步驟

第一步： 建立視窗==>拖拽4個按鈕，1個文本框，1個标簽

第二步：按鈕“電腦關機”事件

msgResult = MsgBox ("請确認關閉所有程式，是否确認關機？", 65, "系統關機")
If CInt(msgResult)=1 then
	CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 0"
	MsgBox "正在關機中，請耐心等待...."
End If
           

 第三步：按鈕“電腦重新開機”事件

msgResult = MsgBox ("請确認關閉所有程式，是否确認電腦重新開機？", 65, "系統重新開機")
If CInt(msgResult)=1 then
	CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -r -t 0"
	MsgBox "正在重新開機中，請耐心等待...."
End If
           

第四步：按鈕“打開電腦”事件

set shell=CreateObject("WScript.shell")
shell.Run "calc"
           

第五步：按鈕“打開第三方程式”事件

 a) 視窗 事件 “打開時”

'擷取目前bat程式檔案的絕對路徑
batPath=Sys.ProjectDir&"\執行檔案.bat" 
文本框0.Text=batPath
           

 b) 按鈕“打開第三方程式”事件

runPath=Trim(文本框0.Text)
set shell=CreateObject("WScript.shell")
shell.run runPath,false,false
MsgBox "正在打開中，請耐心等待..."
           

c) 如何修改第三方程式執行的路徑

 進入編輯頁面

d) 如何找到要執行檔案的 執行路徑

選中快捷圖示，右擊滑鼠“屬性”，找到目标 路徑複制即可