Crystal player
[url="http://www.crystalplayer.com"]http://www.crystalplayer.com[/url]
[code]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('CrystalPro.exe')
WinWait("License Agreement","Disagree")
If Not WinActive("License Agreement","Disagree") Then WinActivate("License Agreement","Disagree")
WinWaitActive("License Agreement","Disagree")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("About","Official site")
If Not WinActive("About","Official site") Then WinActivate("About","Official site")
WinWaitActive("About","Official site")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("Install...","Add CrystalPlayer ic")
If Not WinActive("Install...","Add CrystalPlayer ic") Then WinActivate("Install...","Add CrystalPlayer ic")
WinWaitActive("Install...","Add CrystalPlayer ic")
Send("{TAB}{TAB}{TAB}{TAB}{SPACE}{TAB}{TAB}{TAB}{SPACE}{TAB}{ENTER}")
WinWait("File types","Uncheck all")
If Not WinActive("File types","Uncheck all") Then WinActivate("File types","Uncheck all")
WinWaitActive("File types","Uncheck all")
Send("{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}{ENTER}")
WinWait("Message","CrystalPlayer is ins")
If Not WinActive("Message","CrystalPlayer is ins") Then WinActivate("Message","CrystalPlayer is ins")
WinWaitActive("Message","CrystalPlayer is ins")
Send("{ENTER}")
WinWait("Crystal Player Professional 1.97","")
If Not WinActive("Crystal Player Professional 1.97","") Then WinActivate("Crystal Player Professional 1.97","")
WinWaitActive("Crystal Player Professional 1.97","")
Send("{ALTDOWN}{F4}")[/code]