23/04/2021, 00:52

[Yza_K]

Come da titolo, Vedrò di aiutare ( O FARMI AIUTARE ) in questo linguaggio.

[DMD]

Chiedo gentilmente come utilizzare la funzione Macro Generator.

La procedura che ho eseguito è questa:
Una volta che mi sono posizionato sull'eseguibile, del software che voglio automatizzare, tasto DX>More Options>Installer Tools>AutoIt MacroGenerator.

Una volta aperta la finestra ho premuto il tatso "Rec" e avviato l'installazione del software preferito, a fine installazione, ho stoppato la registrazione e salvato il file generato.

A questo punto quale passaggio devo esguire prima di compilare lo script?


Cordialmente ringrazio

[Yza_K]

Ciao DMD

Io non conosco il Macro Generator, ma se mi alleghi lo script (anche in pm) te lo controllo.

Cmq uno script in autoit va elaborato con autoit , basta installare autoit ,eseguitrlo e poi testare con F5, se va tutto bene fai l'exe con F7..

[DMD]

Il programma che cerco di "automatizzare" è il noto DivX

lo script generato è questo

Codice: [Seleziona]

;--- AutoIt Macro Generator V 0.21 beta ---
Opt("WinTitleMatchMode", 4)
WinWait("Codec DivX 6.8","")
ControlClick("Codec DivX 6.8","","DirectUIHWND3")
ControlClick("Codec DivX 6.8","","DirectUIHWND3")
WinWait("Language selection","Cancel")
ControlClick("Language selection","Cancel","Button1")
WinWait("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
ControlClick("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009")
ControlCommand("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button4","Check","")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
ControlClick("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("http://go.divx.com/postinstall/win/en - Windows Internet Explorer","Navigation Bar")

;--- End ---



Poi cliccando con il tasto DX sull'eseguibile  More Option>InstallerToolsAutoIT Automated Script>Use WinWait In sequence ho ottenuto un'altro script che ho modificato con le righe del primo.

Codice: [Seleziona]

#region - DivXInstaller install script - (Automated with WinWait functions)

Opt('TrayIconDebug', 1)
Opt('WinDetectHiddenText', 1)
Opt('WinTitleMatchMode', 4)

; Installer.
$executable = 'DivXInstaller.exe'
; Show progess.
$splash = 0
; Default catagory folder in startmenu.
$group = ''
; New catagory to move the default folder into.
$catagory = ''
; Installation folder in Program Files.
$directory = ''

; Run the installer.
$pid = _Install()
If WinWait("Codec DivX 6.8", 60) Then
ControlClick("Language selection","Cancel","Button1")
WinWait("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
ControlClick("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009")
ControlCommand("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button4","Check","")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
;AutoIt supports no SysTreeView32
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","SysTreeView321")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
ControlClick("DivX for Windows Setup ","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
ControlClick("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009","Button2")
WinWait("DivX for Windows Setup","&Close")
ControlClick("DivX for Windows Setup","&Close","Button2")
WinWait("Windows Internet Explorer","Barra di spostamento")
Else
_Abort()
EndIf
ProcessWaitClose($pid)

; Remove shortcuts.
If _MainShortcut('?.lnk') Then
; Relative to shortcut directories
; Remove Startmenu shortcuts
FileDelete('?.lnk')
FileDelete('?.lnk')
FileDelete('?.lnk')
FileDelete('?.lnk')
FileDelete('?.lnk')
; Remove other shortcuts
_Desktop('?.lnk')
_QuickLaunch('?.lnk')
EndIf

#endregion

Exit

#cs - Exitcodes
1 = _Install(): Installer not found
2 = _Abort(): Installer process closed and then Abort
3 = _Abort(): Abort only
-1 = _ProcessBlock(): Blocked processes not unblocked
#ce

Func _Install($path = 'Default')
; Run the installer in Default Script directory.
Dim $splash, $processblock
If $path = 'Default' Then $path = @ScriptDir
If StringRight($path, 1) <> '\' Then $path = $path & '\'
If StringInStr($executable, '\') Then $path = ''
If Not FileExists($path & $executable) Then Exit 1
If $processblock <> '' Then Call('_' & 'ProcessBlock')
If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
If StringRight($executable, 3) = 'msi' Then
Return Run(@SystemDir & '\msiexec /i "' & $path & $executable & '"')
Else
Return Run($path & $executable)
EndIf
EndFunc

Func _Abort()
; close process if exists then exit.
Dim $pid
If ProcessExists($pid) Then
ProcessClose($pid)
Exit 2
Else
Exit 3
EndIf
EndFunc

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
If FileExists(@DesktopDir & '\' & $shortcut) Then
Return FileDelete(@DesktopDir & '\' & $shortcut)
ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
Return FileDelete(@DesktopCommonDir & '\' & $shortcut)
EndIf
EndFunc

Func _MainShortcut($shortcut, $rename = '')
; Change working directory to correct StartMenu\Group directory.
Dim $group, $catagory, $splash
If $group = '' Then Return 0
If FileExists(@ProgramsDir & '\' & $group) Then
FileChangeDir(@ProgramsDir & '\' & $group)
ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then
FileChangeDir(@ProgramsCommonDir & '\' & $group)
Else
Return 0
EndIf
; Wait for main shortcut.
If $splash Then _Splash('Waiting for shortcuts')
For $i = 1 To 20
If FileExists($shortcut) Then ExitLoop
Sleep(500)
Next
If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
; If catagory not assigned anything, then return.
If $catagory = '' Then Return 1
; Move the group folder into the catagory folder.
If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then
If DirRemove($group, 1) Then
; If optional rename parameter is used, then rename the group folder.
If $rename <> '' And FileChangeDir($catagory) Then
If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then
Return FileChangeDir($rename)
EndIf
Else
Return FileChangeDir($catagory & '\' & $group)
EndIf
EndIf
EndIf
EndFunc

Func _QuickLaunch($shortcut)
; Delete a Quicklaunch shortcut.
Local $subdirs = 'Microsoft\Internet Explorer\Quick Launch'
If FileExists(@AppDataDir & '\' & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataDir & '\' & $subdirs & '\' & $shortcut)
ElseIf FileExists(@AppDataCommonDir & '\' & $subdirs & '\' & $shortcut) Then
Return FileDelete(@AppDataCommonDir & '\' & $subdirs & '\' & $shortcut)
EndIf
EndFunc

Func _Splash($text = '')
; Shows a small borderless splash message.
Dim $splash
If $splash Then
If $text Then
SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14)
Else
SplashOff()
EndIf
EndIf
EndFunc

Func _WinClose($title, $text = '')
; Close a window with further attempts.
For $i = 1 To 10
WinClose($title, $text)
If Not WinExists($title) Then Return 1
Sleep(500)
Next
EndFunc

Func OnAutoItStart()
; A 2nd script instance will exit.
If StringInStr($CMDLINERAW, '/dummy') Then Exit
If WinExists(@ScriptName & '_Interpreter') Then Exit
AutoItWinSetTitle(@ScriptName & '_Interpreter')
EndFunc




Dopo ho compilato il file, ma quando lo lancio non mi attiva l'istallazione automatizzata del software preferito.

Questa procedura l'ho fatta anche per altri software e devo dire che con più di qualcuno ha funzionato, per cui non riesco a capire se con qualche programma bisogna agire in modo diverso.


Un saluto

[Yza_K]

Il software che utilizzi è un pochino pasticcione, tra poco te lo faccio bene.

[DMD]

GRAZIE!   

Anche perchè di programmazione non ne capisco niente, ed è per questo che mi affido alla soluzione più comoda e  "automatizzata" del MacroGenerator.

[Yza_K]

Ti do il sorgente domanimattina, ho avuto un contrattempo.

[Yza_K]

Allego il parassita. se vuoi lo puoi personalizzare.

Codice: [Seleziona]

;
; YZA_K 4 EnG2ItA Staff ....   since 1982 to 2009 LOL
;

Run("DivXInstaller.exe") ;nome del file
Opt("WinTitleMatchMode", 4)
WinWaitActive ( "Language selection" )
send ("{ENTER}")
WinWaitactive ("DivX for Windows Setup")
ControlClick ( "DivX for" , "Welcome", "Button2" )
WinWaitactive ("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
send ("{tab}"&"{space}"&"{ENTER}")
WinWaitactive ("DivX for Windows Setup","Choose Components")
; qua dovresti decidere che cosa vuoi preselezionare
; si fà con SEND up/dawn e space.alla fine:
send ("{tab}"&"{tab}"&"{ENTER}")
WinWaitactive ("DivX for Windows Setup","Choose Install Location")
ControlClick ( "DivX for" , "Choose the folder", "Button2" )
;
WinWaitactive ("DivX for Windows Setup")
ControlClick ( "DivX for" , "Free!", "Button4" )
send ("{ENTER}")

WinWaitactive ("DivX for Windows Setup","Sign up for the DivX")
ControlClick ( "DivX for" , "Keep up", "Button2" )
;
WinWaitactive ("DivX for Windows Setup","Installation Complete")
ControlClick ( "DivX for" , "has been", "Button2" )
sleep(2888)
If ProcessExists("iexplore.exe") Then
$PID = ProcessExists("iexplore.exe")
ProcessClose($PID)
EndIf
exit



[DMD]

GRANDE Yza_K !   

Ho testato e l'installazione funge regolarmente, però ti chiedo alcune cosette se non oso troppo.

1- è possibile deselezionare i tool aggiuntivi,  tipo web player ectc.. e lasciare solo il codec?

2- Alla fine dell'installazione mi apre in automatico la pagina web, non c'è modo di impedire questo?


Grazie per il grande lavoro che hai fatto.

Un saluto

[Yza_K]

1) che usi ? il firexox o opera ?
2)
; qua dovresti decidere che cosa vuoi preselezionare
; si fà con SEND up/dawn e space.alla fine:
te l'ho gia scritto cmq mo te lo modifico (domani xò)

[DMD]

Grazie per il tempo che mi dedichi.

Utilizzo Firefox come browser principale, comunque se si riuscisse a bloccare l'apertura del browser sarebbe meglio.

p.s. che dici, sarebbe possibile una mini guida semplice per utilizzare il MacroGenerator senza addentrarsi troppo nel mare immenso della programmazione pura?

Un saluto

[fireblad02]

p.s. che dici, sarebbe possibile una mini guida semplice per utilizzare il MacroGenerator senza addentrarsi troppo nel mare immenso della programmazione pura?

Interesserebbe anche a me 

[Yza_K]

Grazie per il tempo che mi dedichi.

Utilizzo Firefox come browser principale, comunque se si riuscisse a bloccare l'apertura del browser sarebbe meglio.
Hai notato che non ti ho chiesto di ie ? sai perche ?? perche non era possibile, l' avevo già chiuso XD.

p.s. che dici, sarebbe possibile una mini guida semplice per utilizzare il MacroGenerator senza addentrarsi troppo nel mare immenso della programmazione pura?
Io non ne so un zuffolo di  MacroGenerator, mai visto ... non ti posso aiutare su una eventuale guida...


Un saluto

(per i piu pigri allego l'eseguibile)
ecco il codice :

Codice: [Seleziona]


;
; YZA_K 4 EnG2ItA Staff ....   since 1982 to 2009 LOL
;

Run("DivXInstaller.exe") ;nome del file
Opt("WinTitleMatchMode", 4)
WinWaitActive ( "Language selection" )
send ("{ENTER}")
WinWaitactive ("DivX for Windows Setup")
ControlClick ( "DivX for" , "Welcome", "Button2" )
WinWaitactive ("DivX for Windows Setup","Copyright (c) DivX, Inc. 2009")
send ("{tab}"&"{space}"&"{ENTER}")
WinWaitactive ("DivX for Windows Setup","Choose Components")
;
send ("{down}"&"{space}")
sleep(88)
send ("{down}"&"{space}")
sleep(88)
send ("{down}"&"{space}")
sleep(88)
send ("{down}"&"{space}")
sleep(88)
;
send ("{tab}"&"{tab}"&"{ENTER}")
WinWaitactive ("DivX for Windows Setup","Choose Install Location")
ControlClick ( "DivX for" , "Choose the folder", "Button2" )
;
WinWaitactive ("DivX for Windows Setup")
ControlClick ( "DivX for" , "Free!", "Button4" )
send ("{ENTER}")
;
WinWaitactive ("DivX for Windows Setup","Sign up for the DivX")
ControlClick ( "DivX for" , "Keep up", "Button2" )
;
WinWaitactive ("DivX for Windows Setup","Installation Complete")
ControlClick ( "DivX for" , "has been", "Button2" )
; Bye
sleep(2888)
$PID = ProcessExists("firefox.exe")
If $PID Then
ProcessClose($PID)
EndIf
$PID = ProcessExists("IEXPLORE.EXE")
If $PID Then
ProcessClose($PID)
EndIf
$PID = ProcessExists("opera.exe")
If $PID Then
ProcessClose($PID)
endif
;
exit



[DMD]

Non ho parole per ringraziarti!

 Funziona come desideravo sopratutto sotto W7 RC1




Adesso il problema per me, è capire come funziona lo script in modo da poterlo studiare per adattarlo ad altri software, magari ci fosse un tool che farebbe in automatico...    a proposito ho smanettato tempo fa con  Almeza MultiSet però non sono riuscito a "estrapolare" il solo file compilato che mi interessa per lanciare l'eseguibile, bisogna per forza fare un cd avviabile proprietario che installa i singoli programmi.

Penso che AutoIT sia più flessibile, anche se molto complesso.

Un saluto

[Yza_K]

Almeza MultiSet non te lo consiglio, l'ho guardato tempo fà e mi son sbellicato dal ridere XD

Se vuoi, una mano te la do con autoit, previo il mio limitatissimo tempo, mi sembra di ricordare che ci son dei tutorial video in rete...

Sono felice che il parassita sia ciò che desideravi, ciau