scripts pour JAWS


Un appui sur la touche "échappe" vous permet de couper le fond sonore.





Retour au sommaire_Cliquez ici





PRÉCISIONS !


Les scripts que vous trouverez sur cette page sont soit créés par moi-même, soit par d'autres scripteurs qui m'ont autorisé à les publier.




QUELQUES EXPLICATIONS


Voici quelques explications concernant les termes employés dans le gestionnaire de scripts de JAWS !


"ESCAPE" est la touche "échappe", qui se trouve tout en haut à gauche sur le clavier.

"SPACE" : est la touche de "barre d'espace".

C'est la grande touche horizontale mesurant environ 15 centimètres, située à peu près sur le milieu de la première ligne, tout en bas, du clavier alphanumérique.

"ALT" : est la touche qui se trouve à gauche de la "barre d'espace" sur la première ligne, tout en bas du clavier alphanumérique.

"CTRL" : sont les deux touches qui se trouvent à gauche et à droite, aux deux extrémités sur la première ligne, tout en bas du clavier alphanumérique.

"ALT GR" : est la touche qui fait la contraction des touches "ALT" et "CTRL".

Elle se situe à droite de la "barre d'espace".

"JAWSKEY" : est la touche d'insertion ou touche "insert, appelée aussi "Touche Jaws"".

elle est généralement situé en haut à gauche, sur le pavé, dit de 6 ou de 9, qui est au-dessus des 4 flèches de direction.

"HOME" : est la touche "origine", située en haut, au centre, sur le pavé dit de 6 ou de 9.

"END" : est la touche "fin", située au milieu et en bas, sur le pavé dit de 6 ou de 9.

"SHIFT" : sont les deux touches se trouvant au-dessus des deux touches "CTRL", et qui sont aussi appelées "majuscule temporaire".

"TAB" : est la touche de tabulation située au-dessus de la touche "VERR MAJ".

"VERR MAJ" : est la touche permettant de permuter le verrouillage.

Elle permet ainsi de maintenir en permanence la touche majuscule enfoncée.

Elle se situe du côté gauche, juste au-dessous de la touche de tabulation et au-dessus de la touche "SHIFT".

"PUISSANCE 2" : est la première touche sur le côté gauche, marquée par un petit 2.

elle est située au-dessus de la touche de tabulation.

" & et commercial" : est la touche située à droite de la touche "PUISSANCE 2".

C'est le signe qui sert généralement à associer 2 mots ou 2 noms tels que, par exemple : Laurel & Hardy.


A droite de la touche "PUISSANCE 2", se trouvent les touches numérotées de 1 à 0.

Ainsi que la parenthèse fermée et les signes "égale" et "plus"

"1" : en minuscule, donne le signe "et commercial"; en majuscule, donne le chiffre "1".

"2" : en minuscule, donne le "E accent aigu"; en majuscule, donne le chiffre "2".

Avec "ALT G R" donne le signe "~" Tilde

"3" : en minuscule, donne le guillemet; en majuscule, donne le chiffre 3

avec "ALT + GR", donne le signe "dièse".

"4" : en minuscule, donne l'apostrophe; en majuscule donne le chiffre 4

avec "ALT G R", donne le signe "accolade ouverte"

"5" : en minuscule, donne la parenthèse gauche; en majuscule, donne le chiffre 5

avec "ALT + GR", donne le signe "crochet ouvert"

"6" : en minuscule, donne le tiret; en majuscule, donne le chiffre 6

avec "ALT + GR", donne la barre verticale

"7" : en minuscule, donne le "E" accent grave; en majuscule, donne le chiffre 7

avec "ALT + GR", donne l'accent grave

"8" : en minuscule, donne le souligné; en majuscule, donne le chiffre 8

avec "ALT + GR", donne la barre oblique inversée

"9" : en minuscule, donne le "C" cédille; en majuscule, donne le chiffre 9

avec "ALT + GR", donne l'accent circonflexe

"0" : en minuscule, donne le "A" accent grave; en majuscule, donne le chiffre 0

avec "ALT + GR", donne le signe "AROBA"

A droite du 0, en minuscule, donne la parenthèse fermée; en majuscule, donne le signe "degré"

avec "ALT + GR", donne le signe crochet fermé

A droite de la parenthèse fermée, en minuscule, donne le signe "égale"; en majuscule, donne le signe "plus"

avec "ALT + GR", donne le signe "accolade fermée"



COMMENT INSTALLER UN SCRIPT ?


Après avoir ouvert le document texte contenant le script, placez vous tout en haut de la première page, avec le raccourci "CTRL + HOME".

Effectuez un appui sur la touche "HOME", afin de vous assurer que vous êtes bien positionné sur le tout premier caractère de la page.

Sélectionnez et copiez maintenant la totalité du document

Avec les raccourcis "CTRL + SHIFT + END" puis "CTRL + C".


Voilà ! il ne vous reste plus qu'à aller coller le script dans le gestionnaire de scripts de JAWS !

Vous ouvrirez ce dernier à l'aide du raccourci "JAWSKEY + A ACCENT GRAVE", qui est aussi le zéro du clavier alphanumérique.


ATTENTION !


Vous venez bien d'ouvrir le gestionnaire de scripts de JAWS mais votre script ou fonction n'agira que dans l'application active !

Si vous désirez que le script soit effectif dans tout l'ordinateur, il vous faudra le compiler dans le gestionnaire de scripts de JAWS par défaut.

Pour cela, après avoir ouvert le gestionnaire de scripts de JAWS, effectuer le raccourci "CTRL + SHIFT + D".

Vous êtes maintenant dans le dossier nommé "DEFAULT.JSS".

Pour vous en assurer, effectuez un contrôle avec le raccourci "JAWSKEY + T".

Insérer ou supprimer un script dans le gestionnaire de scripts de JAWs peut s'avérer dangereux si vous ne le faites pas correctement.

C'est pourquoi Je vous recommande de suivre scrupuleusement ces quelques conseils de prudence afin que la recherche et la lecture en soient simplifiés !

Commencez par effectuer le raccourci "CTRL + END", pour vous placer tout en bas du dossier où vous désirez coller votre script.

Faites une flèche droite, suivi de deux appuis sur la touche "entrée".

Ainsi, vous aurez toujours un espace entre deux scripts.

Collez votre script avec le raccourci "CTRL + V".

Faites de nouveau la manoeuvre de départ, soit "CTRL + END" suivi d'une flèche droite et de 2 appuis sur la touche "entrée".

Effectuez le raccourci "SHIFT + F2", qui vous placera sur le nom du script que vous venez de coller.

Compilez le script par le raccourci clavier "CTRL + S".


Pour installer un script, il vous faudra toujours effectuer les manipes suivantes : .

Avec le raccourci clavier "CTRL + D", vous pourrez effectuer divers choix, comme assigner le raccourci clavier qui servira à exécuter ce script.

Une première tabulation pour vous assurer que la case à cocher permettant d'attribuer un raccourci clavier à votre script est bien cochée.

Une seconde tabulation vous permettra d'indiquer, si vous le souhaitez, un petit texte explicatif court.

Une troisième tabulation vous permettra d'écrire un peu plus longuement les détails du pourquoi de ce script ainsi que son raccourci clavier, toujours si vous le souhaitez.

Une quatrième tabulation vous permettra de vous positionnez sur le mot "Script", que vous atteindrez à l'aide de la flèche verticale ou en tapant la lettre "S".

Selon la version de JAWS utilisée, il se peut que la synthèse reste muette.

Il vous suffit de taper le raccourci "JAWSKEY + TAB", pour entendre si vous êtes bien positionné sur le bon choix.

Une autre tabulation, qui vous amène à l'endroit où vous devez indiquez le raccourci clavier avec lequel le script s'exécutera.

Attention ! lorsque ce champ s'ouvre, il ne faut pas toucher le clavier !

Sauf bien entendu, la touche ou l'ensemble de touches qui servira à l'exécution du script.

Une dernière tabulation, où vous validerez le bouton "OKAY", par un appui sur la barre d'espace ou la touche "entrée".

Vous êtes maintenant revenu dans le corps du script.

Vous devez alors compilez le script avec le raccourci "CTRL + S".

Une légère sonnerie vous indique que la compilation a été réalisée correctement.

Vous pouvez alors refermer le gestionnaire de scripts de JAWS avec le raccourci "ALT + F4".





Script TrouverExpaiditeur


Ce script permet de connaître l'adresse de l'expéditeur d'un e-mail, dans Outlook Express.

Avec un seul appui sur la touche "F6", l'adresse e-mail est prononcée, puis épelée caractère par caractère.

Par un double appui rapide sur la touche F6, on la copie dans le presse-papier.

On peut ensuite la coller dans un document ou dans la zone d'édition, lors de l'ouverture d'un nouveau message à envoyer.

Ce script doit absolument, pour s'exécuter, être accompagné de la fonction TempoDelay (), que vous trouverez plus bas.


Script TrouverExpaiditeur ()
; pour connaître l'adresse e-mail de l'expéditeur du message et la copier dans le presse-papier.
;de kasdal21g-aroba-yahoo.fr.
;avec le raccourcis F6.
var
int CopierDansPressePapier,
string mail
If IsSameScript () then
Let CopierDansPressePapier =1
EndIf
TempoDelay (133)
SaveCursor ()
FindString (GetCurrentWindow (), "<", s_bottom, s_unrestricted)
Let mail = GetLine ()
TypeKey ("escape")
SpeechOn ()
Let mail = StringSegment (mail, ">", 1)
Let mail = StringSegment (mail, "<", 2)
If CopierDansPressePapier == 1 then
CopyToClipboard (Mail)
SayString("C'est bon, l'adresse E-Mail de l?expéditeur a bien été copiée dans le Presse Papiers")
SpeechOff ()
RestoreCursor ()
SpeechOn ()
Else
SayString ("L'adresse E-Mail de l'expéditeur du message est : ")
SayString (mail)
SpellString (mail)
SpeechOff ()
Delay (2)
SpeechOn ()
SayString ("Si vous voulez copier cette adresse dans le presse papier,pressez deux fois rapidement la touche F6")
SpeechOff ()
Delay (2)
SpeechOn ()
{ESCAPE}
EndIf
EndScript



Fonction TempoDelay


Void Function TempoDelay (int NombreDelay)
var
Int CompteurBoucle
Speechoff ()
Delay (3)
TypeKey ("Alt + Enter")
While CompteurBoucle <= NombreDelay && GetWindowName (GetCurrentWindow ()) != "Général"
Delay (2)
Let CompteurBoucle = CompteurBoucle + 1
EndWhile
If CompteurBoucle == NombreDelay + 1 then
SpeechOn ()
Beep ()
Return
EndIf
Delay (2)
{ESCAPE}
EndFunction


TrouverExpaiditeur et sa fonction-Cliquez ici



Script DireTailleDossierFichier


Ce script permet de connaître par le raccourci clavier "CTRL =+ SHIFT + T", la taille d'un fichier ou d'un dossier.

Sans avoir à écouter toutes les propriétés qu'on entend habituellement, lorsqu'on fait "ALT + ENTER" suivi du raccourci "JAWSKEY + B", qui lance la boîte de dialogue.

Ou il vous annonce si c'est un raccourci, auquel cas, un message vous l'indique.


Script DireTailleDossierFichier ()
;pour connaître la taille d'un fichier ou d'un dossier ou indique si c'est un raccourci.
;avec le raccourci "CTRL + SHIFT + T".
;de kasdal21g-aroba-yahoo.fr.
{ALT+EnTER}<
Delay (3)<
Var String sDonneMoi,int compteur<
savecursor ()<
InvisibleCursor ()<
routeInvisibleToPc ()<
jawsPageUp ()<
jawsHome ()
while ((getword ()!="Taille:") && (compteur<180))
nextWord ()
let compteur = compteur+1
endwhile
if compteur<180 then
Let sDonneMoi = GetLine ()
Let sDonneMoi =StringSegment(sDonneMoi,"(",1)
SayString (sDonneMoi)
else
saystring ("bonjour, vous ne pouvez pas connaître la taille car ceci est un raccourci")
endif
SpeechOff ()
{ESCAPE}
restorecursor ()
Delay (3)
SpeechOn ()
EndScript


DireTailleDossierFichier-Cliquez ici



Script FermeFenaitre


Ce script permet de fermer une fenêtre dans windows.

Il ne remplace pas le raccourci existant, "ALT+F4".

Mais il fait exactement la même chose par l'appui d'une seule touche.

comme par exemple, la touche "PAUSE".



Script FermeFenaitre ()
;avec le raccourci "touche pause". ;de kasdal21g-aroba-yahoo.fr.
{ALT+F4}
EndScript


FermeFenaitre-Cliquez ici



Script RedonneVolumeEtDaicocheCases


Ce script permet de remettre le volume général à 100% et décoche la case ou les cases muettes lorsqu'un souci survient dans votre ordinateur et qu'on n'entend plus rien.

L'avantage est qu'on n'a plus besoin d'une personne voyante pour utiliser de nouveau son PC.

Même le redémarrage de l'ordinateur ne résoudra pas le problème tant que le volume ne sera pas revenu ni les cases muettes décochées.


Script RedonneVolumeEtDaicocheCases ()()
;Remet le volume à 100% et décoche les cases muettes.
;Avec le raccourci "CTRL + SHIFT + F12".
;De kasdal21g-aroba-yahoo.fr.
var
handle hwnd
SpeechOff ()
Run ("sndvol32.exe")
Delay (8)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 1001)
if hwnd then
SetFocus (hwnd)
Pause ()
JAWSHome ()
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 1000)
if hwnd then
SetFocus (hwnd)
if ControlIsChecked () then
{space}
EndIf
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 2000)
if hwnd then
SetFocus (hwnd)
if ControlIsChecked () then
{space}
EndIf
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 3000)
if hwnd then
SetFocus (hwnd)
if ControlIsChecked () then
{space}
EndIf
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 4000)
if hwnd then *
SetFocus (hwnd)
if ControlIsChecked () then
{space}
EndIf
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 5000)
if hwnd then
SetFocus (hwnd)
if ControlIsChecked () then
{space}
EndIf
EndIf
Delay (3)
let hwnd=FindDescendantWindow (GetRealWindow (GetFocus ()), 6000)
if hwnd then
SetFocus (hwnd)
if ControlIsChecked () then
Delay (3)
{space}
EndIf
EndIf
Delay (12)
{Alt+F4}
SpeechOn ()
SayString ("C'est bon ! Le volume est à 100% et toutes les cases muettes sont décochées !")
EndScript


RedonneVolumeEtDaicocheCases-Cliquez ici



Script VerrouillerClavier


Ce script, accompagné de sa fonction, permet de bloquer et débloquer le clavier de votre ordinateur.

Avec le raccourci "CTRL + F12", vous bloquez ou débloquez le clavier, vous permettant ainsi toute tranquillité lorsque la femme de ménage veut nettoyer votre bureau et par la même occasion, passer un coup de plumeau sur le clavier.

Ou que vos petits enfants veulent pianoter sur ce dernier.

A moins que ce ne soit le chat qui ait décidé de faire quelques pas sur les touches pour voir l'effet que ça peut donner !



Script VerrouillerClavier ()
;de kasdal21g-aroba-yahoo.fr.
; Avec le raccourci CTRL + F12.
SayUsingVoice (VCTX_PCCURSOR, "Verrouillage clavier actif", ot_string)
AddHook (HK_SCRIPT, "verrouillage")
TrapKeys (TRUE)
EndScript



Fonction VerrouillerClavier


Function verrouillage (string ScriptName)
if ScriptName == "VerrouillerClavier" then
SayUsingVoice (VCTX_PCCURSOR, "Verrouillage clavier inactif", ot_string)
RemoveHook (HK_SCRIPT, "verrouillage")
TrapKeys (FALSE)
Return FALSE
else
SayUsingVoice (VCTX_PCCURSOR, "Le clavier est actuellement verrouillé !",
ot_string)
EndIf
EndFunction


VerrouillerClavier et sa fonction-Cliquez ici



Script CherchAdressURL


Lorsque vous désirez taper ou coller une adresse URL afin de vous rendre sur une page web, il vous faut ouvrir votre navigateur.

Comme par exemple : "Internet Explorer".

Puis faire "CTRL + O" ou "ALT + D", afin d'ouvrir la barre d'adresses.

Ensuite, soit vous collez l'adresse http://... ou vous l'écrivez.

Avec ce petit script, c'est terminé !

Plus besoin d'ouvrir votre navigateur, le script le fait pour vous !

Avec le raccourci "CTRL + ALT + ESCAPE".

Soit en pressant les touches "CTRL + ALT" plus la touche "échappe".

Une fenêtre s'ouvre, vous demandant de rentrer une adresse URL.

Il vous suffit alors de coller ou d'écrire cette dernière.

Et enfin, de presser la touche "entrée" pour lancer la recherche.

Si, toutefois, vous avez commis une erreur en écrivant l'adresse, inutile de tout retaper !

Tout a été prévu !

L'adresse que vous avez rentré est copiée, puis conservée automatiquement dans le presse papier !

Refaites alors "CTRL + ALT + ESCAPE".

Utilisez le raccourci clavier "CTRL + V".

L'adresse est aussitôt recollée et vous n'avez plus qu'à la modifier avant de valider à nouveau !



Script CherchAdressURL ()
;avec le raccourci "CTRL + ALT + ESCAPE".
;de kasdal21g-aroba-yahoo.fr.
Var
String URL
If InputBox ("Entrez une adresse URL", "Adresse URL", URL)&& URL != "" Then
CopyToClipboard (URL)
Run (URL)
EndIf
EndScript


CherchAdressURL-Cliquez ici





Script GRAVURE DANS NERO


Pour graver dans nero, une fois les paramètres réglés, tels que la vitesse, le nombre de copies, etc, ce raccourci clavier vous permet de lancer la gravure en une seule fois !


Script GravAvecNero ()
;avec le raccourci "CTRL + SHIFT + G".
;de kasdal21g-aroba-yahoo.fr.
SpeechOff ()
{ALT+G}
Pause ()
NextLine ()
Pause ()
{ENTER}
Delay (7)
{ENTER}
EndScript



Grave avec Nero-Cliquez ici




Script QUITTER JAWS


Lorsque vous désirez quitter Jaws, pour diverses raisons, il vous faut faire "INSERT + F4", suivi d'une barre d'espace ou d'un appui sur la touche entrée.


On entend alors une boîte de dialogue vous demander si vous êtes sûr de vouloir quitter Jaws, de valider ou alors de faire "échappe" pour refermer la fenêtre !


Ce petit script permet de décharger la mémoire de Jaws sans avoir à entendre toutes ces paroles que nous connaissons par coeur !


Par un simple appui sur le raccourci clavier choisi, Jaws se tait !


On apprécie le silence et il ne vous reste plus qu'à relancer Jaws par votre raccourci habituel, qui est en général "CTRL + ALT + J".



Script QuitterJAWS ()
;avec le raccourci "CTRL + SHIFT + Q".
;de kasdal21g-aroba-yahoo.fr.
SpeechOff ()
PerformScript ShutDownJaws ()
Pause ()
{ENTER}
Pause ()
SpeechOn ()
EndScript



QuitterJAWS-Cliquez ici




Script SUPPRIMER LES COOKIES


Jusqu'à ce jour, on pouvait supprimer ce qu'on appelle "les cookies de propriétaire" !

Mais sur la plupart des ordinateurs et sous XP, le dossier "Cookies" a disparu !

ce serait dû apparemment à des mises à jour de Microsoft.

Pour retrouver ce dossier et pouvoir de nouveau supprimer les cookies, voici un petit script qui va le rechercher à la source.

Attention !

Une chose dont il faut tenir compte !

Le nom du propriétaire qui est inscrit sur le dossier !

Il faudra bien écrire le nom qui est inscrit sur ce dossier, lorsqu'on va dans le poste de travail, disque local C, Documents and Settings !

!

Dans le script plus bas, Propriétaire est le nom qui est inscrit dans mon dossier Document and Settings !

Le remplacer par : Utilisateur, Administrateur, Gerard ou Sylvie, etc en tenant compte des minuscules et majuscules.

Dans le dossier Cookies, "Index" est un dossier qui ne peut être supprimé !

Il suffit donc de se placer sous ce dossier, de sélectionner le reste de la liste par un simple "CTRL + MAJE + FIN" puis de presser la touche "Suppre".



Script DossierCookies ()
;avec le raccourci "JAWSKEY + CTRL +C".
;de kasdal21g-aroba-yahoo.fr.
Run
("\"C:\\Documents and Settings\\Propriétaire\\Cookies\"")
EndScript



dossier Cookies-Cliquez ici




Script ZONE DE NOTIFICATION


En installant la version Windows 7, avec Jaws 9 et 10, on constate que le raccourci "INSERT + F11" ne fonctionne plus !

Comment retrouver notre zone de notification ?

La barre des taches peut se retrouver grâce au script qui, une fois installé dans le gestionnaire de scripts de Jaws ainsi que la ligne "include" !

Pour cela il vous suffit de bien suivre les instructions.

Tout d'abord, lorsque vous avez ouvert le gestionnaire de scripts de Jaws par le raccourci habituel, faites "CTRL + HOME" afin de vous placer tout en haut de votre fichier.

A l'aide de la flèche, descendez jusque sur la première ligne "Include" que vous rencontrerez.

Placez vous au début de cette ligne, faites une fois "entrée".

Une flèche haut pour vous placer sur la ligne vide que vous venez de créer.

collez maintenant cette ligne :

include "MSAAConst.JSH"

Ensuite, il vous faut aller rechercher le script nommé : "ListTaskTrayIcons ()"

Faites "CTRL + F" pour ouvrir la zone de recherche.

Collez ou écrivez ceci : Script ListTaskTrayIcons ()

Lancez la recherche par un appui sur la touche "entrée".

Vous devez être sur le script.

Un appui sur la touche "échappe".

Avec les flèches verticales, assurez vous que vous êtes bien sur le bon script.

Faites maintenant : "CTRL + R" puis "CTRL+ SUPPRE".

Compilez alors par "CTRL + S".

Faites "CTRL + END", faites une flèche droite et 2 appuis sur la touche "entrée".

Collez le script qui vous donnera accès à la zone de notification.

Compilez à nouveau.

Refermez le gestionnaire de scripts par "ALT + F4".

Cela doit fonctionner ou alors déchargez Jaws par "INSERT + F4" et une barre d''espace, puis relancez le par son raccourci habituel.

Recommencez ! Vous devriez avoir retrouvé la barre des taches !



Script ListTaskTrayIcons ()
;de Daniel Poiraud-AVH16.
;Script pour afficher la boite de dialogue "Sélectionner une icône de la zone de notification" avec Jaws 9 et 10.
;Contribution de Paul, liste Jaws-script.
;avec "INSERT + F11".
var
handle hWnd,
object o,
int iLeft,
int iTop,
int iRight,
int iBottom,
int ScreenHeight,
int ScreenWidth,
string sRectItemList,
string sTemp,
int MagicState,
int iTetherOption, ; Turn off TetherJAWSToPC
int iVPCOption, ;Turn off Virtual PC Cursor
int nItems,
int nIdx,
int nButton,
string strTip,
string GraphicList
if (InHJDialog ()) then
SayFormattedMessage (OT_error, cMSG337_L, cMSG337_S)
return
endIf
let ScreenHeight = ScreenGetHeight ()
let ScreenWidth = ScreenGetWidth ()
let MagicState = MagGetState ()
let iTetherOption = GetDefaultJCFOption (OPT_TETHER_JAWS_TO_PC)
Let iVPCOption = GetJcfOption (OPT_VIRTUAL_PC_CURSOR)
; Temporarily turn off the Tether JAWS to PC option
SetDefaultJcfOption (OPT_TETHER_JAWS_TO_PC, 0)
SetJcfOption (OPT_VIRTUAL_PC_CURSOR, 0)
; recherche de la fenetre contenant les applications en cours d'exécution
let hWnd = GetAppMainWindow (GetFocus())
let hWnd = GetFirstWindow (hWnd)
let nIdx = 0
while nIdx <150 &&hWnd
if GetWindowClass(hWnd) == "Shell_TrayWnd" then
let nIdx=200
else
let hWnd = GetNextWindow (hWnd)
let nIdx=nIdx+1
endif
endwhile
if nIdx == 200 then
let hWnd = FindWindow(hWnd,"SysPager", "")
if hWnd then
let hWnd = FindWindow(hWnd, "ToolbarWindow32","")
endif
endif
if hWnd == 0 then
Say (cmsgListTaskTrayIconsError1, OT_ERROR)
return
endif
; recherche de l'object correspondant à cette fenetre
GetWindowRect(hWnd,iLeft,iRight,iTop,iBottom)
let o = GetObjectAtPoint(nIdx ,iLeft+(iRight-iLeft)/2, iTop+(iBottom-iTop)/2)
let nItems = o.accChildCount
if ( nItems <= 0 ) then
Say (cmsgListTaskTrayIconsError1, OT_ERROR)
return
endIf
; construction de la liste des items de la barre des taches
; et construction de la liste des coordonnées de ces items let nIdx = 1
while nIdx <= nItems
Let strTip = o.accName(nIdx)
if (o.accState(nIdx)&STATE_SYSTEM_INVISIBLE)==0
&& StringLength(strTip) then
tbGetItemRect (hWnd, nIdx, iLeft, iRight, iTop, iBottom)
let sTemp = IntToString(iLeft) + ","+intToString(iTop)
let sTemp = sTemp+","+IntToString(iRight- iLeft)+","+IntToString(iBottom-iTop)
let sRectItemList = sRectItemList + "|"+sTemp
let GraphicList = GraphicList + LIST_ITEM_SEPARATOR + strTip
endif
let nIdx = nIdx + 1
EndWhile
if ( 0 == StringLength (GraphicList) ) then
Say (cmsgListTaskTrayIconsError1, OT_ERROR)
return
endIf
let sRectItemList = StringChopLeft(sRectItemList,1)
let nButton = DlgSysTray (GraphicList, nIdx)
if (nIdx > 0 && nButton > 7000) then
SaveCursor ()
if (MagicState > 0) then
JAWSCursor ()
MoveTo (ScreenWidth - 2, ScreenHeight - 2)
Delay (10, TRUE)
endIf
; SysTrayMoveToItem (nIdx)
let sTemp = StringSegment(sRectItemList,"|",nIdx)
let iLeft = StringToInt(StringSegment(sTemp,"," , 1))+ StringToInt(StringSegment(sTemp , "," ,3))/2
let iTop = StringToInt(StringSegment(sTemp,"," , 2))+ StringToInt(StringSegment(sTemp , "," ,4))/2
JawsCursor()
MoveTo (iLeft,iTop,False)
if (MagicState > 0) then
Delay (10, TRUE)
endIF
if (iD_RightSingleClick == nButton) then
RightMouseButton ()
elif (iD_LeftSingleClick == nButton) then
LeftMouseButton ()
elif (iD_LeftDoubleClick == nButton) then
LeftMouseButton ()
LeftMouseButton ()
endIf
RestoreCursor()
endIf
Pause ()
SetDefaultJcfOption (OPT_TETHER_JAWS_TO_PC, iTetherOption)
SetJcfOption (OPT_VIRTUAL_PC_CURSOR, iVPCOption)
EndScript

Zone de notification-Cliquez ici




Script LISTE DES VERSIONS DE JAWS


Vous désirez savoir quelles versions de JAWS sont installées sur l'ordinateur ?

C'est simple !

Il vous suffit d'installer le script et son raccourci clavier puis de l'exécuter.

En faisant "CTRL + SHIFT + F9", vous entendrez l'annonce de toutes les versions de JAWS qui sont installées dans votre ordinateur, qu'elle soient actives ou juste en mode démo.



Script ListeVersionsJAWS ()
;avec le raccourci "CTRL + SHIFT + F9".
var
string myPath,
string sPath,
string sDossier,
object oPath,
object oSH,
object oDossier,
int i,
int iMax
let myPath="C:\\Program Files\\Freedom scientific\\JAWS"
let oSH=CreateObject("Shell.Application")
let oPath = oSH.NameSpace(myPath)
let iMax = oPath.items.count
let i = 0
While i < iMax
If oPath.items.item(i).IsFolder Then
let sPath = oPath.items.item(i).name
let sDossier=sDossier + sPath + ","
EndIf
let i = i + 1
EndWhile
SayString ("version de jaws installée sur ce PC : " + sDossier)
EndScript


Liste Versions Jaws-Cliquez ici




script Progress


Ce script est un petit gadget vous permettant d'entendre la progression en secondes, minutes ou heures lors d'un transfert de fichier.

Avec le raccourci clavier "CTRL + SHIFT + flèche haut", vous entendez le message du genre : "25 secondes restantes".

Que ce soit un transfert de fichiers de votre disque dur interne vers un autre disque dur externe, carte SD, clé USB, etc, ou vice-versa, par un simple appui sur le raccourci clavier, vous connaissez le temps qui reste avant la fin du transfert.



Script Progress
Script Progress ()
;avec le raccourci "CTRL + SHIFT + flèche haut".
;de kasdal21g-aroba-yahoo.fr.
SpeechOff ()
SaveCursor ()
InvisibleCursor ()
RouteInvisibleToPc ()
JawsPageDown ()
Pause ()
SpeechOn ()
GetLine ()
SayString (GetLine ())
RestoreCursor ()
EndScript


Progress-Cliquez ici




script EnvoiFichier


Ce script pourra peut-être vous aider si vous avez Dropbox et si vous voulez envoyer un fichier ou dossier à plusieurs destinataires en même temps.

Imaginez que vous désiriez envoyer un dossier contenant des fiches de recettes.

Ce dossier ayant une taille d'environ 700 MO, il vous faudra un certain temps pour l'envoyer à 7 personnes.

Ce script a été élaboré afin de simplifier l'envoi de fichiers ou dossiers en une seule fois.

Il vous suffit d'exécuter le raccourci clavier choisi, en l'occurence, "JAWSKEY + CTRL + E", d'écrire le nom du fichier ou dossier puis de valider.

L'envoi commence alors !

Vous pouvez aller vous promener !

Les noms des contacts que vous avez entrés dans le script et qui possèdent un dossier dans My Dropbox recevront leur dossier de recettes et n'auront plus qu'à le couper puis le ranger à l'endroit choisi !



Script EnvoiFichier ()
;avec le raccourci "JAWSKEY + CTRL + E".
;de kasdal21g-aroba-yahoo.fr.
var
object oSystem,
object oNull,
string sNomDuFichier,
string sChemin,
string sName
let sChemin = GetUserSettingsDirectory ()
let sName = StringSegment (sChemin, "\\", 3)
let SChemin = "C:\\" + "\\My Dropbox\\"
if InputBox ("Veuillez entrer le nom de votre fichier ou dossier à copier, puis validez sur entrée", "Nom du fichier ou dossier à copier",
sNomDuFichier) then
if sNomDuFichier != "" then
let oSystem = CreateObject ("Scripting.FilesystemObject")
if oSystem.FileExists(sChemin + sNomDuFichier) || oSystem.FolderExists(sChemin + sNomDuFichier) then
;01_charles
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "charles\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "charles\\")
;02_johnny
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "johnny\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "johnny\\")
;03_rose
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "rose\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "rose\\")
;04_maryline
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "maryline\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "maryline\\")
;05_christine
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "christine\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "christine\\")
;06_isabelle
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "isabelle\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "isabelle\\")
;07_georges
oSystem.CopyFile (sChemin + sNomDuFichier , sChemin + "georges\\")
oSystem.CopyFolder (sChemin + sNomDuFichier , sChemin + "georges\\")
SayUsingVoice (VCTX_PCCursor, "Bravo, les fichiers ou dossiers ont été copiés avec succès !", OT_MESSAGE)
Let oSystem = oNull
Else
SayUsingVoice (VCTX_PCCursor, "Le fichier ou dossier " + sChemin + sNomDuFichier + " est introuvable !", OT_MESSAGE)
EndIf
else
SayUsingVoice (VCTX_PCCursor, "Erreur, vous n'avez pas saisi le nom de votre fichier !", OT_ERROR)
EndIf
else
SayUsingVoice (VCTX_PCCursor, "Vous avez validé sur annulé, merci quand même pour votre participation !", OT_STRING)
EndIf
EndScript



EnvoiFichier-Cliquez ici






Script SUPPRIME COOKIES W7


Jusqu'à ce jour, on pouvait supprimer ce qu'on appelle "les cookies de propriétaire" !

Mais sur la plupart des ordinateurs et sous XP, ainsi que maintenant dans Windows 7, le dossier "Cookies" a disparu !

ce serait dû apparemment à des mises à jour de Microsoft.

Pour retrouver ce dossier et pouvoir de nouveau supprimer les cookies, voici un petit script qui va le rechercher à la source.

Attention !

Une chose dont il faut tenir compte !

Le nom du propriétaire qui est inscrit sur le dossier !

Il faudra bien écrire le nom qui est inscrit sur ce dossier, lorsqu'on va dans : Ordinateur, disque local C, Utilisateurs !

Dans le script plus bas, Propriétaire est le nom qui est inscrit sur mon dossier, qui est situé dans Utilisateurs !

Le remplacer par : Administrateur, Gwendoline, Matt, Laura, Ludivine ou encore Thibaut, etc, en tenant compte des minuscules et majuscules

.

Dans le dossier Cookies, "Index" est un dossier qui ne peut être supprimé !

Il suffit donc de se placer sous ce dossier, de sélectionner le reste de la liste par un simple "CTRL + MAJE + FIN" puis de presser la touche "Suppre".


Script DossierCookies ()
;avec le raccourci "JAWSKEY + CTRL +C".
;de kasdal21g-aroba-yahoo.fr.
Run
("\"C:\\users\\Propriétaire\\appdata\\roaming\\microsoft\\windows\\cookies\"")
EndScript


Supprime Cookies W7-Cliquez ici




SuperCopier 2


Le logiciel SuperCopier2, qui se trouve en téléchargement dans la page Logiciels Gratuits pour Jaws a un petit inconvénient, malgré sa vitesse de transfert !

En effet, on entend l'annonce de la progression ainsi que le temps restant partout où que l'on se trouve sur son ordinateur !

En installant ces 6 fichiers dans le menu démarrer, programmes, Jaws X X X, explorer mes paramètres, vous réduirez ainsi le nombre de fenêtres où on entend cette annonce !

En se servant de la fonction "alt + tabe", on coupe le son de SuperCopier !

On peut soit refaire "alt + tabe", soit "JAWSKEY + F10" pour savoir où en est le transfert !

Si possible, les modifications seront faites pour réduire, voire supprimer ce désagrément !


SuperCopier 2-Cliquez ici




script AdressMailPerso


Un petit script pour se simplifier la vie !

Que ce soit dans votre boîte de messagerie, pour coller votre adresse e-mail en bas de votre message ou encore sur internet, lorsqu'on vous demande votre adresse mail, il vous suffit d'exécuter le raccourci clavier choisi pour que votre adresse e-mail soit aussitôt lue et collée à l'endroit désiré !

On peut, à loisir, installer ce script dans sa boîte de messagerie et son navigateur en lui octroyant le même raccourci clavier ou le mettre dans le gestionnaire de scripts de Jaws par défaut.

Pour ma part, je l'ai installé seulement dans ma boîte de messagerie et dans mon navigateur et j'ai choisi "CTRL + M".

Dans la boîte demessagerie Outlook Express, "CTRL + M" correspond à la fonction qui rapatrie les e-mails entrants mais comme la touche "F5" fait la même chose, on peut s'en servir sans problème.

Libre à chacun de choisir le raccourci qu'il désire, pourvu qu'il ne serve pas déjà.


AdressMailPerso-Cliquez ici




LE SIGNE AROBA


Il n'est pas toujours facile de taper le signe aroba !

Ce petit script va vous faciliter la vie !


Installez le et testez le !


Vous vous demanderez comment vous avez pu vous en passer aussi longtemps !


Il vous suffit de choisir le raccourci clavier qui vous convient le mieux.



Script MettrAroba ()
;avec le raccourci "CTRL + puissance 2".
;de kasdal21g-aroba-yahoo.fr.
Var
String Aroba
Let Aroba = "@"
TypeString (Aroba)
SayString (Aroba)
EndScript


MettrAroba_Cliquez ici




Couper le fond sonore dans un e-mail


Il arrive qu'on reçoive un e-mail où un fond sonore a été ajouté !

Pour lire le texte contenu dans ce message, il presque impossible d'entendre ce que nous dit la synthèse vocale !

Il faut alors aller dans les options d'Outlook Express, afin de décocher la case qui permettra de lire ce que contient le mail !

Puis il faudra ensuite retourner dans les mêmes options afin de recocher cette case !

Inutile maintenant avec l'aide de ce petit script et de son raccourci unique !

En effectuant le raccourci clavier "CTRL + F5", on coche ou décoche la case et un message vous indique si vous avez coché ou décoché cette dernière !

Voici ce petit script :


Script ParlEtMuet ()

;Permet de savoir si le fond sonore d'un mail est désactivé, dans "outlook express".

;Avec le raccourci "CTRL+F5".

;De kasdal21g-aroba-yahoo.fr.

Var

handle hwnd

SpeechOff ()

{ALT+O}

Delay (5)

{O}

Delay (7)

{CTRL+TAB}

Delay (4)

Let hwnd = FindDescendantWindow (GetRealWindow (GetFocus ()), 2222)

If hwnd Then

SetFocus (hwnd)

If !ControlIsChecked () Then

SpeechOn ()

Pause ()

SayString ("case à cocher, cochée")

{SPACE}

Pause ()

{ENTER}

Pause ()

SayString ("c'est bon, vous pouvez lire votre message. n'oubliez pas de redécocher la case, une fois votre message lu ! ")

ElIf ControlIsChecked () Then

SpeechOn ()

{SPACE}

Pause ()

{ENTER}

Pause ()

SayString ("c'est bon ! la case est bien décochée ! vous pouvez entendre le fond sonore!")

Delay (4)

EndIf

EndIf

EndScript


ParlEtMuet Script-Cliquez ici





OuvreCacheDropbox


Ce petit script vous permet de retrouver le dossier "cache" que l'on trouvait dans le dossier nommé "My Dropbox" ou "Dropbox", dans "Mes documents" mais qui a disparu depuis quelques versions.

En effet, tous les fichiers inutiles s'accumulent et onpeut ainsi se retrouver avec plusieurs giga octets de fichiers, ce qui est gênant lorsqu'on a par exemple, 2 giga octets d'espace et que ces fichiers inutiles vous prennnent plusieurs centaines de méga octets voire plus d'un giga octet.

Vous verrez, dans le script se trouvant plus bas, qu'il y a un point-virgule placé devant certaines lignes de commandes<.

Dans certains cas, on a un dossier nommé "Dropbox" ou "My Dropbox".

Il vous suffit de supprimer le point-virgule devant la ligne de commande qui est la bonne.

Si votre dossier situé dans "Mes documents" est "My Dropbox", alors supprimez le point-virgule devant cette ligne.

De même, supprimez le point-virgule devant la ligne contenant Dropbox, si votre dossier se nomme Dropbox, dans "Mes documents".


On installe le script, en ouvrant le gestionnaire de scripts de Jaws, après avoir ouvert le dossier "Dropbox" ou "My Dropbox".


Une dernière chose, dans ce script, le disque "C" est priviligié.

Si votre dossier "Dropbox" ou "My Dropbox" est situé sans un autre disque, il vous suffit de remplacer la lettre "C", se trouvant juste sous le "Run", au début de la ligne de commandes qui correspond et d'inscrire la lettre du disque désiré.

Le script fonctionne sur mon PC ainsi que chez d'autres personnes, avec XP ou W7.

Pour plus de renseignements sur ce script, voir les détails dans la page Manipes utiles avec Jaws<.


Script OuvreCacheDropbox ()
;avec le raccourci "ctrl + shift + C".
;de kasdal21g-aroba-yahoo.fr.
SpeechOff ()
{WINDOWS+R}
Delay (7)
;TypeString ("\"C:\\Dropbox\\.dropbox.cache\"")
;TypeString ("\"C:\\My Dropbox\\.dropbox.cache\"")
Delay (18)
;LeftMouseButton ()
;{ENTER}
SpeechOn ()
EndScript


OuvreCacheDropbox Script-Cliquez ici





script Euros


Tout d'abord, quelques explications !

Lorsqu'on presse les touches "ALT G R" + la lettre "E", on obtient le signe Euros.

Mais quand on est par exemple dans sa boîte de messagerie, Outlook Express et qu'on désire envoyer le message où on a collé le signe Euros, on entend : "bouton standard ou unicode".

Il nous faut alors valider sur le bouton "standard" pour permettre au message de partir.

Pour ne plus rencontrer ce souci, voici un petit script permettant d'écrire en toutes lettre le mot "Euros".

Il suffit d'installer ce script dans votre boîte de messagerie.

Script Euro ()
;avec le raccourci "CTRL + SHIFT + E".
;de kasdal21g-aroba-yahoo.fr.
Var
String E
Let E = "euros"
TypeString ("Euros")
SayString ("Euros")
EndScript



Script Euros_Cliquez ici




Script pour entrer sur le site Mobile Free


en effet, les personnes qui sont chez Free avec un mobile ne peuvent accéder à leur site en ligne car il y a un clavier virtuel qui change à chaque nouvelle ouverture du site !

On trouve 10 positions graphiques, de zéro à 9 mais si une personne voyante peut voir et cliquer sur les chiffres indiqués sous chaque position, il n'en est pas de même pour les personnes déficientes visuelles !

Alors, voici un script fonctionnant avec Mozilla Firefox !

Attention cependant !

Il faut la version 3.6 car après des essais avec la version 10, ça ne fonctionne pas !

Il reste à voir si le script fonctionnerait en se servant des versions existant entre la 3.6 et la 10.

La manipe est simple !

Une fois qu'on est positionné sur un graphique, il suffit d'exécuter le raccourci clavier, soit en l'occurence, "CTRL + SHIFT + Flèche droite".

Pour se déplacer de graphique en graphique, il suffit d'appuyer sur la lettre "G" ou de faire "SHIFT + G" pour revenir au graphique précédent.

Une fois qu'on a validé tous les chiffres de l'identifiant, il suffit de taper la lettre "E", pour aller sur la zonne d'édition où il faut écrire le mot de passe, puis de valider aussitôt, par la touche "entrée".

Pour internet Explorer, on peut également accéder mais avec la version 7.5 !

Voir le script juste en dessous !

N'ayant pas la version 8, je n'ai pu tester !

Le script fonctionne aussi mais la manipe pour valider chaque chiffre n'est plus la même !

On peut tout de même y arriver !



Script DireNombreFreeMobile ()
;avec ctrl shift right arrow
;de kasdal21g-aroba-yahoo.fr
SpeechOff ()
SaveCursor ()
RouteJAWSToPc ()
PlaySound ("AddNumber")
SpeechOn ()
InvisibleCursor ()
EndScript



Script Mobile Free_Cliquez ici




Script ValideFreeMobile avec Internet Explorer


Ajouter ce script au script ci-dessus.

Ce dernier fonctionne aussi bien avec Mozilla Firefox qu'avec Internet Explorer.

Il vous suffira, une fois positionné sur le chiffre désiré, représenté par un graphique, d'exécuter le raccourci clavier pour qu'il soit validé.



Script ValideChiffreFreeMobilIhE ()
;avec ctrl shift F4
;de kasdal21g-aroba-yahoo.fr
SpeechOff ()
Delay (3)
PerformScript LeftMouseButton()
SpeechOn ()
EndScript



Script ValideChiffreFreeMobilIhE-Cliquez ici




Fonction GetListViewFieldInfo


Après diverses installations de Jaws 13, dont les versions 13.0.9.77 et 13.0.10.56, il est apparu que, de temps à autre, 2 fonctions venaient à être défaillantes.

Il a tout d'abord fallu réinstaller la fonction défaillante : GetListViewFieldInfo ().

Mais ensuite, on a une erreur après compilation, indiquant un défaut de déclaration de variable.

Il a donc fallu déclarer la variable dans le Var.

Il faut prendre ce qui se trouve entre le troisième If et Then, en faire un copié-collé et faire ainsi :

Dans la déclaration de variables, donc dans le Var, après la dernière déclaration, après la virgule, suivie d'un espace, il vous faut rajouter ce qui suit :

Collection cLastLVFInfo

On recompile et tout rentre dans l'ordre.


Il vous faudra faire de même pour la fonction "RangeOverLapPercent(int left1, int right1, int left2, int right2) ", qui se trouve juste en dessous.


Voici la première fonction en question :



Function GetListViewFieldInfo

collection function getListViewFieldInfo(handle hwnd)
; Returns info about the given ListView field or null if not applicable.
; Collection properties returned: hwnd, left, right, top, bottom, name, value, colno, colcount, rowno, rowcount, tickcount.
var collection info, collection null
; Check structure of controls first.
if !isTrueListView(getParent(hwnd)) || getWindowTypeCode(getFirstWindow(hwnd)) != WT_HeaderBar then
return null
endIf
; If we cached this recently, just use that.
; This helps with Braille and lets Braille and speech calls share results.
if cLastLVFInfo then
if cLastLVFInfo.hwnd == hwnd && getTickCount() -cLastLVFInfo.tickcount < 500 then
return cLastLVFInfo
endIf
endIf
; Get the left edge and width of the given field.
var object oField, int childID
let oField = getObjectFromEvent(hwnd, ObjID_Client, 0, childID)
if !oField then
return null
endIf
var int fLeft, int fTop, int fWidth, int fHeight
oField.accLocation(intRef(fLeft), intRef(fTop), intRef(fWidth), intRef(fHeight), childID)
if !fLeft && !fTop && !fWidth && !fHeight then
return null
endIf
; Get the header object and that of the list itself (for later).
var object oHeader = getObjectFromEvent(getFirstWindow(hwnd), ObjID_Client, 0, childID)
if !oHeader then
return null
endIf
var object oList = getObjectFromEvent(getParent(hwnd), ObjID_Client, 0, childID)
if !oList then
return null endIf
; Scan headers for a significant left/width match.
var int hLeft, int hTop, int hWidth, int hHeight
var int n = oHeader.accChildCount
let childID = 1
while childID <= n
let hLeft = 0
let hTop = 0
let hWidth = 0
let hHeight = 0
oHeader.accLocation(intRef(hLeft), intRef(hTop), intRef(hWidth), intRef(hHeight), childID)
if hLeft || hTop || hWidth || hHeight then
if rangeOverlapPercent(fLeft, fLeft+fWidth, hLeft, hLeft+hWidth) > 50 then
; We finally found what we need.
info = new collection
info.hwnd = hwnd
; MSAA coordinates are 0-based but JAWS coordinates are 1-based.
info.left = fLeft +1
info.right = info.left +fWidth
info.top = fTop +1
info.bottom = info.top +fHeight
info.name = oHeader.accName(childID)
; This can help because getObjectValue() can miss what's not on screen.
info.value = oField.accValue(0)
info.colno = childID
info.colcount = n
if !info.colcount then
; This may not happen but is here in case.
info.colcount = oHeader.accNavigate(NavDir_LastChild, 0) endIf
info.rowno = oList.accSelection +0
info.rowcount = oList.accChildCount +0
if !info.rowcount then
; ListViews have been seen to have no row count. [DGL, 2012-02-14]
info.rowcount = oList.accNavigate(NavDir_LastChild, 0)
endIf
info.tickcount = getTickCount()
cLastLVFInfo = info
return info
endIf
endIf
let childID = childID +1
endWhile
return null
endFunction



GetListViewFieldInfo.zip Fonction-Cliquez ici




Fonction RangeOverLapPercent(int left1, int right1, int left2, int right2)


Il suffit de faire un copié-collé puis de compiler pour qu'elle soit de nouveau effective.



Funcrtion RangeOverLapPercent (Int Left1, Int Right1, Int Left2, Int Right2)


Int Function RangeOverLapPercent(int left1, int right1, int left2, int right2)
; Returns the maximum percentage of the two given ranges shared by both ranges.
; The order of the ranges does not matter, but left1<=right1 and left2<=right2 are assumed.
; Of course, left/right are for convenience; the orientation of the line is immaterial.
var
int l1, int l2, int l3
let l1 = right1-left1
let l2 = right2-left2
let left1 = max(left1, left2)
let right1 = min(right1, right2)
let l3 = right1-left1
if l3 < 0 then
return 0
endIf
return max( 100*l3/l1, 100*l3/l2)
endFunction



RangeOverLapPercent.zip Fonction-Cliquez ici




Script ODANLEUF ()


Certains d'entre vous l'auront peut-être déjà remarqué mais lorsqu'on écrit, dans un e-mail, un mot avec le O et le E liés, tels que dans les mots vœux, bœuf, nœud, œuf, la lettre E, ne se trouve plus dans le mot en question.

Ce qui donne à l'arrivée, Voux, Bouf, Noud, Ouf.

La même chose se produit pour le A et le E liés, tel que dans le prénom Lætitia.

On entend alors Latitia.

Pour éviter d'avoir à taper à chaque fois le code ascii à l'aide de la touche "ALT" et des chiffres du pavé numérique actif, je vous propose un petit script qui vous permettra, grâce à un simple raccourci clavier, de taper directement l'un de ces caractères.

Il vous suffit d'installer le script en question, en suivant les instructions indiquées page Manipes utiles avec Jaws.

La seule chose, sera de modifier à loisir, le dit-caractère, sur la ligne correspondante, dans le script ainsi que son raccourci clavier.

En effet, on ne peut attribuer à un script, qu'un seul raccourci clavier, le même raccourci ne pouvant servir qu'à exécuter un seul script.

Pour ce qui est du caractère à modifier, il vous suffira de le taper à l'aide des touches "ALT" et des chiffres du pavé numérique actif, comme indiqué plus haut.

Vous trouverez également une liste de caractères ascii et leur correspondance avec le pavé numérique dans la Page Manipes utiles avec Jaws, sur ce même site.




Script ODANLEUF ()
;avec le racccourci clavier "CTRL + O"
;de kasdal21g-aroba-yahoo.fr
Var
String O
Let O = "œ"
SayString (O)
TypeString (O)
EndScript



ODANLEUF Script-Cliquez ici




Scripts du Jeu Blinomots


Voici les scripts pour le jeu "Blinomots", qui se trouve dans la page Jeux de ce site.

A installer dans les fra de Jaws.


Scripts Blinomots-Cliquez ici




Scripts du Jeu Yahtzi


Voici les scripts pour le jeu Yahtzi, qui se trouve dans la page Jeux de ce site.

A installer dans les fra de Jaws.


Yahtzi Scripts jeu-Cliquez ici




Script DiDonnHeure


Ce script vous donne l'heure uniquement.

Ce script a un raccourci clavier pour l'installer dans une application donnée.

Si vous désirez l'utiliser dans toutes les applications, il vous faudra l'installer par défaut, en choisissant un raccourci clavier non utilisé dans le défaut.


Script DiDonnHeure ()
;avec le raccourci "CTRL + H"
;de kasdal21g-aroba-yahoo.fr
Var
String DDH
Let DDH = SysGetTime ()
SayString (DDH)
TypeString (DDH + " ")
EndScript

DiDonnHeure Script-Cliquez ici




Script DiDonnJour


Ce script vous donne la date uniquement.

Ce script a un raccourci clavier pour l'installer dans une application donnée.

Si vous désirez l'utiliser dans toutes les applications, il vous faudra l'installer par défaut, en choisissant un raccourci clavier non utilisé dans le défaut.


p>Script DiDonnJour ()
;avec le raccourci "CTRL + J"
;de kasdal21g-aroba-yahoo.fr
Var
String DDJ
Let DDJ = SysGetDate ()
SayString (DDJ)
TypeString (DDJ + " ")
EndScript


DiDonnJour Script-Cliquez ici




Script DiDonnDattHeure


Ce script vous donne la date et l'heure ensemble.

Ce script a un raccourci clavier pour l'installer dans une application donnée.

Si vous désirez l'utiliser dans toutes les applications, il vous faudra l'installer par défaut, en choisissant un raccourci clavier non utilisé dans le défaut.


Script DiDonnDattHeure ()
;avec le raccourci "CTRL + D"
;de kasdal21g-aroba-yahoo.fr
Var
String DDJ, String DDH
Let DDJ = SysGetDate ()
SayString (DDJ)
TypeString (DDJ + " ")
Let DDH = SysGetTime ()
SayString (DDH)
TypeString (DDH + " ")
EndScript


DiDonnDattHeure Script-Cliquez ici




Script VUE DE LISTE


Voici un petit script tout simple, qu'il vous suffit de copier-coller dans le gestionnaire de scripts de Jaws par défaut pour ne plus entendre, lorsque vous appuyez sur les touches "Insert + Tabe", le fameux : "Vue de liste".

Simple mais efficace !


Script SilenceVuDeListe ()


;avec le raccourci "JAWSKEY + TAB"


;de kasdal21g aroba yahoo.fr


{TAB+JAWSKEY}


SayLine ()


EndScript


Vue de liste script-Cliquez ici




K CHESS ELITE 4 SCRIPTS


Pour vous faciliter quelque peu les manipes dans ce jeu d'échecs, voici quelques scripts.

Vous en trouverez les explications dans la page Manipes utiles avec Jaws.

K Chess Elite 4 scripts-Cliquez ici



SKYPE TALKING SCRIPTS


Téléchargez, installez les scripts et en vous promenant dans le menu fichier, voyez toutes les manières de configurer votre skype.



Skype talking scripts-Cliquez ici




FERME FENÊTRE AVEC NVDA


Tout comme dans JAWS, en se servant de la touche "pause", qui se trouve tout en haut à droite au-dessus du pavé de 6, qui est aussi la touche "F15", vous fermerez la fenêtre courante à l'aide d'un seul doigt.

Installez ce petit script et vous ne pourrez plus vous en passer !



Ferme Fenêtre-NVDA-Cliquez ici






CONTACT


pour toutes vos demandes, remarques ou suggestions, à propos de ce site :


M'écrire_Cliquez ici





Retour au sommaire_Cliquez ici