Discussion :

[fdthierry]

Bonjour,

J'ai une application qui se lance en mode java, elle ouvre une fenêtre dos,
puis ouvre ensuite une popup pour authentification. (juste pour placer le
contexte, pas important, du moins je pense)
Je sais comment activer cette popup:

Code :

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

1
2
3
4
5
8<-----------------------------------------------------------
Set objShell = WScript.CreateObject("WScript.Shell")
strTitle = "Enter Login and Password"
objShell.AppActivate strTitle
8<-----------------------------------------------------------

Par contre, cette séquence ne renvoie aucun code d'erreur même si
l'activation ne fonctionne pas!
J'ai tjs le code erreur à 0 même si je mets n'importe quoi dans strTitle
Je souhaite savoir si cette popup est là ou non.

Le but étant de détecté si mon appli est bien lancé ou planté!

Sinon, est il possible de lire dans une boite MsDos ce qui y est écrit ?

--

Amicalement,
Thierry

[jmfmarques]

J'ai une application qui se lance en mode java, elle ouvre une fenêtre dos,
puis ouvre ensuite une popup pour authentification. (juste pour placer le
contexte, pas important, du moins je pense)

Hé bien : en cherchant mieux, tu dois arriver à des chemins encore plus biscornus, je pense....

[fdthierry]

Voici la solution,

Il faut mettre l'activation de la fenêtre dans un résultat à testé et le tour est joué!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
8<---------------------------------------------------------------
On Error Resume Next
 
Set objShell = WScript.CreateObject("WScript.Shell")
 
strTitle = "Enter Login and Password"
 
test=objShell.AppActivate(strTitle)
 
If test Then 
   MsgBox "Fonctionne" 
End If
 
8<---------------------------------------------------------------

Amicalement,
Thierry