1、你刷网络刷的越多，你访问的网络地址会存放网络路由器缓存中，下次访问直接缓冲区命中。访问速度比从外存中检索快几个数量级！
2、你刷网络刷的越多，占用宽带越多。IPS会动态平衡网络宽带，你得到实际可用带宽就会越多。
3、下面的小程序占用资源不多，但可以保持你的网络高激活状态，你使用网络效率会提高。
4、调高发包数量，减少发包时间间隔，会提高资源消耗。但对当下主流计算机来说，毛毛雨。
5、下面小程序可以在office系列办公软件中的VBA中使用！WPS系列，支持VBA的也可以！不过，wps可能远程删除你的代码！
我发现网络越刷越快，从开始的100兆变成200多兆了！越刷越兴奋！1000兆带宽，现在刷到200多兆了！还有潜力！
ISP耍流氓的原因，就是不想让它们的带宽被占用，同时推广他们电视机顶盒！电视机顶盒收费且很滥！你要的资源他们没有，他们提供的资源少且收费！
我们没有办法，只能浪费你点带宽喽！
本小程序只会占用带宽的小区，不写硬盘，只存内存，随存随消！当下电脑，不会是影响性能！
ISP用我们的光猫、用我们的电力、用我们的算力来封锁我们！
我们就用这个小程序来消耗它的带宽！可以随时调节带宽占用程序，不影响个人上网体验、玩游戏。
如果调整到一个数字，发现网断了！马上查看路由器，如果能正常响应，哪是光猫超负载了。如果是路由器不响应，哪是路由器超负载了。
光猫超负载解决方案：将光猫由路由器模式改成桥接模式。个人改不了，因为isp不会给你光猫的超级用户口令，你可以电话客服，让他们给你改！如果不给你改，只有投诉了，渠道很多。坚持投诉，基本能给你改！
路由器超负载解决方案：路由器改成AP模式，然后用电脑拨号，怎么刷网络都刷不死！只会给你限速，不会断网！路由器改成AP模式【这是常用光猫拨号，个人路由器常用设置方式，这样设置效率较高，但绝大数还是把个人路由器设置成路由模式，双层路由，效率低下】，大概率会光猫超负荷，此时只要改光猫为桥接方式，电脑拨号，百刷不死，愉快的旅程开始！
下面是程序：
文件名：frmmain.frm。文件名可任意，扩展名不能变！
VERSION 5.00
Begin VB.Form frmmain
ClientHeight = 3285
ClientLeft = 120
ClientTop = 465
ClientWidth = 6195
Icon = "frmmain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3285
ScaleWidth = 6195
StartUpPosition = 2 '屏幕中心
Begin VB.VScrollBar VScroll1
Height = 2535
Left = 5760
Max = 200
Min = 1
TabIndex = 2
Top = 0
Value = 10
Width = 375
End
Begin VB.HScrollBar HScroll1
Height = 495
Left = 120
Max = 1000
TabIndex = 0
TabStop = 0 'False
Top = 2640
Value = 100
Width = 5535
End
Begin VB.Timer Timer1
Left = 3960
Top = 2520
End
Begin VB.Label Label5
Caption = "你的外网IP："
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 855
Left = 360
TabIndex = 6
Top = 120
Width = 4335
End
Begin VB.Label Label4
Caption = "测试你的宽带与猫"
BeginProperty Font
Name = "微软雅黑"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 855
Left = 360
TabIndex = 5
Top = 960
Width = 4695
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 375
Left = 5040
TabIndex = 4
Top = 1560
Width = 615
End
Begin VB.Label Label2
Caption = "每次发包"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1935
Left = 5280
TabIndex = 3
Top = 0
Width = 375
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "发送间隔（毫秒）"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 495
Left = 0
TabIndex = 1
Top = 2040
Width = 5655
End
Begin VB.Menu mnuMain
Caption = "\-"
Visible = 0 'False
Begin VB.Menu mnuM
Caption = "显示"
Index = 0
End
Begin VB.Menu mnuM
Caption = "退出"
Index = 1
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H2
Private Const NIM_MODIFY = &H1
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
Dim dbltimer As Double
Dim oHTML() As Object
Private Sub Form_Load()
Dim sIP As String
Dim ni As NOTIFYICONDATA
dbltimer = Timer
Label5.Caption = "正在取外网IP…………"
With ni
.cbSize = Len(ni)
.hIcon = Me.Icon
.uCallbackMessage = WM_MOUSEMOVE
.szTip = "测试网速,双击显示！" + vbNullChar
.uID = 1
.hwnd = Me.hwnd
.uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
End With
Call Shell_NotifyIcon(NIM_ADD, ni)
ReDim oHTML(Val(VScroll1.Value) - 1)
Call HScroll1_Scroll
Call VScroll1_Scroll
Timer1.Interval = HScroll1.Value
Me.Hide
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Me.Hide
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
If (Not Me.Visible) Then
If Button = vbLeftButton Then
Me.PopupMenu mnuMain
ElseIf Button = vbRightButton Then
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim ii As Long, ni As NOTIFYICONDATA
Timer1.Enabled = False
For ii = LBound(oHTML) To UBound(oHTML)
Set oHTML(ii) = Nothing
DoEvents
Next
With ni
.cbSize = Len(ni)
.hIcon = Me.Icon
.uCallbackMessage = WM_MOUSEMOVE
.szTip = "测试网速"
.uID = 1
.hwnd = Me.hwnd
.uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
End With
Call Shell_NotifyIcon(NIM_DELETE, ni)
End Sub
Private Sub HScroll1_Change()
Call HScroll1_Scroll
Timer1.Enabled = False
Timer1.Interval = HScroll1.Value
Timer1.Enabled = True
End Sub
Private Sub HScroll1_Scroll()
Label1.Caption = "发送间隔（毫秒）: " & HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Call VScroll1_Scroll
End Sub
Private Sub VScroll1_Scroll()
Label3.Caption = VScroll1.Value
End Sub
Private Sub mnuM_Click(Index As Integer)
Select Case Index
Case 0
Me.Visible = True
Me.WindowState = vbNormal
Me.Show
Case 1
Unload Me
End Select
End Sub
Private Sub Timer1_Timer()
If Me.Label5.Caption = "正在取外网IP…………" Then
Dim sIP As String
sIP = internetDownLoad("https://myip.ipip.net")
Label5.Caption = "你的外网IP：" + Mid(sIP, InStr(1, sIP, "：") + 1)
Exit Sub
End If
Dim ii As Long, sUrl(8) As String, ij As Long
sUrl(0) = "https://wjjhyf.eu5.org"
sUrl(1) = "https://yandex.com/search/?text=wjjhyf.eu5.org"
sUrl(2) = "https://www.sogou.com/tx?ie=utf8&pid=&query=wjjhyf.eu5.org"
sUrl(3) = "https://yz.m.sm.cn/s?q=wjjhyf.eu5.org"
sUrl(4) = "https://www.chinaso.com/newssearch/all/allResults?q=wjjhyf.eu5.org"
sUrl(5) = "https://so.toutiao.com/search?keyword=wjjhyf.eu5.org"
sUrl(6) = "https://cn.bing.com/search?q=wjjhyf.eu5.org"
sUrl(7) = "https://www.so.com/s?q=wjjhyf.eu5.org"
sUrl(8) = "https://www.baidu.com/#&ie={inputEncoding}&wd=wjjhyf.eu5.org"
If UBound(oHTML) + 1 < VScroll1.Value Then
ReDim Preserve oHTML(VScroll1.Value - 1)
End If
For ii = LBound(oHTML) To VScroll1.Value - 1 ' UBound(oHTML)
If oHTML(ii) Is Nothing Then
Set oHTML(ii) = CreateObject("Msxml2.ServerXMLHTTP")
End If
ij = (UBound(sUrl) + 1) * Rnd()
ij = IIf(ij > UBound(sUrl), UBound(sUrl), ij)
On Error Resume Next
oHTML(ii).Open "Get", sUrl(ij), True
oHTML(ii).send
On Error GoTo 0
DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
Next
Me.Caption = Format(Now, "yyyy.mm.dd hh:mm:ss") & " " & Format(DateAdd("s", Abs(Int(Timer - dbltimer)), Date), "hh:mm:ss") & " " & Int((Timer - Int(Timer)) * 100)
End Sub
frmmain.frx可有可无，它只是存放了一个ICO（图标）
frmMain.frm、frmMain.frx下载，免积分https://download.csdn.net/download/wjjhyf/89711294
编译需要一个开发环境：VB6。
vb6，免积分VB6开发环境下载https://download.csdn.net/download/wjjhyf/89711236
使用方法：
1、下载vb6开发环境，一路下一步完成
2、用管理员身份运行VB6
3、新建一个工程
4、删除默认的form1.frm
5、插入frmMain.frm
6、编译代码
7、运行编译好的程序
调节每次发包数和发送间隔！happy旅程开始！
打开任务管理，查看宽带占用情况。
当调整每次发包数和发送间隔时，带宽占用不再增加，不是程序问题，而是链接被拒绝了。DDOS就是这个意思！
当你问ISP提供商，给你的并发链接数是多少，他会告诉没有限制！哪是放P。个人宽带与企业宽带的差别：同样1000兆的光纤，企业为什么比你的体验好。主要原因企业宽带的并发链接数比个人宽带高多。还有一个原因，企业宽带上行速度也是1000兆，而个人宽带只有30~60兆。您问ISP上行速度是多少，99%会告诉你不知道！
放出编译好的程序，介意勿下！https://wjjhyf.eu5.org