找回密码
 加入
搜索
查看: 3617|回复: 7

[网络通信] 求控制网卡下载 上传流量的源码

  [复制链接]
发表于 2010-3-21 17:05:43 | 显示全部楼层 |阅读模式
求控制网卡下载 上传流量的源码
发表于 2010-3-21 17:07:10 | 显示全部楼层
流量限制吗?
 楼主| 发表于 2010-3-21 17:07:38 | 显示全部楼层
恩  是的!!·
发表于 2010-3-21 18:40:25 | 显示全部楼层
恩  是的!!·
rojie3698 发表于 2010-3-21 17:07


au3没法写底层驱动吧?
发表于 2010-3-21 23:50:17 | 显示全部楼层
本帖最后由 lynfr8 于 2010-3-21 23:53 编辑
While 1
$s1=0
$s2=0
$strComputer = "." 
$wbemServices = ObjGet("winmgmts:\" & $strComputer & "\root\cimv2") 
$wbemObjectSet= $wbemServices.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
For $wbemObject In $wbemObjectSet 
$s1=$s1+$wbemObject.BytesReceivedPerSec
Next
sleep(1000)
$strComputer = "." 
$wbemServices = ObjGet("winmgmts:\" & $strComputer & "\root\cimv2") 
$wbemObjectSet= $wbemServices.ExecQuery("Select * from Win32_PerfRawData_Tcpip_NetworkInterface")
For $wbemObject In $wbemObjectSet 
$s2=$s2+$wbemObject.BytesReceivedPerSec
Next
$dd=$s2-$s1
MsgBox(1,"提示","每秒流量:"&$dd,10)
sleep(10)
WEnd

也许这段代码能帮助楼主
开一进程每一秒统计流量
再结合流量单位转换一下
当流量总和达到楼主初设定的值就触发既定事件(例如关机)
对这方面不熟悉只能这样给个简单答案了
请参考:
网络流量单位bps与系统单位byte转换
发表于 2010-3-22 10:34:08 | 显示全部楼层
5L的代码不错
发表于 2010-3-22 11:24:08 | 显示全部楼层
谢谢分享!!
发表于 2010-4-1 11:25:46 | 显示全部楼层
建议使用IP Helper API
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-6-2 02:55 , Processed in 0.091570 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表