Verificar Packets de Entrada/Saida por Segundo

Explicando o Sistema:Você irá verificar o numero de Pakcets que o servidor envia(Saída) e os que o servidor recebe(Entrada) a cada segundo.

Serve~Side

Na frmServer crie um CommandButon com as seguintes propriedades:

Código:


Name: bntPackets
Caption: Packets

De 2 cliques no BntPackets e adicione isso dentro:

Código:

If fraPackets.Visible = True Then
fraPackets.Visible = False
tmrPackets.Enabled = False
Else
fraPackets.Visible = True
tmrPackets.Enabled = True
End If

Na frmServer crie um Timer com as seguintes propriedades:

Código:

Name: tmrPackets
Enabled: False
Interval: 1000

De 2 cliques no tmrPackets e adicione isso dentro:
           

Código:

lblPacketsSaida.Caption = Trim(STR(PacketsSaida))
            lblPacketsEntrada.Caption = Trim(STR(PacketsEntrada))
            PacketsSaida = 0
            PacketsEntrada = 0

Na frmServer crie uma Frame com as seguintes propriedades:

Código:

Name: fraPackets
Caption: Packets
Visible: False

Dentro da fraPackets adcione 4 Label entre essas 4 , DUAS não precisam de nome, apenas coloque as caption de :

Código:

Entrada/Sec:
Saída/Sec:

Agora nas outras 2 label crie com as seguintes propriedades:
Label 1:

Código:

Name: lblPacketsEntrada
Caption: xxxx
ForeColor: Vermelho

Label 2:

Código:

Name: lblPacketsSaida
Caption: xxxx
ForeColor: Vermelho

Coloque a Label lblPacketsEntrada e lblPacketsSaida respectivamente ao lado das correspondentes captions de Entrada/Sec: e Saida/Sec:

Ficara mais ou menos assim:

Spoiler:

Agora procure por:

Código:

Global PlayerI As Byte

Abaixo adicione:

Código:

Public PacketsEntrada As Long
Public PacketsSaida As Long

Na Sub SendDataTo(ByVal Index As Long, ByVal Data As String) acima de End Sub adicione:

Código:

PacketsSaida = PacketsSaida + 1

Procure por:

Código:

' Parse's Without Being Online

Abaixo adicione:

Código:

PacketsEntrada = PacketsEntrada + 1

Créditos: Del Piero