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]