Discussion :

[Djoul]

Hello tout le monde.

Je me retrouve face à un problème ou j'ai quelques soucis à voir comment je pourrais m'y prendre, sachant que je débute tout juste en vbscript...

Comme dans un post précédent, je bosse actuellement sur un script sensé générer le code SQL de rapports Cognos (Business Intelligence). Le script de génération fonctionne à merveille, et lors de l'ouverture des rapports, les prompts sont automatiquement validés par un second script simulant un "Enter". Jusque là tout va bien... (ci-dessous le code de ce script)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set variable=CreateObject("WScript.Shell") 
 
While 1 = 1
variable.AppActivate "Prompts"
variable.SendKeys ("{enter}") 
wscript.sleep 8000
wend

Pour les fenêtres de prompts, ca marche à merveille. Par contre, je me suis retrouvé coincé lorsqu'une fenêtre d'erreur s'est ouverte, sans que le focus ne soit posé sur le bouton OK ce cette erreur, comme ci-dessous



Une tabulation me permettrait sans soucis d'arriver sur le bouton OK pour le valider, seulement, une tabulation posé sans test risquerait de m'empecher de valider les prompts corrects.

Il faudrait que je puisse tester si la fenêtre actuellement ouverte porte le nom "Query Server Error" pour pouvoir simuler le tab nécessaire. Malheureusement, je peine à trouver comment faire cela... Je pensais par exemple pouvoir faire un test sur la fenêtre en cours au niveau du titre, et lancer la tabulation...

Une idée quelqu'un ?

[Djoul]

Re,

J'ai réglé le problème par un moyen détourné... Au lieu de simuler un TAB, j'ai simulé un Maj-TAB, qui fonctionne parfaitement.

Le problème est donc "résolu".