vc++获取网卡链接速率

vc加加获取网卡链接速率快。根据查询相关资料信息，应用vc加加编程程序，可以获取提升任务则胡管理器中的网络应用和连接速度，通过vc加加linux设置加速网卡的速度及模式，网卡链接宽腔速率快。vc加加是慎盯衫开发工具包，是编程语言的程序。

第一种方法：

1

用鼠标点击电脑右下角的小电脑，如图，就会出现这个图面，这里就可以看到电脑的速度了。如图

END

第二种方法：

1

左键点击网上邻居，点击属性，

2

再双胡裤做击宽带连接，如图，也可以看到网速度。

END

第三纯培种方法：

1

按住：Ctrl+Alt+Delete，

点击连网，也可以看到网裤衡络速度，

END

第四种方法：

打开360，如图，点击测流量，

再点击测网速：如图

过一会还会出现网速度的曲线图

' *==============================================================================*

' * 网络流量统计(ADSL).vbs By: FastSLZ 2009-1-28首次发布与 bathome *

' **

' *==============================================================================*

'特别提醒：本脚本必须在Administrator账户，且必须通过杀毒软件授权下才能正常运行！

Set WH = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * From Win32_DesktopMonitor")

For Each aWH in WH

H = aWH.ScreenHeight :W = aWH.ScreenWidth :TW = aWH.ScreenWidth/8

Next

Set WH = Nothing

If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols="&TW &"&Title 网络流量统计By: FastSLZ bbs.bathome.cn &&Cscript.exe //NoLogo "&Chr(34)&Wscript.ScriptFullName &Chr(34)&Chr(34)),3

Wscript.Quit

End If

Showy=vbCrLf &vbCrLf &vbCrLf &vbCrLf &vbCrLf

Input=InputBox(Showy &"请输入刷新间隔时间（单位秒）"&vbCrLf &"间隔时间越长统计数据越精确侍戚", "BY: fastslz","2")

Input=Int(Input)

If Len(Input) = 0 Then:Input = 1:End If

If Len(Input) >= 2 Then:WScript.Quit:End If

InputS = Input*1000

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Name = "WAN [PPP_SLIP] Interface"肢谈皮

Do

Set A = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface WHERE Name = '"&Name &"'")

For Each B In A

R1 = B.BytesReceivedPersec

S1 = B.BytesSentPersec

T1 = B.BytesTotalPersec

Next

WScript.Sleep(InputS)

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set A = WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface WHERE Name = '"&Name &"'")

For Each B In A

R2 = B.BytesReceivedPersec

S2 = B.BytesSentPersec

T2 = B.BytesTotalPersec

Next

WScript.Echo vbTab&"下载：" &CheckSize((R2-R1)/Input) &"/s" _

&vbTab&vbTab&vbTab&vbTab&"上传：" &CheckSize((S2-S1)/历差Input) &"/s" _

&vbTab&vbTab&vbTab&vbTab&"合计：" &CheckSize((T2-T1)/Input) &"/s"

Loop

Function CheckSize(SZ)

On Error Resume Next

If SZ =>1073741824 Then

SZ = FormatNumber(SZ/1073741824) &"GB"

ElseIf SZ =>1048576 Then

SZ = FormatNumber(SZ/1048576) &"MB"

ElseIf SZ =>1024 Then

SZ = FormatNumber(SZ/1024) &"KB"

Else

SZ = SZ &"字节"

End If

CheckSize=SZ

End Function

'''''''''''我的原创网络流量统计(路由版).vbs，原帖地址短消息给你，悬赏分加这号上

---