你用什么来写?
如果是 Winsock 控件的话
声明两个变量
Dim Count as Double
Dim Mytime as Double
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Count=Count+bytesTotal
End Sub
放个 Timer 控件
Timer1.Interval 设为 1000
当开始下载时 Timer1.Enabled=True
Private Sub Timer1_Timer()
Mytime+Mytime+1
这时 Count 里存放的就是每秒的流量了
Count=0 '不清 0 也可以 Count/MyTime = 平均流量
End Sub