@Jack_Sparrow82 : finalmente sono riuscito a ritagliare un minimo di tempo per vedere l'installazione di XWidget.... devo dire che l'installer è terribile; ecco l'automazione:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: MISTER X ®
Script Function:
XWidget automazione dell'installer
Credits:
gli amministratori e lo staff al completo di Eng2Ita
#ce ----------------------------------------------------------------------------
#RequireAdmin ; essenziale se lo script deve girare sotto Vista o Seven
BlockInput(1) ; blocco ON di tastiera e mouse, importante nelle automazioni per evitare che l'utente prema i tasti in concomitanza con lo script, in caso di
; problemi usa la combinazione di tasti Alt X per uscire
Opt("WinTitleMatchMode", 3) ; metodo che viene utilizzato per abbinare i titoli della finestra durante le operazioni di ricerca
AutoItSetOption("MouseCoordMode", 0) ; metodo che usa il click del mouse con le coordinate relative alla finestra attiva
HotKeySet("!x", "HotExit") ; combinazione di tasti Alt X per uscire
Func HotExit() ; funzione per la hotkey
Exit
EndFunc ;==>HotExit
$xwidget_installer = FileGetShortName(@ScriptDir & "\xwidget_setup180.exe") ; FileGetShortName mi serve per ottenere il percorso breve 8.3 del file
Run($xwidget_installer) ; esegui il file.....
;~ Adesso parte la vera AUTOMAZIONE.....
If WinWait("[title:XWidget Ver1.80 Install; class:TWizardForm]", "", 10) Then ; attende 10 secondi questa finestra,
; se la finestra non appare allo scadere dei 10 secondi termina lo script
ControlClick("[title:XWidget Ver1.80 Install; class:TWizardForm]", "", "TNewButton1") ; clicca il "TNewButton1"...
WinWait("XWidget Ver1.80 Install", "Select Destination Location") ;...
ControlClick("XWidget Ver1.80 Install", "Select Destination Location", "TNewButton3") ; ...
WinWait("XWidget Ver1.80 Install", "Select Additional Tasks") ; ...
Send("{SPACE}") ; con la simulazione della tastiera deselezioniamo 'Create a desktop icon'
Send("{DOWN}") ; con la simulazione della tastiera spostiamoci sulla checkbox sottostante
Send("{SPACE}") ; con la simulazione della tastiera deselezioniamo 'More widget'
Send("{DOWN}") ; con la simulazione della tastiera spostiamoci sulla checkbox sottostante
Send("{SPACE}") ; con la simulazione della tastiera deselezioniamo 'Create a Quick Launch icon'
ControlClick("XWidget Ver1.80 Install", "Select Additional Tasks", "TNewButton3") ; ...
WinWait("[title:InstallManager Setup; class:#32770]", "< &Back") ; attendi finestra Babylon o Wajam
WinActivate("[title:InstallManager Setup; class:#32770]", "Nullsoft")
WinWaitActive("[title:InstallManager Setup; class:#32770]", "Nullsoft")
;~ ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 30, 177) ; deseleziona 'Installa la barra Babylon su....'
;~ ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 30, 193) ; deseleziona 'Imposta Babylon come la tua.....'
;~ ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 30, 208) ; deseleziona 'Fai Babilonia cercare la home...'
;~ ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 30, 280) ; deseleziona 'Per velocizzare la visualizzazione e la ...'
;~ ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 446, 344) ; clicca 'Accetta'
;~ le precedenti linee sono commentate (disabilitate) e rappresentano scelte alternative di selezione
ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 62, 344) ; clicca 'Rifiuta'
WinWait("[title:InstallManager Setup; class:#32770]", "< &Back") ; attendi finestra Lollipop
WinActivate("[title:InstallManager Setup; class:#32770]", "Nullsoft")
WinWaitActive("[title:InstallManager Setup; class:#32770]", "Nullsoft")
ControlClick("InstallManager Setup", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "main", 1, 56, 340) ; clicca 'Decline'
WinWait("[title:XWidget Ver1.80 Install; class:TWizardForm]", "Click Finish to exit Setup.")
WinActivate("[title:XWidget Ver1.80 Install; class:TWizardForm]", "Click Finish to exit Setup.")
WinWaitActive("[title:XWidget Ver1.80 Install; class:TWizardForm]", "Click Finish to exit Setup.")
ControlClick("[title:XWidget Ver1.80 Install; class:TWizardForm]", "Click Finish to exit Setup.", "TNewCheckListBox1") ; clicca il "TNewCheckListBox1"...
Sleep(100)
Send("{SPACE}")
ControlClick("[title:XWidget Ver1.80 Install; class:TWizardForm]", "", "TNewButton3") ; clicca il "TNewButton3"...
Else
Exit
EndIf
BlockInput(0) ; blocco OFF di tastiera e mouse
Exit
@Fantoman : ti rispondo appena possibile, sorry vado di fretta....
