Discussion :

[Coin]

Bonjour à tous,

Un programme me permet d'exécuter des exécutables (créer avec VB6).
Ce programme lance en vérité des commandes DOS.

Je voudrais, lorsqu'une erreur est généré par un exécutable Visual Basic, que mon programme renvoie une donnée erreur (N° + Description) dans la fenêtre DOS dans lequel il a été exécuté.

Le casse tête est ; je sais récupérer les erreurs VB, mais je ne sais pas comment faire remonter cette erreur.
Je sais que l'on peut passer une commande DOS sur un programme VB, mais je voudrais faire l'inverse, qu'il renvoie une donnée pour dire qu'il ne c'est pas exécuté correctement.

J'espère être clair, si ce n'est pas le cas ne pas hésiter à me poser des questions.

Merci d'avance.

Coin.

[ProgElecT]

Un programme me permet d'exécuter des exécutables (créer avec VB6).

est-ce les exécutables qui sont créer avec VB6 ?
est-ce le programme qui lance des exécutables qui a ete créer avec VB6 ?
la stratégie depandra pour une bonne part de ces réponces.

[Coin]

Salut,

Se sont les exécutables qui sont créé en VB6.

Je me demandais si il n'existe pas une fonction du genre Return que l'on puisse utilisé dans le programme VB pour que celui renvoie une valeur.

Merci d'avance
Coin.

[Vld44]

peut-être existe-t-il des méthodes d'écriture de console ?

[Coin]

méthodes d'écriture de console ?

heu!!! C'est à dire ???

Coin.

[Vld44]

Bah tu as un objet qui représente la ligne de commande comme n'importe quelle form ... Peut-être qu'il existe des APIs qui permettent d'écrire ce que tu veux dans cette "console" (la ligne de commande c:\ si tu veux)

[ProgElecT]

Bonjour Delbeke

pour Coin
Sur un Form, un Label, 2 CommandButton
avec ce petit bout de code,

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
23
24
25
26
27
28
Option Explicit
 
Private Sub Command1_Click()
Dim ShL
ShL = Shell("cmd.exe", vbNormalFocus)
End Sub
 
Private Sub Command2_Click()
Dim A As Integer, B As Integer, C As Integer
Dim Msg$
A = 10: B = 0
On Error Resume Next
C = A / B
If Err <> 0 Then
 Msg$ = CStr(Err.Number) & " - " & Err.Description
 Err.Clear
 Msg$ = Msg$ & " Appli " & Me.Caption
 Msg$ = "SET MeeRR=" & Msg$
 DoEvents
 On Error GoTo GestErr
 AppActivate "cmd.exe", True
 SendKeys Msg$ & Chr$(13), True
 Label1 = "C'est fait"
End If
Exit Sub
GestErr:
Label1 = "pas bon"
End Sub

lancer la fenêtre Dos avec le bouton Command1
puis,
clicker le bouton Command2
dans la fenêtre DOS apparait
----------------------écran DOS------------------------------------------
Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\WINDOWS\system32>SET MeeRR=11 - Division par zéro

--------------------------------------------------------------------------

puis en reprenant la main dans la fenêtre DOS pour verifier, je passe set M
pour que DOS me retourne la valeur de la variable MeeRR

------------------------écran DOS----------------------------------------
Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\WINDOWS\system32>SET MeeRR=11 - Division par zéro

C:\WINDOWS\system32>set M
MeeRR=11 - Division par zéro

C:\WINDOWS\system32>
--------------------------------------------------------------------------

la variable DOS MeeRR devrait etre recuperable par ton programme de lancement non?

autrement la je calle , je ne vois plus comment t'aider

[Coin]

à vous deux,

ProgElecT,

Ton code fonctionne bien quand on le prend brut....
J'ai même créé l'exécutable, puis le lancer à partir d'une fenêtre DOS, lorsque j'appuie sur mon bouton 2 le message est bien retourné dans la Fenêtre DOS.

En revanche si je veux l'adapter comme mes programmes, là ça ne foctionne plus, aucun message n'apparait dans la fenêtre DOS, et le processus reste actif.

Voici ma modif :

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
23
24
25
26
Private Sub form_load()
Dim A As Integer, B As Integer, C As Integer
Dim Msg$
A = 10: B = 0
On Error Resume Next
C = A / B
If Err <> 0 Then
MsgBox "erreur"
 Msg$ = CStr(Err.Number) & " - " & Err.Description
 Err.Clear
 Msg$ = Msg$ & " Appli " & Me.Caption
 Msg$ = "SET MeeRR=" & Msg$
 DoEvents
 
 On Error GoTo GestErr
 AppActivate "cmd.exe", True
 SendKeys Msg$ & Chr$(13), True
 Label1 = "C'est fait"
 
End If
End
Exit Sub
GestErr:
Label1 = "pas bon"
End
End Sub

Biensûr je crée un exécutable que je lance à partir d'une fenêtre DOS, et là ça ne marche pas....

Est-ce que tu vois pourquoi?

Merci.

Coin.

[ProgElecT]

Si le programme boucle, c'est que le nom du titre de la fenêtre DOS appelé par AppActivate n'est pas bon.
Il faudrait être sûr du nom du titre de la fenêtre DOS, surtout que AppActivate "TitreFenetre", True, conduit a repeter indefiniment la commande AppActivate.
Une idée , comme sa, resterait peut être une possibilité de faire rechercher le titre de cette fenêtre DOS par le programme qui à créé l'erreur, a condition qu'il n'y ai qu'une seul fenêtre DOS en cours, ou au moins un mot du titre soit connue .... .
Le titre de la fenêtre DOS est-il toujours le même, ou un mot apparet-il toujours dans ce titre?

[Coin]

Le problème ne vient pas du nom de la fenêtre DOS, car lorsque je cré un exécutable de ton programme (pas charger dans le load)) cela fonctionne :
Le message apparaît dans la fenêtre dos (d'où j'ai lancé l'exécutable) quand j'appuie sur le bouton 2.

Le problème viendrai plus du fait de mettre cette instruction dans le sub load du formulaire !!!

Est ce que le faite de mettre l'instruction dans le load me ferai boucler mon programme.....

Coin.

[ProgElecT]

Tous se qui est dans dans Form_Load met le dans une sub que tu appels dans Form_Load, pour voir, je suis un peu trop occupé pour l'instant pour faire l'essais