[Solved]Bsplayer 2.66 build 1075

[condor]

I try to make un autoit for my Windows WPI. When run script not pass Installation Complete..

This is my script

Run("bsplayer.exe");--- Start "License Agreement" ---WinWait("BS.Player PRO Setup")$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(500)ControlClick($winhandle,"","[CLASS:Button; INSTANCE:2]")Sleep(1000)ControlClick($winhandle,"","[text:I &Agree]")Sleep(500);--- End License Agreement ---;--- Start "Welcome" ---WinWait("BS.Player PRO Setup")$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(500)ControlClick($winhandle,"","[text:&Next >]");--- End "Welcome" ---;--- Start "Choose Components" ---WinWait("BS.Player PRO Setup")Sleep(500)$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(1000)ControlClick($winhandle,"","[text:&Next >]");--- End "Choose Components" ---;--- Start "Install Location" ---WinWait("BS.Player PRO Setup")Sleep(500)$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(1000)ControlClick($winhandle,"","[text:&Next >]");--- End "Install Location" ---;--- Start "Install options" ---WinWait("BS.Player PRO Setup")Sleep(500)$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(1000)ControlClick($winhandle,"","[text:&Next >]");--- End "Install options" ---;--- Start "Language" ---WinWait("BS.Player PRO Setup")$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(500)ControlClick($winhandle,"","[text:&Install]")Sleep(500);--- End "Language" ---;--- Start "Codecs" ---while 1if winexists("BS.Player", "Do you want BS.Player to download and install missing codecs?") ThenControlClick("BS.Player", "&Yes", "Button1")exitloopelseif winexists("Error") ThenControlClick("Error", "OK", "Button1")exitloopendifsleep(10)WEnd;--- End "Codecs" ---;--- Start "Installation Complete" ---WinWaitActive("BS.Player PRO Setup", "Installation Complete")ControlClick("BS.Player PRO Setup", "&Next >", "Button2");--- End "Installation Complete" ---WinWait("BS.Player PRO Setup")Sleep(500)$winhandle=WinGetHandle("BS.Player PRO Setup")Sleep(1000)ControlClick($winhandle,"","[text:&Finish]");--- End "Completing" ---;--- Start "Registration" ---WinWaitActive("Registration info", "Register BS.Player")Send("{F1}")Send("YourName{TAB}12345678901234567890{TAB}")WinWait("Registration info")$winhandle=WinGetHandle("Registration info")Sleep(500)ControlClick($winhandle,"","[CLASS:TTntCheckBox.UnicodeClass; INSTANCE:1]")ControlClick($winhandle,"","[text:OK]")Sleep(500)WinWait("Information")$winhandle=WinGetHandle("Information")Sleep(500)ControlClick($winhandle,"","[text:&Yes]")Sleep(500);--- End "Registration" ---Exit

Solved with this code, english only (windows and bsplayer)

Run("bsplayer.exe")WinWait("BS.Player PRO Setup","License Agreement")If Not WinActive("BS.Player PRO Setup","License Agreement") Then WinActivate("BS.Player PRO Setup","License Agreement")WinWaitActive("BS.Player PRO Setup","License Agreement")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Welcome to the BS.Player PRO Setup Wizard")If Not WinActive("BS.Player PRO Setup","Welcome to the BS.Player PRO Setup Wizard") Then WinActivate("BS.Player PRO Setup","Welcome to the BS.Player PRO Setup Wizard")WinWaitActive("BS.Player PRO Setup","Welcome to the BS.Player PRO Setup Wizard")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Choose Components")If Not WinActive("BS.Player PRO Setup","Choose Components") Then WinActivate("BS.Player PRO Setup","Choose Components")WinWaitActive("BS.Player PRO Setup","Choose Components")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Choose Install Location")If Not WinActive("BS.Player PRO Setup","Choose Install Location") Then WinActivate("BS.Player PRO Setup","Choose Install Location")WinWaitActive("BS.Player PRO Setup","Choose Install Location")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Additional install options")If Not WinActive("BS.Player PRO Setup","Additional install options") Then WinActivate("BS.Player PRO Setup","Additional install options")WinWaitActive("BS.Player PRO Setup","Additional install options")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Language")If Not WinActive("BS.Player PRO Setup","Language") Then WinActivate("BS.Player PRO Setup","Language")WinWaitActive("BS.Player PRO Setup","Language")ControlClick("BS.Player PRO Setup", "", "Button2");--- Start "Codecs" ---while 1if winexists("BS.Player", "Do you want BS.Player to download and install missing codecs?") ThenControlClick("BS.Player", "&Yes", "Button1")exitloopelseif winexists("Error") ThenControlClick("Error", "OK", "Button1")exitloopendifsleep(10)WEnd;--- End "Codecs" ---WinWait("BS.Player PRO Setup","Installation Complete")If Not WinActive("BS.Player PRO Setup","Installation Complete") Then WinActivate("BS.Player PRO Setup","Installation Complete")WinWaitActive("BS.Player PRO Setup","Installation Complete")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("BS.Player PRO Setup","Completing the BS.Player PRO Setup Wizard")If Not WinActive("BS.Player PRO Setup","Completing the BS.Player PRO Setup Wizard") Then WinActivate("BS.Player PRO Setup","Completing the BS.Player PRO Setup Wizard")WinWaitActive("BS.Player PRO Setup","Completing the BS.Player PRO Setup Wizard")ControlClick("BS.Player PRO Setup", "", "Button2")WinWait("Registration info","Register BS.Player")If Not WinActive("Registration info","Register BS.Player") Then WinActivate("Registration info","Register BS.Player")WinWaitActive("Registration info","Register BS.Player")Send("{F1}")Send("YourName{TAB}12345678901234567890{TAB}")Sleep(1000)Send("{TAB}")Send("{SPACE}")ControlClick("Registration info", "", "[CLASS:TTntButton.UnicodeClass; TEXT:OK; INSTANCE:1]")WinWait("Information","Thank you for registering.")If Not WinActive("Information","Thank you for registering.") Then WinActivate("Information","Thank you for registering.")WinWaitActive("Information","Thank you for registering.")ControlClick("Information", "", "Button1")Exit

Edited November 8, 2013 by condor