[shell & VB] lancer une commande depuis VB

Salut,

J'ai un exécutable qui prend deux paramètres en entrée et me renvoie un entier.
Je souhaite l'appeler depuis mon code VB. Je ne sais pas comment lancer cette exécutable et surtout comment récupérer mon résultat (= l'entier renvoyé par l'exe).

Sous DOS, je fais:
MonExecutable.exe arg1 arg2 <ENTREE>
---> entier

comment faire pour lancer cette commande et récupérer mon résultat dans un Integer et pouvoir ce dernier dans le reste de programme VB.

Merci

Un sujet presque identique a été abordé dans le forum VBA Excel:
http://www.developpez.net/forums/sho...ll#post3444087

ça peut déjà t'éclairer un peu.

A essayer

Copie le code suivant dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 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 Const STILL_ACTIVE = &H103 Private Const PROCESS_QUERY_INFORMATION = &H400     Public Function LancePgm(PgmName As String) As Long Dim hTask As Long Dim hProcess As Long Dim ExitCode As Long hTask = Shell(PgmName, vbNormalFocus) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hTask) Do Sleep 100 DoEvents GetExitCodeProcess hProcess, ExitCode Loop While ExitCode = STILL_ACTIVE 'on attend que l'appi est active LancePgm = ExitCode End Function

---

Vois le fonctionnement de shell pour la syntaxe de PgmName

Est ce que tu peux m'expliquer ton code STP? Je suis débutant en VB et il y a des trucs qui m'échappent...

Sinon moi j'ai pensé à ceci

Code:

---

1 2 3

Shell "cmd.exe" & "/c MonExe.exe arg1 arg2 > c:FichierResultat.txt"

---

Cela me permet d'obtenir mon résultat (un entier) écrit dans le fichier MonResultat.txt. Y'a-t-il un moyen de le récupérer dans une variable locale de la fonction VB qui lance cette commande? un truc du genre:

Code:

---

1 2 3

// c'est une syntaxe algorithmique, je ne sais pas si c'est faisable ou pas en VB MaVariable Locale = Shell "cmd.exe" & "/c MonExe.exe arg1 arg2 "

---

Merci

Si tu es débutant, sache que ce que tu demandes est du niveau expert. En effet, s'il est assez facile de lancer un exécutable, recupérer l' ERRELEVEL ne peut se faire que via les api de windows.
La fonction shell renvoie un identificateur du programme lancé, ce qui ne te sert à rien.

Avec le module que j'ai donné

Code:

---

MaVariable Locale = LancePgm("MonExe.exe arg1 arg2 ")

---