Discussion :

[staxe]

Bonjour,

Je suis débutant en VB et j'utilise beaucoup de morceaux de programme proposés en exemple dans ce site.
Dans le cadre de mon emploi, j'utilise un document Word pour valider des essais sur un automate.
J'ai donc essayé d'automatiser certains tests dont celui de récupérer des valeurs d'une variable disponible sur le serveur Telnet intégré à l'automate

Donc depuis VBA Word j 'ai lancé un Bat:

Code :

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

1
2
3
4
5
Shell "c:\telnet.bat"
sleep 2500
Shell "c:\killputty.bat"
Sleep 500
Documents.Open FileName:="c:\VariablesMesurées.DOC"                 'ouvre le fichier créé

Qui lui même lance un script Permettant de "taper" les identifiants et les commandes.
Telnet.bat:

Code bash :

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

1
2
"start /realtime putty.exe -load pro"    'lance putty en mode Telnet avec les paramètres appropriés et crée un fichier avec mes valeurs analogique
"wscript //nologo c:\telnet.vbs"

Telnet.vbs:

Code vbs :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set sh=wScript.CreateObject("wScript.Shell") 
wScript.Sleep 500 
sh.SendKeys "utilisateur" 
sh.SendKeys "~" 
wScript.Sleep 300 
sh.SendKeys "mot de passe" 
sh.SendKeys "~" 
wScript.Sleep 300 
sh.SendKeys "meas 50 " 
sh.SendKeys "~" 
wScript.Sleep 300
sh.SendKeys "bye " 
sh.SendKeys "~"

le programme ne fonctionne pas correctement 1 fois sur 15
Je m'explique,
La connexion avec le serveur se passe toujours bien par contre, les commandes ne sont pas toujours envoyées
Si je clique rapidement sur la fenêtre Telnet je vois les commandes s'afficher
Je ne vois pas comment résoudre se problème

j'ai rajouté une sécurité qui arrête Putty ( taskkill putty) et relancer le script mais quand le problème intervient il se reproduit au moins 10 fois de suite

quand je lance le bat à foisons, cela marche à chaque fois

Pourriez vous m'aider à diagnostiquer le problème et pourquoi pas le résoudre ?
Merci d'avance

[Heureux-oli]

Salut,

Essaie avec un DoEvents
C'est une commande qui permet d'attendre d'avoir à nouveau la main avant de passer à la ligne suivante.

[staxe]

merci de répondre,

J'avais essayé cette solution mais c'est pareil

[Heureux-oli]

Salut,

J'ai pas d'autre idée.

[staxe]

Merci grand manitou,
Pourtant il me semblait avoir essayé de mettre DoEvents
mais ce matin mon programme n'à pas flanché

En tout cas , sache que 90% de mon programme utilise les élément de ton tuto