[APORTE] Comando: /PING (0.11.5).

agush · 17-nov-2008, 11:15

Bueno este codigo consiste en que cuando vos pongas /PING te aparezca tu Ping en la consola del juego, ej :

Ping : 16
Ping : 17

empezemos :

CLIENTE

1-- Agregamos al modulo declaraciones:

Código:

Public TimerPing(1 To 2) As Long

2- Buscamos:

Código:

AuxCmd = UCase$(Left$(sdData, 5))

Y debajo agregamos:

Código:

If AuxCmd = "/PING" Then TimerPing(1) = GetTickCount()

3- Arriba de:

Código:

Case "LOGGED"

Ponemos:

Código:

 Case "BUENO"
            TimerPing(2) = GetTickCount()
            Call AddtoRichTextBox(frmMain.RecTxt, "Ping: " & (TimerPing(2) - TimerPing(1)) & " ms", 255, 0, 0, True, False, False)

SERVIDOR

1- Buscamos:

Código:

Case "/DEST"

Y arriba ponemos:

Código:

Case "/PING"
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "BUENO")
            Exit Sub

Codigo finalizado.-

Fuente : Rubio Gs- Zone.-

azgal · 17-nov-2008, 11:58

Creo que no está como Case "/DEST"

no está como If UCase$(Left$(rData, 5)) = "/DEST" ???

por que me tira error -.-

Saludos, espero respuestas.

(G)onza(h) · 17-nov-2008, 13:09

Voy a ver si me anda, saludos.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Secciones de Interés