Question

我希望借助计时器在标签中显示互联网连接速度。我写道：

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim myNA() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces

    lblConnectStatus.Text = "NET CONNECTION SPEED : " & myNA(0).Speed / 1000000 & " Kbps."
End Sub

这显示7.2 Kbps。在标签中并且始终保持不变。谁能帮忙..

Answer 1

您必须在互联网上拥有可以实际下载并使用数学来确定需要多长时间的内容。

有一些方法可以做到这一点，但你的功能（获取数据）越低，它就越准确。 IE浏览器，如果你使用类似浏览器控件的东西，你的结果会很低，甚至是不可理解的，因为你不知道你下载的确切字节数。

最简单的可能是使用像My.Computer.Network.DownloadFile()这样的东西（简单，但不是最准确的）来下载已知的大文件，比如PDF，并使用像这样的东西来计算时间：

dim dStart as DateTime = Now
...Download Code
dim ts as TimeSpan = Now.Subtract(dStart)

然后你可以考虑你的文件大小和下载时间来确定速度。

Answer 2

添加以下控件：

Webbrowser1
Button1，text =“获取网速”
Label1，text =“0 Bytes per second”

将此代码粘贴到程序中

  Dim t a datetime
 Sub bclk handles button1.click
  Webbrowser1.navigate("stackoverflow.com")
  T= now
 End sub

 Sub wbdoccomplete handles   webbeowser1.documentcomplete
  Dim tspan =now.subtract(t)
  Dim speed as double = (webbrowser1.                        Documenttext.length/tspan.totalseconds)
  Label1.text = speed & " Bytes per second"
End sub

如何检查网络连接速度

2 个答案: