[N3tz]

hi i from argentine

google translate

the unattended program In first installation remains perfect
But when I reinstall it, the process stays bsplayer.exe opened
I tested with if Winexist () But I did not obtain results
Some solution for When installs or reinstall, close proccess bsplayer.exe

Thank you very much!!!!

bsplayer 2.27

Quote

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('BSPlayer PRO 2.27.959.exe')
WinWait("BS.Player PRO Setup ","Please review the li")
If Not WinActive("BS.Player PRO Setup ","Please review the li") Then WinActivate("BS.Player PRO Setup ","Please review the li")
WinWaitActive("BS.Player PRO Setup ","Please review the li")
Send("{ENTER}")
WinWait("BS.Player PRO Setup","Welcome to the BS.Pl")
If Not WinActive("BS.Player PRO Setup","Welcome to the BS.Pl") Then WinActivate("BS.Player PRO Setup","Welcome to the BS.Pl")
WinWaitActive("BS.Player PRO Setup","Welcome to the BS.Pl")
Send("{ENTER}")
WinWait("BS.Player PRO Setup ","Choose which feature")
If Not WinActive("BS.Player PRO Setup ","Choose which feature") Then WinActivate("BS.Player PRO Setup ","Choose which feature")
WinWaitActive("BS.Player PRO Setup ","Choose which feature")
Send("{ENTER}")
WinWait("BS.Player PRO Setup ","Choose Install Locat")
If Not WinActive("BS.Player PRO Setup ","Choose Install Locat") Then WinActivate("BS.Player PRO Setup ","Choose Install Locat")
WinWaitActive("BS.Player PRO Setup ","Choose Install Locat")
Send("{ENTER}")
WinWait("BS.Player PRO Setup","Additional install o")
If Not WinActive("BS.Player PRO Setup","Additional install o") Then WinActivate("BS.Player PRO Setup","Additional install o")
WinWaitActive("BS.Player PRO Setup","Additional install o")
Send("{ENTER}")
WinWait("BS.Player PRO Setup","Select default langu")
If Not WinActive("BS.Player PRO Setup","Select default langu") Then WinActivate("BS.Player PRO Setup","Select default langu")
WinWaitActive("BS.Player PRO Setup","Select default langu")
Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN
}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
WinWait("BS.Player PRO Setup ","Installation Complet")
If Not WinActive("BS.Player PRO Setup ","Installation Complet") Then WinActivate("BS.Player PRO Setup ","Installation Complet")
WinWaitActive("BS.Player PRO Setup ","Installation Complet")
Send("{ENTER}")
WinWait("BS.Player PRO Setup ","Completing the BS.Pl")
If Not WinActive("BS.Player PRO Setup ","Completing the BS.Pl") Then WinActivate("BS.Player PRO Setup ","Completing the BS.Pl")
WinWaitActive("BS.Player PRO Setup ","Completing the BS.Pl")
Send("{ENTER}")
If Not WinActive("Información de Registro"," Registro de BSp") Then WinActivate("Información de Registro"," Registro de BSp")
WinWaitActive("Información de Registro"," Registro de BSp")
Send("{SHIFTDOWN}xxx{SHIFTUP}xxxxx{TAB}xxxxxxxxxx{ENTER}{TAB}{ENTER}")
WinWait("Información","Gracias por registra")
If Not WinActive("Información","Gracias por registra") Then WinActivate("Información","Gracias por registra")
WinWaitActive("Información","Gracias por registra")
Send("{ENTER}")
EndIf

;Cierra Aplicacion
Sleep("200")
ProcessWait("bsplayer.exe", 10)
ProcessClose("bsplayer.exe")
Exit

This post has been edited by N3tz: 30 April 2009 - 08:48 PM

[MHz]

Hi from Australia

I am not sure if I understand correct but perhaps this may help you. It is cleaned up and added some possible improvements.

 
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

; close instance of bsplayer.exe
If ProcessExists("bsplayer.exe") Then
	ProcessClose("bsplayer.exe")
EndIf

; use quoted double quotes with paths that contain spaces
$pid = Run('"BSPlayer PRO 2.27.959.exe"')
; if Run() sets @error then exit
If @error Then Exit 1

_WinWaitActive("BS.Player PRO Setup", "Please review the li")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Welcome to the BS.Pl")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Choose which feature")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Choose Install Locat")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Additional install o")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Select default langu")
Send("{DOWN 23}{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Installation Complet")
Send("{ENTER}")
_WinWaitActive("BS.Player PRO Setup", "Completing the BS.Pl")
Send("{ENTER}")
_WinWaitActive("Información de Registro", " Registro de BSp")
Send("{SHIFTDOWN}xxx{SHIFTUP}xxxxx{TAB}xxxxxxxxxx{ENTER}{TAB}{ENTER}")
_WinWaitActive("Información", "Gracias por registra")
Send("{ENTER}")

;Cierra Aplicacion
ProcessWait("bsplayer.exe", 10)
ProcessClose("bsplayer.exe")
ProcessWaitClose($pid)

Exit

Func OnAutoItStart()
	; run one script instance only
	If WinExists(@ScriptName & '_Interpreter') Then Exit
	AutoItWinSetTitle(@ScriptName & '_Interpreter')
EndFunc

Func _WinWaitActive($title, $text = "")
	; window wait functions
	WinWait($title, $text)
	WinActivate($title, $text)
	WinWaitActive($title, $text)
EndFunc
 

[N3tz]

works, thank you very much mhz