, bienvenido a SpikeL Foro.
Índice
Últimas imágenes
Registrarse
ConectarseComando /PING
2 participantes
Página 1 de 1.
Comando /PING
por santi55 Lun Dic 20, 2010 4:07 pm
CLIENTE
1-- Agregamos al modulo declaraciones:
Public TimerPing(1 To 2) As Long
2- Buscamos:
AuxCmd = UCase$(Left$(sdData, 5))
Y debajo agregamos:
If AuxCmd = "/PING" Then TimerPing(1) = GetTickCount()
3- Arriba de:
Case "LOGGED"
Ponemos:
Case "BUENO"
TimerPing(2) = GetTickCount()
Call AddtoRichTextBox(frmMain.RecTxt, "Ping: " & (TimerPing(2) - TimerPing(1)) & " ms", 255, 0, 0, True, False, False)
SERVIDOR
1- Buscamos:
Case "/DEST"
Y arriba ponemos:
Case "/PING"
Call SendData(SendTarget.ToIndex, UserIndex, 0, "BUENO")
Exit Sub
Fin
1-- Agregamos al modulo declaraciones:
Public TimerPing(1 To 2) As Long
2- Buscamos:
AuxCmd = UCase$(Left$(sdData, 5))
Y debajo agregamos:
If AuxCmd = "/PING" Then TimerPing(1) = GetTickCount()
3- Arriba de:
Case "LOGGED"
Ponemos:
Case "BUENO"
TimerPing(2) = GetTickCount()
Call AddtoRichTextBox(frmMain.RecTxt, "Ping: " & (TimerPing(2) - TimerPing(1)) & " ms", 255, 0, 0, True, False, False)
SERVIDOR
1- Buscamos:
Case "/DEST"
Y arriba ponemos:
Case "/PING"
Call SendData(SendTarget.ToIndex, UserIndex, 0, "BUENO")
Exit Sub
Fin
santi55Nivel 12 
Advertencias : 1
Mensajes : 156
Puntos : 49387
Reputación : 1
Fecha de inscripción : 19/12/2010
País : 
Re: Comando /PING
por Nogha.- Lun Dic 20, 2010 4:17 pm
Me parece perfecto la verdad, le pones mucho laburo a esta sección. Te felicito.
Nogha.-Nivel 23 
-
Advertencias : - Mensajes : 512 Puntos : 49649 Reputación : 15
Sexo : 
Fecha de inscripción : 13/12/2010
Edad : 28 País : 
Localización : The House.- -
santi55Nivel 12 - Advertencias : 1 Mensajes : 156 Puntos : 49387 Reputación : 1 Fecha de inscripción : 19/12/2010 País :
Temas similaresPágina 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.|
|
|