Discussion :

[agro]

Bonjour,

J'ai écrit un bout de code en visual basic 6 qui permet d'exécuter un programme externe. Ce programme est un exe, utilisable en lignes de commandes, qui permet de transférer des données vers un GPS. Serait-il possible de récupérer les différentes sorties du fichier exe afin de savoir si le transfert s'est bien déroulé ou non.

Merci d'avance.

Thibaut.

[méphistopheles]

comment compte tu faires tes sorties?

si ça ne doit pas être particulièrement rapide, tu peux faire ça par ficier interposé, c'et pratique et facile.

[agro]

C'est un programme DOS (gpsbabel). J'aimerais juste récupérer le contenu de la fenêtre "Invites de commandes" pour voir si le transfert si bien effectué.

[méphistopheles]

tu le lance comment?

[agro]

J'utilise une procédure que j'ai récupérée sur internet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
 
'
' Lance un executable et attend la fin de celui-ci
'
Public Sub ShellWait(ByVal JobToDo As String, mode As String)
' déclaration des variables
Dim hProcess As Long, RetVal As Long
' lance le programme exe
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, mode))
' boucle tant que le programme exe n'a pas fini
Do
    GetExitCodeProcess hProcess, RetVal
    DoEvents
    Sleep 100
Loop While RetVal = STILL_ACTIVE
End Sub

Ce qui donne, dans mon cas :

Code :

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

ShellWait chemin & command, vbMinimizedNoFocus

[agro]

Personne n'a d'idées ?

[ouskel'n'or]

J'ai bien une idée mais elle a de fortes chances de ne pas fonctionner

Call shell("Program.exe > Fichier.???")

On faisait ça dans le temps (!!!) mais c'était au temps du dos

Bonne chance

NB - En outre il y a de fortes chances pour que les données en sortie soient cryptées

[agro]

C'est justement ce que j'étais suis en train de tester. Finalement, la ligne de commande que j'utilise est la suivante :

Code :

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

ShellWait chemin & command & " >out.txt 2>error.txt", vbMinimizedNoFocus

Il me suffit alors de lire le fichier error.txt pour récupérer les éventuelles erreurs.

[agro]

Par contre cela fonctionne via la console de commande mais pas via le code...
Une idée ?

[agro]

La seule solution est de créer un fichier batch et puis d'éxécuter celui-ci.