JAWS: per chi s'intende di linguaggio script

Ciao lista,
immagino molto sicuramente che a molti di voi dà noia dover attendere i caricamenti delle pagine web, con JAWS in silenzio.

Ecco, ho iniziato a costruire uno script che, in base a ciò che c'è scritto infondo alla finestra ("in attesa di...", "trasferimento dati da..."), JAWS dìa un messaggio di attesa, tipo "un momento, prego", o "attendere, prego", mentre, quando infondo alla finestra appare la scritta "completato", JAWS avverte l'utente che la pagina è stata finalmente caricata con la semplice parola "fatto!", insomma, un po' come fa NVDA e Klango.
Tutto questo riguarda la versione 0.1 dello script.
Nella versione 0.2, invece, (anche questo è da testare insieme), ho fatto in modo che JAWS se una parola diversa da "completato" appare per un un massimo di 10 secondi (segno che il server è sovraccarico), avverta l'utente della difficoltà di connettersi e suggerisce di aggiornare lo schermo (premendo insert+esk(non ho trovato un modo per automatizzare la cosa, o meglio la soluzione ce l'avrei, ma dovrei riscrivere il codice a mano, con tanto di condizioni).
Il codice è questo e lo leggete sotto quueste righe: grazie per le critiche/suggerimenti/osservazioni..
Script StateBarWindow ()
;version 0.1
;questo script informa l'utente sullo stato di caricamento della pagina web.
;Attivo il cursore PC, nel caso sia attivo un cursore diverso.
PCCursor ()
;Salvo il cursore attivo
SaveCursor ()
;attivo il cursore JAWS
JAWSCursor ()
;Salvo il cursore attivo
SaveCursor ()
;Mi assicuro che il cursore JAWS si trovi all'inizio della riga
BottomOfFile ()
;Vado a fine documento
JawsHome ()
Inizio il ciclo, finché che si fermerà quando la parola ocorrente sarà "completato".
While GetWord () == "completato"
;A questo punto lo script incomincia a valutare e comportarsi in base al contenuto dell'ultima riga della ; finestra.
If GetWord () == "in" then
NextWord ()
If GetWord () == "attesa" then
NextWord ()
If GetWord () == "di" then
SayString ("Un momento, prego!")
;versione 0.2
;Ora JAWS verificherà il tempo in cui questo testo sarà mostrato, altrimenti darà un suggerimento su come ;accelerare il caricamento.
Delay (10)
JAWSHome ()
If GetWord == "in" then
SayString ("Provate ad attende altri dieci secondi")
EndIf
Delay (10)
If GetWord () == "in" then
SayString ("attenzione, il server risulta essere sovracarico. Aggiornate lo schermo e rilanciate lo script.)
EndIf
EndIf
EndIf
Else
If GetWord () == "trasferimento"
NextWord ()
If GetWord () == "da" then
SayString ("Sto trasferendo le informazioni da")
NextWord ()
SayWord()
SayString ("attendere, prego")
EndIf
EndIf
JawsHome ()
Else
If GetWord () == "javascript" then
SayString ("Sto eseguendo un Javascript, attendere, prego")
EndIf
JawsHome ()
If GetWord 8) == "completato" then
SayString ("Fatto!")
EndIf
EndIf
EndWhil?e
PCCursor ()
EndScript

Ed ora, un po' di pubblicità