--------Strutture-Selettive----
----If...Then...Else...ElseIf...EndIf--
- Codice:
-
If
$x=0 Then
Msgbox (0, "fraev has been here", "ehi, $x è uguale a 0,
non so niente di $y")
ElseIf $y=0 Then
Msgbox (0, "fraev has been
here", "ehi, $x è diverso da 0, $y è uguale a 0")
Else
Msgbox (0,
"fraev has been here", "ehi, $x è diverso a 0, $y è diverso da 0")
Endif
If...Endif
verifica una condizione posta tra If e Then;
se la condizione
risulta vera esegue il codice sotto a Then (fino alla successiva parola
chiave)
Se invece risulta falso viene eseguito il codice sotto a Else
(fino alla successiva parola chiave)
ElseIf è una particolare
condizione; affinchè venga eseguito il codice sotto ElseIf la condizione
tra If e Then deve essere falsa mentre la condizione tra ElseIf e Then
deve essere vera
EndIf va posto alla fine di ogni struttura If .. .
Endif
Fate delle prove, presto verrà tutto naturale.
Chi non
sopporta l'inglese può tradurre mentalmente le parole in italiano:
If
=> Se
Then => Allora
Else => Altrimenti
Laughing
sembra una cavolata ma può aiutare molto.
----Select...Case...EndSelect--
- Codice:
-
Select
Case $x>1
Msgbox (0, "", "$x è maggiore di 1")
Case
$x>10
Msgbox (0, "", "$x è maggiore di 10")
Case Else
Msgbox (0, "", "$x è minore o uguale a 1")
Endselect
Select...EndSelect
verifica le condizioni dopo ad ogni case ed esegue il codice sotto il
primo case che risulta vero
Nell'esempio non verrà mai fuori la
finestra "$x è maggiore di 10" perchè prima si trova la condizione
$x>1 (vera quando $x>10)
----Switch...Case...EndSwitch--
- Codice:
-
Switch
$x
Case 1 to 3
Msgbox (0, "", "$x è compreso tra 1 e 3")
Case 4 to 5
Msgbox (0, "", "$x è compreso tra 1 e 3")
Case 6
Msgbox (0, "", "$x è uguale a 6")
EndSwitch
Switch...EndSwitch
si comporta in modo simile a Select...EndSelect
In questa struttura
però viene preso in esame una sola variabile che viene scritta dopo
Switch
Durante l'esecuzione viene verificato se il valore contenuto
dentro alla variabile è compreso dentro un range di valori.
Questo
campo è definito dopo ogni case.
Esempio:
"1 to 3" comprende 1, 2 e
3
Se $x è uguale a 1, 2 o 3 la condizione risulta vera e viene
eseguito il codice sotto al primo Case
Definire un range non è
obbligatorio; è possibile infatti specificare un solo valore
--------Strutture-Iterative----
----For...To...Step...Next--
- Codice:
-
For
$x = 5 to 35 step 5
Msgbox (0, "AhiAhiAhi", "Non mi vengono in
mente " & $x & " esempi più stupidi di questo... -.-")
Next
Esegue
il codice compreso tra For e Next incrementando ad ogni ciclo la
variabile dichiarata dopo 'For' ($x) del valore dichiarato dopo 'step'
(5), fino a quando non assume il valore dichiarato dopo 'to' (35)
Definire
step non è obbligatorio; omettendo step il valore incrementa di 1
----While...WEnd--
- Codice:
-
$counter
= 0
$string = ""
While 1
$counter += 1
Switch $counter
Case 10
$string = @CRLF & "Cosa aspetti a terminarlo???"
Case 20
$string = @CRLF & "Cosa aspetti a terminarlo???"
@CRLF & "Ma sei matto?"
Case 30
$string = @CRLF
& "Cosa aspetti a terminarlo???" & @CRLF & "Ma sei matto?"
& @CRLF & "Non hai niente di meglio da fare?"
Case 50
$string = @CRLF & "Cosa aspetti a terminarlo???" & @CRLF
& "Ma sei matto?" & @CRLF & "Non hai niente di meglio da
fare?" & @CRLF & "Povero demente..."
EndSwitch
Msgbox (0,
"Ehi", "Questo codice andrà avanti all'infinito." & $string, 1)
Wend
Verifica
la condizione posta dopo While e, se vera esegue il codice sottostante
Con
While è possibile generare facilmente un ciclo infinito. Basta scrivere
"While 1" cioè una condizione sempre vera
----Do...Until--
- Codice:
-
$BabboNataleExists
= FALSE
Do
Switch Msgbox (32+3, "Domanda: ", "Babbo Natale
esiste?", 10) ; potevo anche scrivere Msgbox (35, ...)
Case 2
Msgbox (0, "Mah", "Ah, non sai rispondere, eh?")
Case 6
Msgbox (0, "Mhm", "Teoria interessante...")
$BabboNataleExists = TRUE
Case 7
Msgbox (0, "-_-", "Ok,
pensala come vuoi")
$BabboNataleExists = FALSE ; riga inutile
(dopo c'è un exit) ma era tanto per ricordare che Babbo Natale non
esiste ;D
Exit
Case Else
Msgbox (0, "-_____-",
"MUOVITI!!!", 30)
EndSwitch
Until $BabboNataleExists =
TRUE
Esegue il codice compreso tra Do e Until fino a che non si
verifica la condizione posta dopo Until
Ovviamente questa condizione
può anche non verificarsi mai. Anche questo ciclo può quindi diventare
un ciclo infinito...
----For...In...Next--
- Codice:
-
Dim
$array[5]
$array[0] = "Fraev"
$array[1] = "has"
$array[2] =
"been"
$array[3] = "here..."
$array[4] = "and he's here now..."
Msgbox
(48, "Attenzione", "Ora presenteremo il contenuto dell'array $array in 5
msgboxes." & @CRLF & "La visione e consigliata a un pubblico
adulto non impressionabile." & @CRLF & "Buona visione." )
For
$x in $array
Msgbox (0, "asd", $x)
Next
Esegue il codice
compreso tra For e Next per ogni elemento di un array e attribuisce
alla variabile compresa tra For e In tutti i valori dell'array
[questa
struttura viene anche utilizzata per lavorare sugli objects... ne
parleremo più avanti; se vi interessa consultate il manuale di AutoIt]
----Creare-una-GUI--
- Codice:
-
#include
$Form
= GUICreate("GUI", 216, 132)
$Label = GUICtrlCreateLabel("Che bella
GUI! (senza doppisensi)", 24, 24, 163, 17)
$Button =
GUICtrlCreateButton("Io penso di essere un bottone", 16, 72, 185, 33)
GUISetState(@SW_SHOW)
While
1
$Msg = GUIGetMsg()
Switch $Msg
Case
$GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Creare
un interfaccia grafica in AutoIt è molto semplice.
Quando si crea un
Form è bene includere GUIConstants.au3 così da poter usufruire di
alcune variabili già preaparate dal team di AutoIt
- Codice:
-
#include
Ora
passiamo alla creazione vera e propria del Form, la finestra del nostro
programma. Per questo inseriamo la funzione GUICreate ("titolo")
- Codice:
-
$Form
= GUICreate("GUI", 216, 132)
Il primo parametro indica il titolo
della finestra;
Il secondo e il terzo parametro indicano
rispettivamente larghezza e altezza della nostra finestra;
Il quarto e
quinto parametro indicano invece la posizione della finestra nello
schermo;
il sesto e settimo parametro indicano gli stili della
finestra, ovvero dei paramatri che consentono alla vostra finestra di
assumere delle praticolari proprietà. Per un elenco completo di queste
proprietà consultate l'help di AutoIt
L'ottavo parametro consente di
indicare una finestra "madre" per la finestra creata
E'
importante notare che solo il primo parametro è obbligatorio. Tutti gli
altri parametri hanno un valore di default che verrà applicato nel caso
manchi qualche parametro.
Usando il comando GUICreate () si crea
l'handle della finestra (l'oggetto sul quale verranno creati i
controlli)
Dopo aver creato la nostra finestrella, procediamo
a popolarla di controlli (come bottoni, textbox, liste, etc)
Per
creare un controllo in una finestra è sufficiente usare il comando
GUICtrlCreate*
L'* va sostituito con il nome del controllo
Per
creare un bottone (button in inglese Razz) ad esempio:
- Codice:
-
$Button
= GUICtrlCreateButton("Io penso di essere un bottone", 16, 72, 185,
33)
Il primo parametro indica il testo presente nel bottone
Il
secondo e il terzo parametro indicano la posizione
Il quarto e il
quinto parametro indicano la dimensione del controllo
il sesto e
settimo parametro indicano gli stili del controllo, ovvero dei paramatri
che consentono ai vostri controlli di assumere alcune prorprietà
particolari
Questa è una sorta di traccia usata da molti
controlli. Ovviamente alcuni controlli necessitano di più di un
parametro ma le strutture dei GUICtrlCreate* sono molto simili tra loro
IMPORTANTE:
Da un controllo ritorna sempre l'handle del controllo che verrà usato
in seguito per gestire l'interazione con i controlli.
Dopo
aver definito i controlli da usare nel Form settiamo lo stato della
finestra con il comando
- Codice:
-
GUISetState(@SW_SHOW)
A
GUISetstate possono essere passati due parametri:
Il primo indica lo
stato che la finestra deve assumere; il secondo indica l'handle della
finestra in questione
Se il secondo parametro non viene inserito
viene utilizzata l'ultimo form creato
Infine, la parte più
divertente, definiamo cosa deve succedere quando l'utente preme un
bottone o interagisce con un controllo.
Per questo dobbiamo usare
un ciclo infinito: il programma controllerà ogni secondo se qualche
controllo è stato usato e reagirà di conseguenza.
Bene,
cominciamo a creare un ciclo infinito While...WEnd
- Codice:
-
While
1
Wend
Poi utilizziamo la funzione GUIGetMsg() che
rileva le interazioni con i controlli e diciamo al programma di salvare
il suo valore dentro una variabile
- Codice:
-
While 1
$Msg =
GUIGetMsg ()
Wend
Ora creaiamo una struttura di selezione
Switch sul valore di $Msg (ovvero le interazioni con i controlli)
$Msg
assumerà il valore dell'handle del controllo che è stato usato, quindi
organizziamo così il nostro Switch
- Codice:
-
While 1
$Msg =
GUIGetMsg ()
Switch $msg
Case $button
Msgbox (0,
"Ehi!", "Vacci piano con quel mouse!" & @CRLF & "Noi poveri
controlli ci pungiamo sempre")
EndSwitch
Wend
Bene
solo un ultima cosa:
In AutoIt vengono attribuiti dei valori
particolari ai tasti per ridimensionare, minimizzare e chiudere la
finestra.
Per poterli usare è necessario includere GUIConstants.au3
Sono
semplicemente delle variabili che possono essere usate come bottoni
normali:
$GUI_EVENT_CLOSE = il tasto per chiudere la finestra
$GUI_EVENT_MINIMIZE
= il tasto per minimizzare la finestra
$GUI_EVENT_RESTORE = il click
sulla barra di windows per ripristinare la finestra
$GUI_EVENT_MAXIMIZE
= il tasto per massimizzare la finestra
- Codice:
-
While 1
$Msg = GUIGetMsg ()
Switch $msg
Case $button
Msgbox (0, "Ehi!", "Vacci piano con quel mouse!" & @CRLF & "Noi
poveri controlli ci pungiamo sempre!!!")
Case
$GUI_EVENT_CLOSE
Exit
EndSwitch
Wend
----Inviare-eventi-tastiera--
In
questa lezione vedremo come inviare pressioni di tasti a windows
(proprio come se qualcuno stesse usando la nostra tastiera e il nostro
mouse)
Il primo comando che prenderemo in considerazione è
Send("tasto") che invia delle combinazioni di tasti.
- Codice:
-
Send
("!x")
Se il secondo parametro viene settato a 1, i
caratteri verranno inviati come sono scritti.
Questa modalità viene
usata per inserire del testo; si è infatti sicuri che il testo inserito
sarà uguale a ciò che risulterà in output
- Codice:
-
Send
("#adi8wa(/(=/", 1)
darà come output #adi8wa(/(=/
Se il
secondo parametro di Send è settato a 0 o è lasciato di default tutti i
caratteri verranno inviati come vengono scritti tranne:
! = ALT
+
= SHIFT
^ = CTRL
# = WIN
e alcune combinazioni necessarie per
indicare alcuni tasti speciali
- Codice:
-
Send("^!x")
invierà
CTRL+ALT+X
Nell'help ufficiale è presente una lista completa con
tutti i caratteri speciali
E inoltre possibile dare particolari
istruzioni a send:
- Codice:
-
Send ("{A 4}")
invierà A 4 volte.
- Codice:
-
Send("{a
down}")
terrà schiacciato virtualmente il tasto a
- Codice:
-
Send("{a
up}")
rilascerà il tasto a
Con Numlock, CapsLock e
SCrollLock toggle si possono usare anche le opzioni on/off/toggle per
attivare e disattivare il lock
Send("{NumLock on}")
Send("{CapsLock
off}")
Send("{ScrollLock toggle}")
----Inviare-eventi-mouse--
In
AutoIt è possibile controllare il mouse attraverso alcune semplici
funzioni:
MouseClick: Invia un click del mouse.
- Codice:
-
MouseClick("left",
10, 10, 2, 20)
E' necessario impostare che tasto inviare
("Left","Right","Middle", etc) passando come primo parametro una
stringa.
Il secondo e il terzo parametro individuano le coordinate
x/y alle quali verrà effettuato il click
Il quarto parametro riguarda
il numero di clicks da effetuare
Il quinto parametro invece indica
la velocità[0-100] alla quale il mouse dovrà spostarsi alle coordinate
x/y; 0 è istantaneo, 100 è il più lento
MouseCickDrag: Trascina
il mouse da una coordinata a un altra
- Codice:
-
MouseClickDrag("left",
10, 10, 20, 10, 0)
Il primo parametro indica il tasto che verrà
utilizzato nella funzione
Il secondo e il terzo parametro individuano
le coordinate x/y di partenza
Il quarto e il quinto parametro
individuano le coordinate x/y di arrivo
Il sesto parametro indica
ancora una volta la velocità[0-100]
MouseMove: Sposta il mouse
- Codice:
-
Mousemove(10,
10, 100)
Il primo e il secondo parametro individuano le
coordinate nelle quali le coordinate devono spostarsi
Il terzo
parametro indica la velocità[0-100]
MouseGetPos: Ritorna
informazioni sul mouse
- Codice:
-
$array = MouseGetPos()
Msgbox (0,
"Il tuo mouse è qui: ", "X: " & $array[0] & @CRLF & "Y: "
& $array[1])
Se nessun parametro è specificato ritorna un
array bidimensionale contenente in [0] la coordinata x e in [1] la
coordinata y
Se viene specificato come primo parametro 0, ritorna la
coordinata x; se viene specificato 1, ritorna y
MouseGetCursor:
Ritorna il cursore del mouse
Trovate la lista completa nell'help
ufficiale
MouseDown: Tiene premuto un tasto del mouse
Si passa
come primo parametro il tasto da tenere premuto
MouseUp: Smette
di premere un tasto del mouse
Si passa come primo parametro il tasto
da "liberare"
MouseWheel: Invia lo scroll di una rotellina
- Codice:
-
MouseWheel
( "down" ,23); questa è l'indicazione per l'inferno: down +
[2/3=0.666666] :lol:
Come primo parametro si passa la
direzione, "up" o "down"
COme secondo parametro il numero di volte
che verra effettuato lo scroll (di default è 1)
_MouseTrap:
Confina il mouse in un area di schermo ] : D
- Codice:
-
#include
MsgBox
(0, "Crea la tua prigione", "Indica i 2 angoli che delimiteranno la tua
prigione")
Sleep (1000)
MsgBox (0, "Crea la tua prigione",
"Indica l'angolo in alto a sinistra e premi [OK] usando [INVIO]")
$upleft
= MouseGetPos ()
Sleep (1000)
MsgBox (0, "Crea la tua prigione",
"Indica l'angolo in basso a destra e premi [OK] usando [INVIO]")
$downright
= MouseGetPos ()
Sleep (2000)
MsgBox (0, "Crea la tua prigione",
"Bene tra un attimo sarai in trappola!" & @CRLF & "Per uscire
premi il tasto Home")
_MouseTrap ($upleft[0], $upleft[1],
$downright[0], $downright[1])
While 1
If _IsPressed (24) Then
_MouseTrap ()
Exit
EndIf
WEnd
Questa
funzione, semplicemente stupenda era in origine un UDF che è stato poi
inserito nella versione ufficiale di AutoIt (lo si può capire dal _ che
precede la funzione)
Per funzionare richiede Misc.au3
Bisogna solo
passare le coordinate per l'angolo in alto a sinistra e per l'angolo in
basso a destra
----Scrivere-leggere-e-cancellare-in-regedit--
Per
scrivere un valore nel registro possiamo usare la funzione RegWrite
- Codice:
-
RegWrite("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun",
"Shutdown" , "REG_SZ", @WindowsDir & "System32RUNDLL32.EXE
user.exe,exitwindows" )
Il primo parametro indica la posizione
nella quale verrà creata la nostra chiave di registro
Il secondo
parametro indica il nome della chiave
Il terzo parametro indica il
tipo di chiave
Il quarto parametro indica il valore da scrivere nella
chiave
Se verrà specificato solo il primo parametro verrà creata il
percorso se non esistente
Sono sicuro che tutti abbiamo capito
cosa fa il codice dell'esempio Laughing Laughing
Aggiunge all'avvio
di Windows un collegamento che spegne il computer Twisted Evil
Per
leggere un valore usiamo la funzione RegRead
- Codice:
-
RegRead(HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun",
"Shutdown")
Con il primo parametro specifichiamo il percorso
della chiave da leggere
Con il secondo invece indichiamo il nome
della chiave
L'esempio ritornerà @WindowsDir &
"System32RUNDLL32.EXE user.exe,exitwindows"
Per cancellare
una chiave usiamo invece RegDelete
- Codice:
-
RegDelete
("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun",
"Shutdown")
Come abbiamo già visto in RegRead con il primo
parametro specifichiamo il percorso della chiave da cancellare
Con il
secondo invece indichiamo il nome della chiave da cancellare
----Operazioni
sulle finestre--
Nelle precedenti abbiamo imparato a creare
finestre; ora daremo un occhiata alla loro gestione.
Tutte le
finestre di windows hanno un identificatore (handle) con i quali
possiamo richiamare le finestre all'interno del programma
Prima
di tutto vediamo come recuperare informazioni sulle finestre che
vediamo.
Per raggiungere il nostro scopo usiamo il gruppo di funzioni
WinGet*;
Con queste funzioni possiamo, dato il titolo e (se
vogliamo) una parte del testo della finestra recuperare l'handle della
finestra, l'id del
processo, il testo e il titolo esatto, la
classe della finestra, etc...
- Codice:
-
ProcessClose
(WinGetProcess(InputBox ("Finestra da chiudere", "Inserisci il titolo
della finestra da chiudere:")))
per coloro a cui non piace il
codice precedente: Wink
- Codice:
-
$title = InputBox ("Finestra da
chiudere", "Inserisci il titolo della finestra da chiudere:")
$pid =
WinGetProcess($title)
ProcessClose ($pid)
Piccola parentesi
su WinGetTitle:
Se si specifica un titolo vuoto in WinGetTitle la
funzione ritornerà il titolo della finestra attiva
WinGetTitle
(""); finestra in primo piano
Piccola parentesi su
WinGetState:
Per leggere lo stato di una finestra dobbiamo usare
BitAND () in questo modo
- Codice:
-
BitAND(WinGetState(WinGetTitle("")),
$value)
con $value uguale al valore dello stato che ci interessa
conoscere (date un occhio alla guida ufficiale per la tabella completa
degli stati);
BitAND ritornerà 1 se lo stato è attivo nella finestra
specificata, 0 in caso contrario
AutoIt mette nelle nostre
mani da coder consumati delle funzioni decisamente potenti; possiamo
eseguire molte operazioni sulle finestre
Con WinActivate possiamo
dare il focus a una determinata finestra, con WinActive controlliamo se
una finestra è attiva o meno;
Con WinClose chiudiamo una finestrea,
con WinKill forziamo la sua chiusura;
Con WInlist recuperiamo un
array bi-dimensionale contenente titoli e handle di tutte le finestre
aperte (comprese le finestre nascoste);
Con WInMove possiamo spostare
la nostra finestra;
Con il gruppo di funzioni WinWait* (-, Active,
NotActive, Close) possiamo stoppare l'esecuzione dello script fino a
quando una finestra non esista, sia attiva o venga chiusa
Con il
gruppo di funzioni WinSet* possiamo settare stato, titolo, trasparenza e
proprietà (come sempre in primo piano) di una finestra.
- Codice:
-
WinWaitActive
("doh.txt")
WinSetTrans(WinGetTitle(""), "", 180)
WinSetOnTop
(WinGetTitle(""), "", 1)
Per specificare il titolo in una
funzione Win* esistono 4 modalità:
1. (default) controlla che il
titolo di una finestra cominci per la stringa inserita
2. Controlla
che nel titolo di una finestra sia presente la stringa inserita
3.
Controlla che il titolo di una finestra sia perfettamente uguale alla
stringa inserita
4. Controlla particolari campi di una finestra
il
4 metodo usa una sintassi particolare.
In una funzione, nel
parametro titolo, sarà necessario inserire,
[nome_del_campo:stringa-da-cercare-nel-campo]
nome_del campo può
essere il titolo (TITLE), la classe (CLASS), etc (vedi guida ufficiale
per la tabella dei campi)
stringa-da-cercare-nel-campo è invece la
stringa che bisognerà ricercare nel campo specificato
Più campi
possono essere separati dal punto e virgola
- Codice:
-
WinClose("[LAST]")
- Codice:
-
WinClose("[TITLE:7.hmtl
; CLASS:Notepad]")
Per selezionare un metodo possiamo usare
Opt("WinTitleMatchMode", $numero_della_modalità)
- Codice:
-
Opt("WinTitleMatchMode",
2)
$list = WinList ("")
For $x = 1 to $list[0][0]
WinSetTrans
("Mozilla-Firefox",150)
Next
Lun 12 Apr 2010, 16:11
