Enviador de usuarios online a una WEBAO

Ir abajo

Enviador de usuarios online a una WEBAO

Mensaje por LabestiaHumanax el 15/7/2014, 9:36 pm

Enviador de usuarios online a una WEBAO


Tal cual como indica el titulo comenzamos.

Código server

Ponemos un timer en frmmain cualquier intervalo y nombre.
code:

Código:
Dim nada As Integer 'esto solo lo ponemos para que no salte error de compilación.
Call WriteVar(IniPath & "\Dat\UsersOn.sabe", "USERSON", "USUARIOS", tuvariable + nada)

RECUERDEN CAMBIAR DONDE DICE "Tuvariable" POR LA VARIABLE DE SU SERVIDOR EN ESTE CASO, FénixAO SERÍA "NumUsers" sin comillas.

Ahora nos bajamos este archivo y simplemente lo pegamos en la carpeta del servidor:
http://ultrashare.net/hosting/fl/b5466aedb2

Listo servidor.

Pasamos a la web.

Código:
<?php
    $key = '7874';
    $serverip = '192.168.1.1';
    $serverport = '7666';
    $archivo = 'estatus.html';
  
    $showrecord = true;
    $showstate = true;
  
    $segcode = $_GET['keyp'];
  
    if ($segcode == $key) {
  
    $usersonl = $_GET['min'];
  
    if ($showstate == true) {
        $checkstate = fsockopen($serverip,$serverport);
      
            if (!$checkstate) {
                /*OFFLINE */
                $online=true;
            } else {
                /* ONLINE */
                $online=false;
                fclose($checkstate);
            }
        }
        
        if ($online == true) {
            
        } else {
            
        }
    }

     $contenidoformateado = $contenidoformateado.'<strong>'.$usersonl.'</strong>';
    if ($showrecord == true) {
    }
    if($fp = fopen($archivo,"w+")){
        fwrite($fp,stripslashes($contenidoformateado));
    }
?>

En ese código PHP deberan cambiar donde dice 192.168.1.1 por la ip del servidor al igual que el puerto 7666

En su web en PUBLIC_HTML o donde tengan su ruta de inicio suben el archivo con la extesión php.

Para activarlo tan solo apreten el botón enviar datos y listo. ojala y les sirva saludos!

LabestiaHumanax
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 1
Localización : labestia
Fecha de inscripción : 15/07/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: Enviador de usuarios online a una WEBAO

Mensaje por Brian Zbrun el 16/9/2014, 2:33 pm

Muy bueno sirve mucho Razz Wink

Gracias por el aporte Razz

PD:Sirve mucho para los servidores y para los que no saben html :p
avatar
Brian Zbrun
Nivel 6
Nivel 6

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 388
Edad : 19
Localización : Santa Fe
Fecha de inscripción : 04/12/2011

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.