Re: reinstalar un programa desatendido
Publicado: 26 Ene 2012, 14:58
hola trate de usar lamisma variante pero no sale nada me tira un error cuando instalo el pdvd 4
el cual hice desatendido pero para evitar celgues del escript durante la reinstalacion encontre esta variante la cual no la puedo hacer andar dejo el codigo ... aclaro que sin la variante anda barbaro...........
#region --- AutoIt Macro Generator V 0.21 beta ---
Opt("WinTitleMatchMode", 4)
BlockInput(1)
Run("pdvd4.exe")
WinWait("PowerDVD - InstallShield Wizard","< &Back")
ControlClick("PowerDVD - InstallShield Wizard","< &Back","Button2")
WinWait("PowerDVD XP Setup","PowerDVD's playback performanc")
ControlClick("PowerDVD XP Setup","PowerDVD's playback performanc","Button1")
WinWait("PowerDVD XP Setup","< &Back")
ControlClick("PowerDVD XP Setup","< &Back","Button2")
WinWait("PowerDVD XP Setup","&Next >")
ControlClick("PowerDVD XP Setup","&Next >","Button1")
WinWait("PowerDVD XP Setup","Please refer to the label encl")
Sleep(5000)
If Not WinExists("PowerDVD XP Setup","Please refer to the label encl") then
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Edit3")
Sleep(1000)
send("MV06151585560091")
else
;no ejecutes nada o bien si sale otra cosa, ya que no hay que introducir ningún número de registro
Endif
WinWait("PowerDVD XP Setup","Please refer to the label encl")
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Button2")
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Button2")
WinWait("PowerDVD XP Setup","B&rowse...")
ControlClick("PowerDVD XP Setup","B&rowse...","Button1")
WinWait("PowerDVD XP Setup","E&xisting Folders:")
ControlClick("PowerDVD XP Setup","E&xisting Folders:","Button2")
WinWait("PowerDVD XP Setup","< &Back")
ControlClick("PowerDVD XP Setup","< &Back","Button2")
WinWait("PowerDVD XP Setup","Yes, I want to register now")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Static1")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Static1")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Button4")
WinWait("Question","Installation Complete. Would y")
ControlClick("Question","Installation Complete. Would y","Button1")
WinWait("System Diagnostic","Diagnóstico")
ControlClick("System Diagnostic","Diagnóstico","Button1")
#endregion --- End ---
el cual hice desatendido pero para evitar celgues del escript durante la reinstalacion encontre esta variante la cual no la puedo hacer andar dejo el codigo ... aclaro que sin la variante anda barbaro...........
#region --- AutoIt Macro Generator V 0.21 beta ---
Opt("WinTitleMatchMode", 4)
BlockInput(1)
Run("pdvd4.exe")
WinWait("PowerDVD - InstallShield Wizard","< &Back")
ControlClick("PowerDVD - InstallShield Wizard","< &Back","Button2")
WinWait("PowerDVD XP Setup","PowerDVD's playback performanc")
ControlClick("PowerDVD XP Setup","PowerDVD's playback performanc","Button1")
WinWait("PowerDVD XP Setup","< &Back")
ControlClick("PowerDVD XP Setup","< &Back","Button2")
WinWait("PowerDVD XP Setup","&Next >")
ControlClick("PowerDVD XP Setup","&Next >","Button1")
WinWait("PowerDVD XP Setup","Please refer to the label encl")
Sleep(5000)
If Not WinExists("PowerDVD XP Setup","Please refer to the label encl") then
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Edit3")
Sleep(1000)
send("MV06151585560091")
else
;no ejecutes nada o bien si sale otra cosa, ya que no hay que introducir ningún número de registro
Endif
WinWait("PowerDVD XP Setup","Please refer to the label encl")
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Button2")
ControlClick("PowerDVD XP Setup","Please refer to the label encl","Button2")
WinWait("PowerDVD XP Setup","B&rowse...")
ControlClick("PowerDVD XP Setup","B&rowse...","Button1")
WinWait("PowerDVD XP Setup","E&xisting Folders:")
ControlClick("PowerDVD XP Setup","E&xisting Folders:","Button2")
WinWait("PowerDVD XP Setup","< &Back")
ControlClick("PowerDVD XP Setup","< &Back","Button2")
WinWait("PowerDVD XP Setup","Yes, I want to register now")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Static1")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Static1")
ControlClick("PowerDVD XP Setup","Yes, I want to register now","Button4")
WinWait("Question","Installation Complete. Would y")
ControlClick("Question","Installation Complete. Would y","Button1")
WinWait("System Diagnostic","Diagnóstico")
ControlClick("System Diagnostic","Diagnóstico","Button1")
#endregion --- End ---