1. 程式人生 > >VBS 開啟第三方程式或操作計算機關機重啟

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) 如何找到要執行檔案的 執行路徑

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