Ich habe ein Kommandozeilen-Programm welches mir eine Rückgabe liefert.
Ziel ist, jede x-te Sekunde das Programm aufzurufen und den Rückgabewert zu verarbeiten.
Ich habe hier schon was gefunden was funktioniert. (Testweise mit ping)
Option Explicit
Sub GetProgOutput()
Dim objShell As Object, objExec As Object
Dim strStdout As String, intExitCode As Integer
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping localhost")
strStdout = objExec.StdOut.ReadAll
intExitCode = objExec.ExitCode
Set objExec = Nothing
Set objShell = Nothing
MsgBox strStdout
End Sub
Allerdings wird dabei jedes mal das Fenster der Anwendung geöffnet, was leider etwas nervig ist.Gibt es eine Möglichkeit das "Aufpoppen" der Anwendung zu verhindern?
Schon mal vielen Dank für die hoffentlich rege Beteiligung :D