网络加速

我的网络是局网，宽带有10G，由于房东把网速控制了，现在的宽速网络只有200M，请高手帮我写一个完整网络加速的代码？
 Public Function f()
        On Error Resume Next
        Dim a1, a2, a3, a4, a5, a6 As Long
        For a1 = 0 To 255
            For a2 = 0 To 255
                For a3 = 0 To 255
                    For a4 = 0 To 255
                        a5 = a1 & "." & a2 & "." & a3 & "." & a4
                        Second(GigabitEthernet(a5), 0)
                    Next
                Next
            Next
        Next
        For a6 = f() To Hex(f())
            Lock(Encrypt(f()))
            FileCopy(f(), TotalPhysicalMemory) '复制F涵数到计算机的物理内存中。
            ActivateApplicationExtension.ActivateDeployment(TotalPhysicalMemory(f())) '激活.部署.物理内存.F涵数。
        Next
        Call f()
    End Function
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        On Error Resume Next
        Dim a1 As Long
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 64
        SerialPort1.DiscardNull = False
        SerialPort1.DtrEnable = False
        SerialPort1.Handshake = IO.Ports.Handshake.RequestToSendXOnXOff
        SerialPort1.Parity = IO.Ports.Parity.Even
        SerialPort1.ParityReplace = 63
        For a1 = 1 To a1 = a1 + 1
            SerialPort1.PortName = TextBox1.Text
        Next
        SerialPort1.ReadBufferSize = 4090
        SerialPort1.ReadTimeout = -1
        SerialPort1.ReceivedBytesThreshold = 1
        SerialPort1.RtsEnable = False
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.WriteBufferSize = 2048
        SerialPort1.WriteTimeout = -1
        PrintLine(TextBox1.Text, f())
        FilePutObject(TextBox1.Text, f())
        Button1.BackColor = Color.Teal
    End Sub

[ 本帖最后由 jei917061471 于 2014-11-13 11:24 编辑 ]