OVH Cloud OVH Cloud

AppActivate

3 réponses
Avatar
sympatix
Bonjour !

J'ai un problème pour qu'une application soit visible au premier plan pour
windows (pour y envoyer quelques commandes par Sendkeys).
Dans l'exemple ci-dessous, je démarre notepad et la calculatrice, et je met
l'un ou l'autre successivement au premier plan.
Normalement, d'après ce qui est inscrit dans le script, c'est la
calculatrice qui devrait se trouver en dernier au premier plan.
Or, ce n'est pas le cas, c'est notepad !
J'ai essayé de taper un "tab" à la suite, mais c'est toujours notepad qui
reste au premier plan. Pourquoi ?
(en fait pour 2 ou 3 changement de plan, ça a l'air de fonctionner, mais,
c'est au delà qu'on dirais que ça caffouille un peu...)

-----Couper ici------
Set oShell = CreateObject("WScript.Shell")
oShell.Run "Calc"
oShell.Run "Notepad"
Set Shell = Wscript.CreateObject("Shell.Application")
oShell.Appactivate ("Sans Titre")
Wscript.Sleep 200
oShell.Appactivate ("Calculatrice")
Wscript.Sleep 200
oShell.Appactivate ("Sans Titre")
Wscript.Sleep 200
oShell.Appactivate ("Calculatrice")
-----Couper ici------

Merci d'avance :-)
--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)

3 réponses

Avatar
sympatix
J'ai une ligne en trop qui ne sert à rien dans le script (un résidu d'autre
chose...):

Set Shell = Wscript.CreateObject("Shell.Application")

--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"sympatix" a écrit dans le message de news:

Bonjour !

J'ai un problème pour qu'une application soit visible au premier plan pour
windows (pour y envoyer quelques commandes par Sendkeys).
Dans l'exemple ci-dessous, je démarre notepad et la calculatrice, et je
met
l'un ou l'autre successivement au premier plan.
Normalement, d'après ce qui est inscrit dans le script, c'est la
calculatrice qui devrait se trouver en dernier au premier plan.
Or, ce n'est pas le cas, c'est notepad !
J'ai essayé de taper un "tab" à la suite, mais c'est toujours notepad qui
reste au premier plan. Pourquoi ?
(en fait pour 2 ou 3 changement de plan, ça a l'air de fonctionner, mais,
c'est au delà qu'on dirais que ça caffouille un peu...)

-----Couper ici------
Set oShell = CreateObject("WScript.Shell")
oShell.Run "Calc"
oShell.Run "Notepad"
Set Shell = Wscript.CreateObject("Shell.Application")
oShell.Appactivate ("Sans Titre")
Wscript.Sleep 200
oShell.Appactivate ("Calculatrice")
Wscript.Sleep 200
oShell.Appactivate ("Sans Titre")
Wscript.Sleep 200
oShell.Appactivate ("Calculatrice")
-----Couper ici------

Merci d'avance :-)
--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)





Avatar
Do Re Mi chel La Si Do
Bonsoir !

Tu devrais regarder AutoIt! Cet outil freeware permet aussi de lancer des
applis, mais il offre un excellent contrôle des fenêtres (devant, derrière,
réduire, déplacer, fermer, etc.), de la souris, du clavier, ...

En plus, il existe un module COM/Active-X, qui permet de l'utiliser depuis
VBS.

Et on peut même générer des .EXE (simili-compilation).

L'adresse : http://www.hiddensoft.com/AutoIt

@-salutations
--
Michel Claveau
Avatar
sympatix
Tu devrais regarder AutoIt!
J'ai jeté un oeil...merci pour l'info.


En attendant, comme je suis (un peu) têtu, j'aimerais bien comprendre
pourquoi Appactivate ne m'obéit pas ...est-ce là une limitation du vbs ?
à+

--
Cordialement
Sympatix
(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"Do Re Mi chel La Si Do" a écrit dans le
message de news:
Bonsoir !

Tu devrais regarder AutoIt! Cet outil freeware permet aussi de lancer des
applis, mais il offre un excellent contrôle des fenêtres (devant,
derrière,
réduire, déplacer, fermer, etc.), de la souris, du clavier, ...

En plus, il existe un module COM/Active-X, qui permet de l'utiliser depuis
VBS.

Et on peut même générer des .EXE (simili-compilation).

L'adresse : http://www.hiddensoft.com/AutoIt

@-salutations
--
Michel Claveau