vb网速代码（wifi提升网速代码）

本篇文章给大家谈谈vb网速代码，以及wifi提升网速代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、vb6如何测试网速
• 2、VB.NET 如何 计算或获取 计算机当前网速
• 3、Windows cmd dos vbs 获取本地网速
• 4、怎样用vb编一个可以限自己网速的软件

vb6如何测试网速

如果是测试联通宽带网速，可登陆网上营业厅 ，首页点击“我的联通”-“便民服务”-“宽带测速”，即可根据页面提示信息进行测速。也可以使用宽带号码登录联通手机营业厅客户端——查询——宽带业务查询——立即测试（“宽带测速”业务暂不支持免流）。

温馨提示：以上路径以实际显示信息为准。

VB.NET 如何 计算或获取 计算机当前网速

这不是VB可以写的 得写驱动 涉及C++的范围 别**自己***，这玩意真的很难写！

Windows cmd dos vbs 获取本地网速

'现成的，这个是去年写的，下面是ADSL版的,路由版的到原帖下载

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

' * 网络流量统计(ADSL).vbs

By: FastSLZ 2009-1-28

首次发布与 bbs.bathome.cn *

' * ;hl=zh-CN

*

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

'特别提醒：本脚本必须在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 vbTabvbTabvbTab"上传：" CheckSize((S2-S1)/Input) "/s" _

vbTab vbTabvbTabvbTab"合计：" 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

怎样用vb编一个可以限自己网速的软件

……在系统基层弄一个程序，像一个瓶颈，卡住网络数据，一点一点送出去，就达到了限速。

VB有点难度

关于vb网速代码和wifi提升网速代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。