Logo Eng2ita
ENG2ITA Community Versione lo-fi
22/07/2018, 12:51 *
Benvenuto, Visitatore. Per favore, effettua il login o registrati.
Hai perso la tua email di attivazione?

Login con username, password e lunghezza della sessione
E' stata disabilitata la ricerca ai visitatori! 
   Home   Sitemap Regolamento del forum Login Registrati  
Pagine: 1 2 3 ... 6
  Stampa  
Questo topic non e' stato ancora votato!
Non hai ancora votato questo topic. Seleziona una valutazione:
Autore Topic: Sezione Autoit, Discussioni e scambio di idee...  (Letto 56515 volte)
0 Utenti e 1 Visitatore stanno guardando questo topic.
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« il: 11/09/2008, 10:11 »

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

Massima Ligure...
" Sn ttt blicci c c de atr "
ENG2ITA Community
« il: 11/09/2008, 10:11 »

 Loggato
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #1 il: 17/05/2009, 10:33 »

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
Loggato
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #2 il: 17/05/2009, 22:42 »

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..



Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #3 il: 18/05/2009, 06:31 »

Il programma che cerco di "automatizzare" il noto DivX

lo script generato questo

Codice:
;--- 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:
#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
« Ultima modifica: 18/05/2009, 06:33 da DMD » Loggato
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #4 il: 18/05/2009, 09:18 »

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

Massima Ligure...
" Sn ttt blicci c c de atr "
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #5 il: 18/05/2009, 13:42 »

GRAZIE!   

Anche perch di programmazione non ne capisco niente, ed per questo che mi affido alla soluzione pi comoda e  "automatizzata" del MacroGenerator.
« Ultima modifica: 18/05/2009, 13:45 da DMD » Loggato
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #6 il: 18/05/2009, 22:33 »

Ti do il sorgente domanimattina, ho avuto un contrattempo.
Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #7 il: 19/05/2009, 10:27 »

Allego il parassita. se vuoi lo puoi personalizzare.

Codice:
;
; 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


Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #8 il: 19/05/2009, 11:44 »

GRANDE Yza_K !   milite hop02

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. Wink

Un saluto
Loggato
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #9 il: 19/05/2009, 20:17 »

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)
Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #10 il: 19/05/2009, 21:44 »

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
Loggato
fireblad02
Eng2ita Friends
*

Karma: 100
Offline Offline

Post: 163



« Rispondi #11 il: 20/05/2009, 09:22 »

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  Grin Grin Grin
Loggato

L'help fornisce informazioni su tutto, tranne che su quello che ti serve.
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #12 il: 20/05/2009, 09:46 »

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:

;
; 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


* YZA_DivXInstaller.exe (202.47 KB - scaricato 246 volte.)
Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
DMD
Eng2ita Friends
*

Karma: 45
Offline Offline

Post: 474



« Rispondi #13 il: 20/05/2009, 18:27 »

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
« Ultima modifica: 20/05/2009, 18:29 da DMD » Loggato
Yza_K
Di nuovo in azione!
Eng2ita Friends
*

Karma: 235
Offline Offline

Post: 855


- The Brain Administration -


WWW
« Rispondi #14 il: 21/05/2009, 09:06 »

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
Loggato

Massima Ligure...
" Sn ttt blicci c c de atr "
Pagine: 1 2 3 ... 6
  Stampa  
 
Salta a:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines | Sitemap XHTML 1.0 Valido! CSS Valido!

Eng2ita.net - Tutti i diritti riservati 2006-2015   |   Privacy policy |   Licenza Creative Commons