Verificar Packets de Entrada/Saida por Segundo

por Del Piero Sex 05 Jul 2013, 10:35

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: