Kendim basit bir mantık kurdum. Tam olarak netice alınmasada, işe yarıyor.
Dim İlkGiriş As DateTime
Dim SonBitiş As TimeSpan
Bunlar değişkenlerimiz.
İlkGiriş = Now
WebBrowser1.Navigate("https://www.maxigamerz.com")
If Me.Text < "2" Then
Label1.Text = "Bağlantı hızlı."
Else
Label1.Text = "Bağlantı yavaş."
End If
Bağlantıyı hesaplama için.
SonBitiş = Now - İlkGiriş
Me.Text = SonBitiş.TotalSeconds
WebBrowser'ın Document Completed event'ine.