要想网络速度快，后台多刷刷网络

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