Ping

[famlam]

Hoe kun je de verbindingssnelheid krijgen? (pingen dus)

Dim url As New System.Uri("http://helpmij.nl/")
Label1.Text = My.Computer.Network.Ping(url)

geeft als resultaat "True" (en een foute url geeft 'False'). Maar hoe kan ik de 'vertraging in milliseconde' krijgen?

 

[Pizara]

        Static Start As DateTime
        Static [Stop] As DateTime

        Dim url As New System.Uri("http://www.microsoft.com/")

        Start = Now()
        My.Computer.Network.Ping(url)
        [Stop] = Now()

        Console.WriteLine([Stop].Subtract(Start).TotalMilliseconds.ToString)

 

[famlam]

Bedankt, het is opgelost. Maar wat ik me nu nog afvraag: wat is/waarvoor dient de time-out?
my.computer.network.ping("123.135.147.159",500)

 

[Ellasar]

Dat is de waarde waarboven de applicatie het een timeout vind. Dus zodra de ping opdracht lamger dan 500 ms duurt betekend dat een timeout