comme sous DOS

Question

Bonjour,

je voulais savoir si il était possible d'envoyer le résultat d'une commande DOS avec shell dans une variable.

Sous DOS, si je fais par exemple ping xxx.xxx.xxx.xxx >c:\ping.log, j'aurais le résultat du ping dans mon fochier log.

En fait ce que je voudrai faire c'est un peu ca, mais le résultat dans une variable vb6.

merci d'avance pour vos réponses.

cs_frop01 · Answer

si tu y arrive avec la commande shell et le ping xxx.xxx.xxx.xxx >c:\ping.log

tu n'as qu'à lire le fichier ping.log avec vb (en vb )

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

mathieu57100 · Answer

c'est pour apprendre que je demande ca...
alors si quelqu'un sait...

cs_EBArtSoft · Answer

Option Explicit

Private Const NORMAL_PRIORITY_CLASS As Long = &H20&
Private Const STARTF_USESHOWWINDOW  As Long = &H1
Private Const STARTF_USESTDHANDLES  As Long = &H100&

Private Type SECURITY_ATTRIBUTES
    nLength                 As Long
    lpSecurityDescriptor    As Long
    bInheritHandle          As Long
End Type

Private Type STARTUPINFO
    cb                  As Long
    lpReserved          As Long
    lpDesktop           As Long
    lpTitle             As Long
    dwX                 As Long
    dwY                 As Long
    dwXSize             As Long
    dwYSize             As Long
    dwXCountChars       As Long
    dwYCountChars       As Long
    dwFillAttribute     As Long
    dwFlags             As Long
    wShowWindow         As Integer
    cbReserved2         As Integer
    lpReserved2         As Long
    hStdInput           As Long
    hStdOutput          As Long
    hStdError           As Long
End Type
      
Private Type PROCESS_INFORMATION
    hProcess            As Long
    hThread             As Long
    dwProcessId         As Long
    dwThreadID          As Long
End Type

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, 

ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, 

lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, 

phWritePipe As Long, lpPipeAttributes As Any, ByVal nSize As Long) As 

Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As 

Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal 

lpApplicationName As String, ByVal lpCommandLine As String, 

lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal 

bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal 

lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo 

As Any, lpProcessInformation As Any) As Long

Function ShellEx(ByVal PathName As String, Optional ByVal CommandLine 
As String vbNullString, Optional ByVal WindowStyle As VbAppWinStyle 

vbMinimizedFocus) As String
    Dim proc            As PROCESS_INFORMATION
    Dim sa              As SECURITY_ATTRIBUTES
    Dim start           As STARTUPINFO
    Dim sBuffer         As String * 256
    Dim hReadPipe       As Long
    Dim hWritePipe      As Long
    Dim ret             As Long
    Dim lngBytesRead    As Long
    sa.nLength = Len(sa)
    sa.bInheritHandle = True
    If (CreatePipe(hReadPipe, hWritePipe, sa, 0) = 0) Then
        MsgBox "CreatePipe failed. Error: " & Err.LastDllError
        Exit Function
    End If
    start.cb = Len(start)
    start.hStdError = hWritePipe
    start.hStdOutput = hWritePipe
    start.wShowWindow = WindowStyle
    start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
    If (CreateProcessA(PathName, CommandLine, sa, sa, True, 

NORMAL_PRIORITY_CLASS, 0, 0, start, proc) = 0) Then
        MsgBox "CreateProcess failed. Error: " & Err.LastDllError
        Exit Function
    End If
    CloseHandle hWritePipe
    Do
        ret = ReadFile(hReadPipe, sBuffer, 256, lngBytesRead, 0&)
        ShellEx = ShellEx & Left$(sBuffer, lngBytesRead)
    Loop While ret
    CloseHandle proc.hProcess
    CloseHandle proc.hThread
    CloseHandle hReadPipe
End Function

Private Sub Command1_Click()
    MsgBox ShellEx("c:\windows\system32
etstat.exe")
End Sub

@+

E.B.

MoiOlivier · Answer

Ben voyons...

>mathieu57100
On se demanderait bien pourquoi tu n'y as pas pensé plus tôt !
Distrait va !

Hihi...

Merci EB.

mathieu57100 · Answer

merci pour la réponse EBArtSoft....
j'ai dit que je voulais apprendre, mais j'ai oublié de dire que j'étais débutant... c'est ma faute.

y a pa s une solution plus simple?
sous DOS, un truc equivalent tient sur une ligne...

cs_EBArtSoft · Answer

Avec cent balles et un mars  ;)  ? lol

@+

E.B.

Renfield · Answer

Ou tu ecris via un Pipe, ou tu ecris dans un fichier que tu lis par la suite.

Au fait, tu fais encore beaucoup de choses, sous Dos ?

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

mathieu57100 · Answer

je sais pas ce que sais q'un pipe sous vb6

mathieu57100 · Answer

ok pour le pipe, j'ai vu ce que c'est...
je part en quete d'un ptit tuto...

Renfield · Answer

EB t'en a donné un exemple tout prêt ;-)

(nota, ce n'est pas spécifique à VB6.... au contraire, dirais-je même.... c'est Made In Windows)

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

mrdep1978 · Answer

Ce code fonctionne nickel mais dans mon cas, le retour n'est pas celui que j'attends (forc&#233;ment :( )
Je fais un :

Dim ls_ret as String
ls_ret = ShellEx("toto.cmd")

Dans mon toto.cmd (je simplifie), j'ai

ECHO TOTO
IF %ERRORLEVEL% GTR 1 EXIT 1
EXIT 0

Le script se d&#233;roule correctement mais j'obtiens ls_ret=""

Or je voudrais avoir &#224; l'arriv&#233;e ls_ret=1 ou ls_ret=0

Pensez-vous qu'il y ait un param&#232;tre qc dans les createprocess, createpipe (voire en DOS)... ou les retours de commandes DOS sont trop simplistes pour pouvoir g&#233;rer &#231;a ?

Comme > sous DOS

11 réponses

Discussions similaires