VBS 開啟第三方程式或操作計算機關機重啟
阿新 • • 發佈:2018-12-14
效果動畫演示
實現步驟
第一步: 建立視窗==>拖拽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) 如何找到要執行檔案的 執行路徑
選中快捷圖示,右擊滑鼠“屬性”,找到目標 路徑複製即可