效果動畫演示

 實現步驟

第一步： 建立視窗==>拖拽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) 如何找到要執行檔案的 執行路徑

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