VB SENDKEYSRésolu

Question

Bonsoir à tous, 


Voici mon problème... je veux faire exécuter un script en vb avec la commande sendkeys... mais l'usager doit faire une intervention durant le script tel qu'inscrire son user-id et son mot de passe et après qu'il est appuyé sur ENTER le script doit continuer...voici mon script :

Dim objShell


Set objShell = WScript.CreateObject("WScript.Shell")


objShell.AppActivate ("Connexion - BMC Remedy User")
Wscript.Sleep 1000
USER_ID
objShell.Sendkeys "{TAB}"
MOT de PASSE
objShell.Sendkeys "{ENTER}"
wscript.sleep 15000
objShell.sendkeys "^{i}"
objshell.sendkeys "{TAB}""{TAB}"
objshell.sendkeys "{RIGHT}"
objshell.sendkeys "{ENTER}"
objshell.sendkeys "sxj157"
objShell.Sendkeys "{ENTER}"
objshell.Sendkeys "+{TAB}"
objshell.sendkeys "{RIGHT}"
objshell.sendkeys "{TAB}""{TAB}"

Est-ce possible de faire arrêté un script (pause), attendre une intervention de l'usager et que le script se poursuivre après. Si quelqu'un pouvait seulement me guider, j'apprécierais beaucoup

Merci à tous..

cs_Jack · Accepted Answer

Salut
N'oublie pas de rajouter " , True" à la fin des SendKeys afin que le système ait le temps d'exécuter la fonction (risque de loupé).
La solution consiste à lui demander le texte à saisir avant de commencer et d'envoyer ce texte avec un SendKeys de plus.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

jacstep · Answer

Merci beaucoup Jack, pour tes informations.... et ton petit ajout avec le " , True" génial....


Mais pour ce qui est de la saisie de texte avant et envoyer avec un sendkeys est-ce que j'abuserais trop de toi si je te demandais simplement un petit exemple....afin de m'assurer d'avoir bien compris..


Merci beaucoup jack et les autres membres

cs_booba27100 · Answer

SendKeys "{ENTER}", True

VB SENDKEYS

3 réponses

Votre réponse

Discussions similaires