Re-salut les mecs !
Je me suis longuement demander où poster ce message entre la jaws-script et ici.
J'ai finalement opté pour la progliste car elle s'occupe du coeur de métier du
logiciel pour lequel je cherche à faire un script.
En effet, j'essai de scripter la fenêtre visual designer du pure basic.
Selon la procédure uniquement accessible par la souris, lorsqu'on veut poser un
gadget sur une fenêtre window, on doit cliquer sur le gadget en question, avant
de dessiner le rectangle qui le contiendra dans la zone appropriée.
Ce sont donc ces actions que j'essai de reproduire par script.
J'arrive bien à trouver le bon gadget, à cliquer dessus, mais c'est au moment
de dessiner la forme qu'il aura que les choses se gatent.
Le principe que j'emploi est:
* je positionne le curseur jaws à une position libre sur la fenêtre window;
* je vérouille le bouton gauche de la souris;
* je fait se déplacer le curseur jaws pour tracer le rectangle en veillant bien
de mettre un délai à l'arrivée sur chaque coin pour permettre à l'ordinateur de
suivre.
* puis je dévérouille le bouton gauche de la souris.
Mais mes tentatives sont sans succès.
Voici le script de dessin que j'ai employé:
Script DessineUnRectangle ()
SayString ("test")
var
handle hwnd,
int id,
string s,
int iLeft, int iRight, int iTop, int iBottom,
int iWidth, int iHeight,
int x, int y
; détermination des dimensions de l'objet
let iWidth = 100
let iHeight = 25
JAWSCursor ()
; positionnement
let x =150
let y =150
MoveTo (x, y)
; vérouillage et dessin
LeftMouseButtonLock ()
; déplacements avec respect de délais pour que l'ordi puisse suivre
let x = x+iwidth
MoveTo (x, y)
Delay (2)
let y = y+iHeight
MoveTo (x, y)
Delay (2)
let x = x-iWidth
MoveTo (x, y)
Delay (2)
let y = y-iHeight
MoveTo (x, y)
; dévérouillage
LeftMouseButtonLock ()
SayString ("fin du dessin")
EndScript
Y a-t-il quelque chose que je ne fait pas bien ?
Merci d'y réfléchir !
Yannick Daniel Youalé
La programmation est une religion, et Dieu est le plus grand de tous les
programmeurs.
