54572
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t54572%22%2C%22tid%22%3A%2254572%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%220%22%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
XXXXXt 获得本机网速
很久以前弄得。没啥难度
可能是测速算法问题。感觉和实际有些偏差
![QQ截图20130213121704.png]()
Dim properties As IPGlobalProperties = XXXXXXXXXXXXXXXXXXXXXtIPGlobalProperties()
Dim ipstat As IPGlobalStatistics = XXXXXXXXXXXXXtIPv4GlobalStatistics()
Dim nics As NetworkInterface() = XXXXXXXXXXXXXXXXXXXtAllNetworkInterfaces()
For Each adapter As NetworkInterface In nics
Dim ipv4Statistics As IPv4InterfaceStatistics = XXXXXXXXXXtIPv4Statistics()
k = k + 1
speedS(k) = XXXXXXXXXXXXXXXXXtesSent
speedR(k) = XXXXXXXXXXXXXXXXXtesReceived
Next
可能是测速算法问题。感觉和实际有些偏差
Dim properties As IPGlobalProperties = XXXXXXXXXXXXXXXXXXXXXtIPGlobalProperties()
Dim ipstat As IPGlobalStatistics = XXXXXXXXXXXXXtIPv4GlobalStatistics()
Dim nics As NetworkInterface() = XXXXXXXXXXXXXXXXXXXtAllNetworkInterfaces()
For Each adapter As NetworkInterface In nics
Dim ipv4Statistics As IPv4InterfaceStatistics = XXXXXXXXXXtIPv4Statistics()
k = k + 1
speedS(k) = XXXXXXXXXXXXXXXXXtesSent
speedR(k) = XXXXXXXXXXXXXXXXXtesReceived
Next
