Reperire più velocemente le informazioni del programma.
Quello che Vi presento è un piccolo e semplice Script di Jaws che ho costruito per uso personale, ma che ritengo, potrà essere utile un po' a tutti.
Si chiama
TempoJaws ()
, e serve a conoscere in modo immediato quanti minuti rimangono alla fine della Demo, quando si lavora in modalità
40 Minuti.
Spesso infatti mi capita che, possedendo più di un computer ma una sola chiave di autorizzazione, quest'ultima non è inserita sul PC dove sto lavorando in quel momento…. ed ecco che per regolarmi, posso conoscere immediatamente quanti minuti rimangono prima che Jaws smetta di funzionare, senza dovermi scomodare tanto a cercare tale informazione (che pure c'è) nella apposita finestra di Jaws.
Come detto, lo Script è piuttosto semplice ed eccone un breve ma completo ragguaglio.
Dopo la riga di intestazione dello Script, c'è la parola
Var
che segna l'inizio della dichiarazione delle variabili, che hanno nomi molto intuitivi:
- MSecondi, (millisecondi).
- Minuti.
- DemoJaws, (durata in minuti della Demo di Jaws).
- TempoRim, (tempo rimanente).
- SMessaggio, una variabile di tipo Stringa che, opportunamente formattata, verrà passata alla funzione di lettura di Jaws.
Dopo la dichiarazione delle variabili, lo Script effettua un controllo con la condizione
If
, cioè se è inserita o meno la Chiave di autorizzazione di Jaws
if !IsScriptingEditionAuthorized () then;
Se la chiave non è inserita, il flusso del programma prosegue nelle righe successive.
DemoJaws = 40;
qui si imposta la variabile DemoJaws al valore di 40, che sono i minuti complessivi della durata della Demo.
MSecondi = GetTickCount ();
la variabile
MSecondi
acquisisce, dalla funzione
GetTickCount ()
, il valore in millisecondi del tempo trascorso dall'avvio del sistema.
Minuti = (MSecondi / 1000) / 60;
qui la variabile
Minuti
acquisisce con una semplice espressione matematica, il tempo trascorso in minuti, dall'avvio del sistema.
TempoRim = DemoJaws – Minuti;
e qui, sottraendo il tempo complessivo della Demo (cioè 40 minuti) ai minuti trascorsi dall'avvio, si imposta la variabile
TempoRim
, con i minuti che restano alla fine della Demo.
sMessaggio = FormatString (PmsgDemoJaws, TempoRim);
Qui viene formattata la variabile
SMessaggio
tramite la funzione
FormatString
, alla quale come parametri abbiamo passato:
- Il messaggio apposito, impostato nella relativa sezione prima dello script.
- La variabile
TempoRim
, il valore da formattare nella stringa base.
SayMessage (OT_HELP, sMessaggio);
Infine, usando la funzione
SayMessage ()
, gli passiamo due parametri:
- Il tipo di OutPut con il quale vogliamo sentire il messaggio, ad esempio
OT_HELP. - la variabile da recitare, cioè
SMessaggio.
e qui termina la prima opzione dello Script.
c'è poi l'istruzione
Else
, che vuol dire
altrimenti
, la quale intercetta il flusso se la Chiave di autorizzazione di Jaws è presente.
allora il programma non eseguirà le istruzioni che abbiamo visto fino ad ora, ma salterà direttamente alle righe successive all'istruzione
Else.
Qui, formattando ancora la variabile
SMessaggio
, sempre con l'istruzione
FormatString
, verrà infine passato il tutto ancora nell'ultima riga dove
SayMessage
farà recitare a Jaws che è già autorizzato.
Il codice dello Script.
Chi fosse interessato a provare questo script, e non conoscesse il modo di farlo, può consultare l'articolo che parla proprio di come aggiungere uno script alla propria configurazione di Jaws.
Di seguito, il codice vero e proprio è preceduto dalle assegnazioni dei due messaggi, usati per formattarne il contenuto da recitare nelle funzioni di lettura. Usando l'apposito tasto alla fine del codice, si copieranno negli appunti di Windows entrambe le sezioni, sia i messaggi, sia lo script, che potrà quindi essere poi incollato anche nel file script Predefinito, assegnando ad esso dei tasti di attivazione a piacere.
Per ulteriori informazioni, richiedetele lasciando un commento, o scrivete a:
paolo.tommasi@unoscriptalgiorno.it
Messages
@PmsgDemoJaws
%1 minuti al termine della Demo
@@
@PmsgChiave
è già presente la chiave hardware di Jaws con il numero seriale: %1
@@
EndMessages
Script TempoJaws ()
Var
Int MSecondi,
Int Minuti,
Int DemoJaws,
Int TempoRim,
String sMessaggio
;verifica se è inserita o no, la Chiave Hardware
if !IsScriptingEditionAuthorized () then
;se non è presente
DemoJaws = 40; imposta DemoJaws a 40 minuti
MSecondi = GetTickCount (); acquisisce il tempo dall'avvio, in millisecondi
Minuti = (MSecondi / 1000) / 60; acquisisce il tempo in minuti
TempoRim = DemoJaws - Minuti; ottiene il tempo restante alla fine della Demo
sMessaggio = FormatString (PmsgDemoJaws, TempoRim); formattazione di SMessaggio
SayMessage (OT_HELP, sMessaggio)
; Se invece è presente la chiave hardware
Else
sMessaggio = FormatString (PmsgChiave, GetJFWSerialNumber ())
SayMessage (OT_HELP, sMessaggio)
EndIf
EndScript
Uno Script al giorno, toglie gli ostacoli di torno!
Questo articolo fa parte dell'iniziativa nel titolo, che qui viene presentata nel dettaglio. Sarà, se non altro, l'occasione per dare spazio a script di vari linguaggi, forniti direttamente dagli utenti, oppure messi a punto sulla base di specifiche richieste da questi pervenuteci.
Per ulteriori informazioni, o inviare materiale, rivolgetevi a: