給一個例子給你學習IF FileExists("C:\Program Files\7-Zip\7zFM.exe") Then ;檢查指定檔案或目錄是否存在。
Else
Run("\\jmg12\Software\軟件\7z壓縮包\7z920.exe") ;執行外部程式。
WinActivate("7-Zip 9.20 Setup","Choose Install Location") ;啟動指定的視窗 (使其成為活動視窗) 。
WinWaitActive("7-Zip 9.20 Setup","Choose Install Location") ;暫停腳本的執行直至指定視窗被啟動 (成為可活動狀態) 為止。
ControlClick("7-Zip 9.20 Setup","&Install","Button2") ;向指定控制項傳送滑鼠點選指令。
WinWait("7-Zip 9.20 Setup","Completing the 7-Zip 9.20 Setup Wizard") ;暫停腳本的執行直至指定視窗被啟動 (成為可活動狀態) 為止。
ControlClick("7-Zip 9.20 Setup","&Finish","Button2") ;向指定控制項傳送滑鼠點選指令。
Run("C:\Program Files\7-Zip\7zFM.exe") ;執行外部程式。
WinActivate("7-Zip 檔案管理員") ;啟動指定的視窗 (使其成為活動視窗) 。
WinWaitActive("7-Zip 檔案管理員") ;暫停腳本的執行直至指定視窗被啟動 (成為可活動狀態) 為止。
Send("!T") ;向啟動視窗傳送模擬按鍵動作。
Send("O") ;向啟動視窗傳送模擬按鍵動作。
WinActivate("選項","使 7-Zip 與之產生關聯") ;啟動指定的視窗 (使其成為活動視窗) 。
ControlClick("選項","全選(&A)","Button1") ;向指定控制項傳送滑鼠點選指令。
ControlClick("選項","確定","Button2") ;向指定控制項傳送滑鼠點選指令。
WinClose("7-Zip 檔案管理員") ;關閉指定視窗。
EndIf
MsgBox(0,"Auto Install Script","7-Zip自動安裝、設定完畢",3)
|