[VB6] Ping con Shell

[logan78]

Ciao,
qualcuno mi sa dire la giusta sintassi da utilizzare:

Cosi funziona perfettamente:

ping = Shell("cmd /k ping  10.0.0.159 > c:\ping1.txt", vbHide)

Ma se io volessi inserire l'ip in una variabile come faccio ad inserirla all'interno:

Dim IPESEMPIO as String

ping = Shell("cmd /k ping IPESEMPIO > c:\ping1.txt", vbHide)

Così non mi funziona

[kalosjo]

Ovviamente la devi concatenare....

Dim IPESEMPIO as String
IPESEMPIO="192.168.0.1"

ping = Shell("cmd /k ping " & IPESEMPIO & " > c:\ping1.txt", vbHide)

[logan78]

Grazie avevo già provato ma non mi funzionava sicuramente sbagliavo qualcosa Ancora Grazie

[logan78]

Esiste un modo per attendere che il ping sia finito prima di continuare ad eseguire la Sub

[kalosjo]

Si, esiste un modo per attendere la chiusura di un processo prima di continuare, aspetta che lo posto.

[alka]

Originariamente inviato da kalosjo
Si, esiste un modo per attendere la chiusura di un processo prima di continuare, aspetta che lo posto.

Scusa, ma perchè devi preannunciare ogni risposta che stai per dare? :rollo:

[kalosjo]

Dichiarazioni

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Const INFINITE = &HFFFF      '  Timeout infinito
Public Const SYNCHRONIZE = &H100000

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

utilizzo (DaEseguire è il programma da eseguire con la shell , in questo caso il ping)

        process_id = Shell(DaEseguire, vbNormalFocus)
        DoEvents
        process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
        If process_handle <> 0 Then
            WaitForSingleObject process_handle, INFINITE
            CloseHandle process_handle
        End If

[logan78]

Ottima soluzione,
però il fatto è che quando finisce di pingare rimane la shell aperta e questo mi manda in loop infinito.

Non sarebbe possibileriuscire a chiuderla quando il ping e finito

[kalosjo]

Invece di cmd /k, usa cmd /c

[logan78]

sei stupefacente GRAZIE