现在正在做FTP程序，遇到一个难题！希望兄弟姐妹们能帮小弟这个忙！！先谢谢了！！

Question

现在在做FTP程序，我现在想得到系统的网络传输的速率
因为我想算上传、下载的时间(能向WINDOWS那样下载文件时可以看到时间和进度条)
知道的就请回复一下:)
不知道的就进来捧个场！
谢谢 有源代码最好！
希望能给我回信！
[email protected]

Answer 1

你用什么来写？
如果是 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

Answer 2

我用的是ftp.ocx控件
现在就是想得到网速1

Answer 3

21code.com
上有完整原代码.