Autore Topic: Sezione Autoit, Discussioni e scambio di idee...  (Letto 69879 volte)

0 Utenti e 1 Visitatore stanno visualizzando questo topic.

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #45 il: 09/02/2010, 18:49 »
@DMD
forza, esponi pure tutto che li correggiamo questi script  :D

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #46 il: 09/02/2010, 19:49 »
Non vorrei approfittare ma la scusa è per apprendere, comunque ringrazio per la disponibilità.

Il primo software riguarda ConvertXtoDVD

Questo è lo script generato
Codice: [Seleziona]
;--- AutoIt Macro Generator V 0.21 beta ---
Opt("WinTitleMatchMode", 4)
WinWait("ConvertXtoDVD_4.0.9.322","")
ControlClick("ConvertXtoDVD_4.0.9.322","","DirectUIHWND3")
ControlClick("ConvertXtoDVD_4.0.9.322","","DirectUIHWND3")
WinWait("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWait("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C","TNewButton3")
WinWait("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewButton3")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewCheckListBox1")
WinWait("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del","TNewButton4")
WinWait("Sicurezza di Windows","")
ControlClick("Sicurezza di Windows","","Button2")
WinWait("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewButton4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewCheckListBox1")
WinWait("ConvertXtoDVD_4.0.9.322","")
ControlClick("ConvertXtoDVD_4.0.9.322","","DirectUIHWND3")

;--- End ---


Questo è lo script che ho corretto secondo gli ultimi consigli
Codice: [Seleziona]
Opt("WinTitleMatchMode", 4)
Run(@ScriptDir & "\vsoConvertXtoDVD4_setup-avangate_871.exe")
WinWaitActive("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewButton3")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewCheckListBox1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del","TNewButton4")
WinWaitActive("Sicurezza di Windows","")
ControlClick("Sicurezza di Windows","","Button2")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewButton4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewCheckListBox1")
WinWaitActive("ConvertXtoDVD_4.0.9.322","")
ControlClick("ConvertXtoDVD_4.0.9.322","","DirectUIHWND3")

« Ultima modifica: 09/02/2010, 21:38 da DMD »

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #47 il: 10/02/2010, 22:53 »
Questo script funziona con 7 ma non interagisce con la finestra degli avvisi di sicurezza (sicurezza di windows) per l'installazione del driver "couffin". Ma sono convinto che se lo fai andare in svcpack al T13 non si ferma.
Però, nota dolente, su Xp in Vm, lo script non mi ferma il browser al termine (strano). Mi occorrerebbe del tempo in più ma non ne ho  così tanto... ragion per cui testalo tu in macchina reale e fammi sapere se si ferma e dove si ferma.

Codice: [Seleziona]
Opt("WinTitleMatchMode", 4)
Run(@ScriptDir & "\vsoConvertXtoDVD4_setup.exe")
WinWaitActive("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.9.322 sarà i")
ControlClick("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.9.322 sarà i","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato")
Send("{Down}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v")
sleep(200)
Send("{Space}"&"{Down}"&"{Space}")
sleep(200)
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
Send("{Left}"&"{Enter}")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
ProcessWait("IEXPLORE.EXE",2)
If ProcessExists("IEXPLORE.EXE") Then
$PID = ProcessExists("IEXPLORE.EXE")
ProcessClose($PID)
EndIf
ProcessWait("firefox.exe",2)
If ProcessExists("firefox.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
ProcessWait("opera.exe",2)
If ProcessExists("opera.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
Sleep(4888)
Send("{Space}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
« Ultima modifica: 10/02/2010, 23:07 da MISTER X ® »

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #48 il: 12/02/2010, 10:39 »
Ti ringrazio infinitamente  per l'impegno e il tempo dedicato allo script, comunque la mia intenzione è quella di installare su Seven, ma l'unattended dei programmi lo faccio su disco a parte in modalità RunOnceEX, quindi niente T13  e niente svcpack.

Postato il: 11/02/2010, 00:26


A parte il piccolo errore di sintassi dell'eseguibile     Run(@ScriptDir & "\vsoConvertXtoDVD4_setup-avangate_871.exe")  , lo script funziona fino alla richiesta del messaggio di sicurezza di windows,  che tra l'altro è un driver che non intendo installare.



Questo messaggio èsarà un pò difficile da bypassare.

Offline OnePiece

  • Eng2ita Friends
  • **
  • Post: 6.114
  • Karma: -3277
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #49 il: 12/02/2010, 12:21 »
Non sono sicuro di questo visto che con certi cose o poco esperienza per non dire nessuna, ma con intuito credo la cosa di sopra dovrà essere molto facile, perché come notti di default e scelto come dire il bottone annulla, cosi resta solo dare il comando SPACE (come si chiama), diciamo dovrà essere un banalità per i script passare quella tabella in questo casso credo

Ciao.
   

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #50 il: 15/02/2010, 22:24 »
@OnePiece
Citazione
Non sono sicuro di questo visto che con certi cose o poco esperienza per non dire nessuna, ma con intuito credo la cosa di sopra dovrà essere molto facile
è vero: è superfacile...
@DMD
Citazione
A parte il piccolo errore di sintassi dell'eseguibile     Run(@ScriptDir & "\vsoConvertXtoDVD4_setup-avangate_871.exe")
molto bene: ti sei accorto del nome dell'eseguibile che non era lo stesso che usi te (ma è il nome dell'installer che avevo scaricato..)
Però speravo che nel frattempo tu o altri avessero postato una parvenza di soluzione.... niente  :-\
Vabbè, lo script è il seguente:
Codice: [Seleziona]
Blockinput(1)
Opt("WinTitleMatchMode", 4)
Run(@ScriptDir & "\vsoConvertXtoDVD4_setup.exe")
WinWaitActive("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.9.322 sarà i")
ControlClick("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.9.322 sarà i","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato")
Send("{Down}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v")
sleep(200)
Send("{Space}"&"{Down}"&"{Space}")
sleep(200)
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
If WinWait("[class:#32770]", "È consigliabile installare solo driver",60) Then
;Avviso di sicurezza, richiesta installazione driver: riga seguente: Button2=non installare ---- Button1=installa
ControlClick("[class:#32770]", "È consigliabile installare solo driver","Button2")
EndIf
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
ProcessWait("IEXPLORE.EXE",2)
If ProcessExists("IEXPLORE.EXE") Then
$PID = ProcessExists("IEXPLORE.EXE")
ProcessClose($PID)
EndIf
ProcessWait("firefox.exe",2)
If ProcessExists("firefox.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
ProcessWait("opera.exe",2)
If ProcessExists("opera.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
Sleep(3888)
Send("{Space}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
BlockInput(0)
Con il Blockinput, come possiamo intuire, viene bloccato l'input tastiera e mouse; però non è necessario: lo script lavora comunque... a tua discrezione quindi.
« Ultima modifica: 15/02/2010, 22:29 da MISTER X ® »

Offline Yza_K

  • Di nuovo in azione!
  • Eng2ita Friends
  • **
  • Post: 1.120
  • Karma: 235
  • - The Brain Administration -
    • La mia Fatica!
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #51 il: 15/02/2010, 23:33 »
If WinWait("[class:#32770]", "È consigliabile installare solo driver",60) Then
;Avviso di sicurezza, richiesta installazione driver: riga seguente: Button2=non installare ---- Button1=installa
ControlClick("[class:#32770]", "È consigliabile installare solo driver","Button2")
EndIf

Finezza, complimenti!

Che dire, sono contento che sei andato avanti mister!
Massima Ligure...
" Sùn tùttì bùlicci cò ù cù deì aùtrì "

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #52 il: 15/02/2010, 23:58 »
Yza_k, è bello rivederti da queste parti... quanto tempo!
Citazione
Che dire, sono contento che sei andato avanti mister!
Te resti il numero  :primo: sei il maestro.

P.s. : sperando che tu ti faccia vivo un po' più spesso ti faccio i miei migliori saluti

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #53 il: 16/02/2010, 00:10 »

@DMDmolto bene: ti sei accorto del nome dell'eseguibile che non era lo stesso che usi te (ma è il nome dell'installer che avevo scaricato..)
Però speravo che nel frattempo tu o altri avessero postato una parvenza di soluzione.... niente  :-\...
Ti ringrazio infinatemente, però non prendertela, se non ho postato una soluzione è perchè non so da dove iniziare.
Comuque questi script li conservo come esempio.

Un saluto

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #54 il: 16/02/2010, 00:15 »
Al posto di Macrogenerator ti consiglio di fare largo uso di "Autoit Window Info" con il quale automatizzerai qualsiasi finestra.
Ciao  ;D

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #55 il: 16/02/2010, 10:34 »
Grazie! 

E' un ottimo punto da cui iniziare.

Postato il: 16/02/2010, 00:28


Intanto ho trovato un link che può essere un buon punto di partenza http://www.technibble.com/automation-with-autoit-tutorial-part-2/

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #56 il: 18/09/2010, 20:36 »
Scusate se riapro l'argomento.
In riferimento allo stesso software http://www.eng2ita.net/forum/index.php/topic,4997.msg50025.html#msg50025

Con la nuova versione 4.1.2.336 ,hanno introdotto delle opzioni durante l'installazione , che non riesco a superare.

Questo è il nuovo script generato nudo e crudo con AutoIT Macro generator:
Codice: [Seleziona]
;--- AutoIt Macro Generator V 0.21 beta ---
Opt("WinTitleMatchMode", 4)
WinWait("ConvertXtoDVD_4.1.2.336","")
ControlClick("ConvertXtoDVD_4.1.2.336","","DirectUIHWND3")
ControlClick("ConvertXtoDVD_4.1.2.336","","DirectUIHWND3")
WinWait("Program Manager","FolderView")
$CLVItem = ControlListView("Program Manager","FolderView","SysListView321","FindItem","Cestino")
ControlListView("Program Manager","FolderView","SysListView321","SelectClear")
ControlListView("Program Manager","FolderView","SysListView321","Select",$CLVItem)
WinWait("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO C","TNewButton3")
WinWait("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewButton3")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewCheckListBox1")
WinWait("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Attendere il completamento del","TNewButton4")
WinWait("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewButton4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewNotebook1")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewNotebook1")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewCheckListBox1")
ControlClick("Installazione di VSO ConvertXtoDVD 4","L'installazione di VSO Convert","TNewButton4")

;--- End ---




Lo script relativo alla release precedebte creato da MISTERX funziona alla grande, allora ho pensato di "adattarlo", ho provato a lanciarlo ma l'installazione si blocca.

Codice: [Seleziona]
Blockinput(1)
Opt("WinTitleMatchMode", 4)
Run(@ScriptDir & "\vsoConvertXtoDVD4_setup.exe")
WinWaitActive("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.12.336 sarà i")
ControlClick("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.0.12.336 sarà i","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4","TNewButton3")

WinWaitActive("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format")
Send("{Down}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewButton3")
ControlClick("Installazione di VSO ConvertXtoDVD 4","TV and DVD Player Format","TNewCheckListBox1")


WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v")
sleep(200)
Send("{Space}"&"{Down}"&"{Space}")
sleep(200)
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
If WinWait("[class:#32770]", "È consigliabile installare solo driver",60) Then
;Avviso di sicurezza, richiesta installazione driver: riga seguente: Button2=non installare ---- Button1=installa
ControlClick("[class:#32770]", "È consigliabile installare solo driver","Button2")
EndIf
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
ProcessWait("IEXPLORE.EXE",2)
If ProcessExists("IEXPLORE.EXE") Then
$PID = ProcessExists("IEXPLORE.EXE")
ProcessClose($PID)
EndIf
ProcessWait("firefox.exe",2)
If ProcessExists("firefox.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
ProcessWait("opera.exe",2)
If ProcessExists("opera.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
Sleep(3888)
Send("{Space}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
BlockInput(0)



GRAZIE

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #57 il: 18/09/2010, 23:18 »
E' quasi uguale al precedente script e pare che vada...
Codice: [Seleziona]
Blockinput(1)
Opt("WinTitleMatchMode", 4)
Run(@ScriptDir & "\vsoConvertXtoDVD4_setup.exe")
WinWaitActive("Selezionare la lingua dell'installazione","Selezionare la lingua da utili")
ControlClick("Selezionare la lingua dell'installazione","Selezionare la lingua da utili","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.1.2.336 sarà installato")
ControlClick("Installazione di VSO ConvertXtoDVD 4","ConvertXtoDVD 4.1.2.336 sarà installato","TNewButton1")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole installare VSO ConvertXtoDVD 4","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato")
Send("{Down}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Per favore seleziona il formato di video sopportato","TNewButton3")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Dove si vuole inserire i colle","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v")
sleep(200)
Send("{Space}"&"{Down}"&"{Space}")
sleep(200)
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quali processi aggiuntivi si v","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Il programma di installazione ","TNewButton4")
If WinWait("[class:#32770]", "È consigliabile installare solo driver",10) Then
;Avviso di sicurezza, richiesta installazione driver: riga seguente: Button2=non installare ---- Button1=installa
ControlClick("[class:#32770]", "È consigliabile installare solo driver","Button2")
EndIf
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Quando si è pronti per proseguire","TNewButton4")
WinWaitActive("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
ProcessWait("IEXPLORE.EXE",1)
If ProcessExists("IEXPLORE.EXE") Then
$PID = ProcessExists("IEXPLORE.EXE")
ProcessClose($PID)
EndIf
ProcessWait("firefox.exe",1)
If ProcessExists("firefox.exe") Then
$PID = ProcessExists("firefox.exe")
ProcessClose($PID)
EndIf
ProcessWait("opera.exe",1)
If ProcessExists("opera.exe") Then
$PID = ProcessExists("opera.exe")
ProcessClose($PID)
EndIf
Send("{Space}")
ControlClick("Installazione di VSO ConvertXtoDVD 4","Premere Fine per uscire dall'installazione","TNewButton4")
BlockInput(0)
La seguente riga, che è nello script (ne avevamo già parlato) serve per l'installazione del driver non firmato anche se a me non appare più la richiesta relativa... :
Codice: [Seleziona]
If WinWait("[class:#32770]", "È consigliabile installare solo driver",10) Then il 10 rappresenta il timeout di attesa della finestra ... se appare...; se reputi che il timeout sia basso -quindi solo nel caso che lo script si blocca alla finestra di avviso di sicurezza- lo puoi alzare a 20 (secondi) o 30 , fai te.
Fammi sapere se incontri problemi.
EDIT: script corretto 19/09/2010
« Ultima modifica: 19/09/2010, 10:48 da MISTER X ® »

Offline DMD

  • Eng2ita Friends
  • **
  • Post: 476
  • Karma: 45
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #58 il: 19/09/2010, 00:40 »
GRAZIE!

Lo script va alla grande come al solito non sbagli un colpo :milite:,  

Funge a meraviglia  l'unico rallentamento non è nell'avviso di sicurezza, ma nel completamento dell'installazione, ma dopo qualche secondo scompare.

« Ultima modifica: 19/09/2010, 00:49 da DMD »

Offline Mr.X

  • Eng2ita Staff
  • ***
  • Post: 616
  • Karma: 77
Re: Sezione Autoit, Discussioni e scambio di idee...
« Risposta #59 il: 19/09/2010, 10:54 »
Citazione
Lo script va alla grande come al solito non sbagli un colpo milite,
grazie a te, sei troppo gentile  :D
Citazione
Funge a meraviglia  l'unico rallentamento non è nell'avviso di sicurezza, ma nel completamento dell'installazione, ma dopo qualche secondo scompare.
Nel mio post precedente, cioè qui, trovi lo script aggiornato adesso quel problema non c'è più... o quasi  ;)