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

于 2024-09-08 09:58:24 发布
阅读量1.6k 收藏 19
点赞数 23
文章标签： 智能路由器 网络
本人发表的原创，可以随意使用、传播，但本人不对副本承担任何责任；详见:https://wjjhyf.eu5.org
本文链接：https://blog.youkuaiyun.com/wjjhyf/article/details/142020974
版权

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下载，免积分icon-default.png?t=O83Ahttps://download.youkuaiyun.com/download/wjjhyf/89711294

编译需要一个开发环境：VB6。

vb6，免积分VB6开发环境下载icon-default.png?t=O83Ahttps://download.youkuaiyun.com/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

wjjhyf
关注
【回眸】近期牛客网刷刷刷（二）C（++）&字符串&Linux专题
tianbutian_的博客
01-13 521
String的值是不可变的，这就导致每次对String的操作都会生成新的String对象，不仅效率低下，而且浪费大量优先的内存空间；locate的速度比find快，它并不是真的查找，而是查数据库，一般文件数据库在/var/lib/slocate/slocate.db中，所以locate的查找并不是实时的，而是以数据库的更新为准。/sbin，s 就是 Super User 的意思，是 Superuser Binaries（超级用户的二进制文件）的缩写，这里存放的是系统管理员使用的系统管理程序。
远端访问体系的三大神器：前置机、跳板机与堡垒机，它们有啥本质区别？
最新发布
网络技术联盟站
03-30 154
在网络安全和系统管理的浩瀚世界里，前置机、跳板机和堡垒机就像三位性格迥异的侠客，各自手握独特技能，守护着数字疆域的不同角落。它们的名字听起来有点像科幻电影里的角色，但实际上，它们在企业网络架构中扮演的角色可一点都不含糊。要弄清楚这三者的区别，简直就像在解一场烧脑的侦探谜案——既要看表面功能，又得深挖内在逻辑，还要结合实战场景来一探究竟！今天，我们就带上放大镜🔍，一字一句地把这三位“侠客”的底细摸透，给你一篇满满干货的深度剖析，包你读完直呼过瘾！😏。
linux终端刷新网络命令,Linux下查看网络状态的方法
weixin_33765530的博客
04-29 668
当我的设备在机房，懒得去查看网线连接情况；或者设备在远端，没有条件让眼睛亲临现场，我需要在终端查看设备网络接口的物理连接状态。基于此种场景，我就了解了几种关于命令查看网络状态的方法。1. ifconfigifconfig是Linux系统自带命令，可以查看接口配置IP的情况、临时配置接口IP(永久配置可以使用yast或者修改/etc/sysconfig/nework/ifcfg-eth0)、查看网卡...
刷新网络
benchuspx的博客
03-22 2143
1、有很多刷新方法： 重启浏览器； sudo apt update刷新； 重启网络服务： sudo /etc/init.d/networking restart 刷新DNS缓存： sudo systemd-resolve --flush-caches 重启电脑； 2、可以使用ping的方法看能否ping通。xxxx是网站名或者IP ping xxxxx 3、换用谷歌浏览器 ...
电信后台刷新端口有什么用_为什么你的端口不上户
weixin_39526564的博客
12-11 2181
现在通过互联网获客已经是我们的日常，但如何通过互联网进行高效的获客，一直是经纪人比较头疼的问题。有时候同样的端口(网站)，却能用出两个不同的结果。有的人一天到晚电话响个不停，有的人从付费到端口到期那一天一个电话都没有。针对两种不同的结果，有人抱怨端口不行，有人抱怨运气不好。在小编看来端口(网站)上不上户跟端口和运气无关！你在开通这个端口(网站)之前，你对这个端口的了解有多少？你每天在端口的投入有多...
获取每秒刷新的网络数据
Delesgues的博客
07-15 563
服务器上有一组每秒刷新一次的JSON格式的数据，通过WWW获取并使用JsonConvert解析，这里我使用的协程判断WWW完成数据读取后进行JSON解析工作，并在解析完成后再次开启协程，做到每次得到数据后一秒再次获取数据，实现刷新功能。 void Start() { if (Application.internetReachability == NetworkR...
CMD 命令刷新网卡
matteo_FH的博客
04-11 6507
windows 刷新网卡
nslookup命令反解ip_电脑网络基础知识：ipconfig/all命令及nslookupDns查询命令
weixin_39625162的博客
11-22 825
一、ipconfig/all的使用方法在电脑中通过命令提示符执行命令ipconfig可以查询电脑ip、mac等配置信息。ipconfig命令是调试计算机网络的常用命令，通常大家使用它显示计算机中网络适配器的IP地址、子网掩码及默认网关。下面，就跟大家介绍ipconfig命令的使用技巧。ipconfig命令怎么使用在我们的电脑上按win+R键，打开运行，输入cmd，点击确定，进去命令提示符命令电脑图...
C++后台开发学习路线
qq_42066648的博客
03-02 3098
C++后台开发学习路线 2.1 如何拿下BAT：我的学习路线 前言 **2019年对我而言必定是人生当中最重要的一年。因为实习的原因，我第一次体验了北京和上海的生活，匆匆且忙碌。这一年生活当中充斥着各种求职咨询，面试，做题，仿佛一夜回到了高三。不过，我是幸运的。从寒假实习开始到暑假实习再到秋招，一路以来我并没有体会到太多的挫折，一路高歌，最终也收获了我自己认为还不错的offer。也许是因为运气，也许是因为坚持，但是硕士这2年来我也经历了种种心酸和波折。我起初走过很多弯路，在无数个深夜里苦恼自己的无知和弱小，
【回眸】牛客网刷刷刷（三） Linux（续）&软件工程（专题）
tianbutian_的博客
01-17 593
近期的牛客网学习内容有Linux专题，以下记录一些笔试题中的Linux的知识点。
oVirt4.2开源虚拟化安装笔记5-制作离线安装包
Dexter's Laboratory
09-28 2796
 开始前唠叨两句 距离上一篇oVirt4.2开源虚拟化安装笔记已经过去5个月了，没想到现在机房跑的RHEVM居然真的粗事儿了。。。M跟H还有存储全部失联，状态都是无响应，网络是正常的，相互也能ping通，最后查engine的日志发现原来是5年前部署的时候生成的SSL证书有效期是5年，正好到期失效了。。。。失效了。。。。WTF！就是因为这个，所以导致所有的SSL通信中断。看来这次是真的要把红帽给...
Linux /dev/null详解
weixin_30546933的博客
07-01 464
常用的命令展示 /dev/null 和 /dev/zero的区别 1./dev/null:表示 的是一个黑洞，通常用于丢弃不需要的数据输出， 或者用于输入流的空文件 1.1 将无用的输出流写入到黑洞丢弃。 curl -Iwww.baidu.com 2>/dev/null | head -l 错误信息定位到黑洞...
提高手机上网速度的方法
碌人乘凉, 黎硕 --> Aerchi.com
01-21 271
手机用的时间长了，大家会发现自己GPRS的连接速度会变慢，清理了手机缓存也作用不大，其实，还有个办法可以提高手机的上网速度,就是拨打当地的 10086,转人工台，告诉对方，自己的手机连接速度变慢了，要求作一次GPRS的数据刷新，10086就会帮你在后台刷新一下你的GPRS，并且告诉你在15分种后左右开关机1次。 大家试一下,是不是速度提高了啊,呵呵,这是移动免费服务哦,有的地区移动帮你刷新...
检测网络端口和刷新本地DNS
唛惊
06-13 8253
cmd中检测远程的ip和端口是否处于监听状态第一步：使用ping命令测试远程的ip是否可连通在cmd中输入ping ip地址： 如果最后的统计信息中丢失率为0表示可以连通该ip地址。那么就可以进行下一步的测试该ip下的某一个端口是否开放的操作了。第二步：使用telnet测试远程某一个ip的端口是否开放为了安全起见，windows默认是不开启telnet客户端的，要通过控制面板—》程序–》启动或关闭...
实时监听网络状态并刷新当前界面
凯文欧巴的IT全攻略
05-19 1861
由于考虑到界面刷新比较麻烦,就只会用startActivity ,我想要做还是可以做出来的,各位朋友如果做出来欢迎在底下分享. 1. mainifest注册:  (注意不要再代码中起同样包名的action ,因为动态注册优先级高于静态注册,即非常驻广播优先级高于常驻广播) receiver android:name="com.xxx.broadcast.NetWorkCh
网页刷新方式
路漫漫的博客
02-20 501
1、reload 重新加载当前文档（刷新当前界面） document.location.reload([bForceGet]); bForceGet，可选参数，默认false,从客户端缓存中获取当前页；true,以GET方式，从服务端取最新的页面，相当于F5刷新 2、replace document.location.replace(url); ...
dos网络配置命令，从新获取ip刷新dns
xuejianyong的博客
08-19 7444
1.ipconfig/release使计算机将自己目前租用的IP地址交还给DHCP服务器（只在动态配置IP地址的机器上起作用）   2.ipconfig/renew向DHCP服务器申请新的IP地址，与上条命令一起使用（只在动态配置IP地址的机器上起作用）   3.ipconfig/displaydns显示DNS客户解析器缓存的内容，包括从本地主机文件预装载的记录以及由域名解
windows 上网重新刷新IP
热门推荐
软件工程小施同学 的专栏
09-24 1万+
具体操作步骤： 1、win+R，输入"cmd"并按回车键。 2、在命令提示符窗口中，输入：ipconfig，并按回车，该命令将返回你当前的IP地址。 3、在命令提示符窗口中，输入：ipconfig /release，并按回车。 4、在命令提示符窗口中，输入：ipconfig /renew，并按回车。你现在应该会得到一个新的IP地址了。要查看你的IP地址，再次输入"ipconfig"并按回车即可。 5、输入"exit"并按回车退出命令提示符。 参考： http://ask.zol.com.cn/x/4.
linux终端刷新网络命令,在Ubuntu Linux操作系统中重新启动网络的方法
weixin_32900811的博客
04-29 6491
你使用的是基于Ubuntu的Linux操作系统，然而有时似乎无法连接到网络，其实简单的重启可以修复一些问题。在本文中将介绍在Ubuntu和其他Linux发行版中重新启动网络的方法，以便你可以使用任何适合你需求的方法：在命令行中重新启动Ubuntu网络或通过GUI重启Ubuntu网络。使用命令行在Ubuntu Linux中重新启动网络如果你使用的是Ubuntu服务器版，则已经在终端中。如果使用的是桌...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值