2010-11-08 acdsee 5 一鍵安裝 教學 (AUTOIT) 39858 0 AUTOIT acdsee 5 一鍵安裝 教學 (AUTOIT) 今天看到一個不錯的一鍵安裝教學 ，就照著做了 acdsee 5的一鍵安裝程式 來分享一下原始碼,序號僅供參考 Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) RUN("Setup.exe") ;WinWait("ACDSee 5.0 Ch","FolderView") ;If Not WinActive("ACDSee 5.0 Ch","FolderView") Then WinActivate("ACDSee 5.0 Ch","FolderView") ;WinWaitActive("ACDSee 5.0 Ch","FolderView") WinWait("ACDSee 5.0 Standard InstallShield 精靈","警告︰本程式受版權法") ;If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","警告︰本程式受版權法") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","警告︰本程式受版權法") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","警告︰本程式受版權法") Send("{ALTDOWN}n{ALTUP}") WinWait("ACDSee 5.0 Standard InstallShield 精靈","我不接受該授權合約中") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","我不接受該授權合約中") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","我不接受該授權合約中") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","我不接受該授權合約中") Send("{ALTDOWA}n{ALTUP}") Send("{ALTDOWN}n{ALTUP}") WinWait("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") Sleep(1000) Send("{TAB}{TAB}") Sleep(1000) WinWait("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","使用者名稱(&U)：") Send("456370133448611450{CTRLDOWN}n{CTRLUP}{SHIFTDOWN}n{SHIFTUP}{CTRLDOWN}n{CTRLUP}{CTRLDOWN}n{CTRLUP}{ALTDOWN}n{ALTUP}") WinWait("ACDSee 5.0 Standard InstallShield 精靈","選擇最適合自己需要的") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","選擇最適合自己需要的") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","選擇最適合自己需要的") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","選擇最適合自己需要的") Send("{ALTDOWN}n{ALTUP}") WinWait("ACDSee 5.0 Standard - InstallShield 精靈","安裝程式將會配置您的") If Not WinActive("ACDSee 5.0 Standard - InstallShield 精靈","安裝程式將會配置您的") Then WinActivate("ACDSee 5.0 Standard - InstallShield 精靈","安裝程式將會配置您的") WinWaitActive("ACDSee 5.0 Standard - InstallShield 精靈","安裝程式將會配置您的") Send("{ALTDOWN}n{ALTUP}") WinWait("ACDSee 5.0 Standard InstallShield 精靈","按一下「安裝」開始安") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","按一下「安裝」開始安") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","按一下「安裝」開始安") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","按一下「安裝」開始安") Send("{ALTDOWN}i{ALTUP}") WinWait("ACDSee 5.0 Standard InstallShield 精靈","InstallShield 精靈 ") If Not WinActive("ACDSee 5.0 Standard InstallShield 精靈","InstallShield 精靈 ") Then WinActivate("ACDSee 5.0 Standard InstallShield 精靈","InstallShield 精靈 ") WinWaitActive("ACDSee 5.0 Standard InstallShield 精靈","InstallShield 精靈 ") Send("{ALTDOWN}f{ALTUP}") Exit 如有錯誤 歡迎指正 回首頁