batch internetz-speedtest gesucht

    Public Function ExecuteCommand(ByVal filePath As String, ByVal arguments As String) As String

        Dim p As Process

        p = New Process()

        p.StartInfo.FileName = filePath

        p.StartInfo.Arguments = arguments

        p.StartInfo.UseShellExecute = False

        p.StartInfo.RedirectStandardInput = True

        p.StartInfo.RedirectStandardOutput = True

        p.Start()

        p.WaitForExit()

        Return p.StandardOutput.ReadToEnd()

    End Function

    Private Sub myEvent()

        Dim stdout As String = ExecuteCommand("C:/speedtest.exe", "-r")

        Dim symbols As String() = stdout.Split("|")

        Dim day As String = Now.ToString("dd.MM.yyyy")

        Dim tim As String = Now.ToString("HH:mm:ss")

        symbols(0) = tim

        Dim line As String = day + vbTab + Join(symbols, vbTab)

        Dim FILE_NAME As String = "D:/speedtest.csv"

        If System.IO.File.Exists(FILE_NAME) = True Then

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

            objWriter.Write(line)

            objWriter.Close()

        Else

            MsgBox("File Does Not Exist")

        End If

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        myEvent()

    End Sub

    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.

        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

        myEvent()

    End Sub