POURMONET
Messages postés12Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention22 août 2012
-
14 nov. 2008 à 15:38
POURMONET
Messages postés12Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention22 août 2012
-
22 nov. 2008 à 11:57
Bonjour à tous.
Y a un os dans le potage.
J'utilise les fonctions SENKEYS pour envoyer les codes Identifiant et Password lors de l'ouverture d'un programme.
Jusque là tout allait bien, mais aujourd'hui, je dois réaliser cette opération sur un programme en TSE et la ça ne fonctionne plus.
J'arrive bien à activer la fenêtre, mais la touche TAB ne déplace pas le focus correctement et les valeurs ID et Password ne sont pas transmises aux zones de texte.
Je pense que cela vient du fait que le programme n'est pas réellement sur le poste puisqu'il est sur le serveur.
Mais dans ce cas comment peut on se déplacer dans la fenêtre d'un programme TSE.
Je dois bien avouer que cette technique est nouvelle pour moi, si quelqu'un a une idée sur le moyen de contourner ce problème, je l'en remercie par avance.
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201823 17 nov. 2008 à 09:34
Bonjour,
Par quelle méthode traites-tu la simulation de touches clavier ?
Si tu passes par la méthode SendMessage de l'api Windows avec le message WM_KEYDOWN sa passe sans soucis.
POURMONET
Messages postés12Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention22 août 2012 22 nov. 2008 à 11:57
OK, excusez moi, je suis un peu long, mais je gère trop de chose en même temps.
bon, j'ai essayé avec sendmessage ou postmessage, c'est vrai que cela parait plus sérieux.
Seul problème, je n'arrive pas à communiquer avec un autre programme.
Le code est assez simple, mais il ne fonctionne pas.
'envoyer un message sur mon appli
nom_fenetre = "Identifiant"
Handle = cherche_fenetre(vbNullString, nom_fenetre)
Handle = GetWindow(Handle, 5) 'se placer dans la fenetre du texte
txt = "BONJOUR"
For num = 1 To Len(txt)
lettre = Asc(Mid(txt, num, 1))
PostMessage Handle, WM_KEYDOWN, lettre, 0
PostMessage Handle, WM_KEYUP, lettre, 0
Next
j'ai essayé avec les touches Close et Tab, ça marche, mais pas ce message !!!
J'ai oublié quelque chose ?
J'ai lu tout ce qui se disait sur le sujet, mais je n'ai pas trouvé de solution.
autre question ? pourquoi SendKeys est à bannir des programmes ?