Mantenimiento para servidores

[SERVIDOR] Mantenimiento para servidores

Para el Servidor

Bueno, Gus me pregunto sobre este codigo asi que se los dejo a todos ustedes. El codigo es simple.
Primero vamos a declaraciones y ponemos lo siguiente:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">' [Tavo]</span></li><li style="" class="li1">    <span style="color: #b1b100;">Public</span> Encendido <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2">    <span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> Pass <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ffffff;">"Tu Contraseña"</span></li><li style="" class="li1"><span style="color: #808080;">' [Tavo]</span></li></ol></div>[/vb]

Ahora en TCP, HandleData() buscamos

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Select <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">4</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Y arriba agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">    <span style="color: #808080;">' [Tavo]</span></li><li style="" class="li2">        <span style="color: #b1b100;">If</span> rdata = <span style="color: #ffffff;">"CSSA~"</span> + Pass <span style="color: #b1b100;">Then</span> <span style="color: #808080;">' Change Server State by Admin</span></li><li style="" class="li1">            Encendido = <span style="color: #b1b100;">Not</span> Encendido</li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2">    <span style="color: #808080;">' [/Tavo]</span></li></ol></div>[/vb]

Despues, dentor del TCP buscamos ConnectUser y arriba del sub (Despues de que se declare, obvio) ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">' [Tavo]</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> Encendido <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"ERREl servidor esta actualmente en mantenimiento"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #808080;">' [Tavo]</span></li></ol></div>[/vb]

Tambien hacemos lo mismo en ConnectNewUser().

Con esto lo que hacemos es que nadie se pueda conectar, ahora, hacemos un pequeño programa en VB, lo he hecho yo mismo (Liberado con licensia GPL), para todo aquel que lo quiere esta aqui: <a href="http://www.subelo.net/files/HostControl.zip" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.subelo.net/files/HostControl.zip</a>

Saludos!

no lo entiendo

Lo que hace en si es hacer que el servidor no tenga relacion externa con clientes. Esto puede servidr si se quiere modificar algo en el servidor o se quiere "Cerrar" pero sin cerrar la aplicacion.

Saludos!

Tavo dijo:

Lo que hace en si es hacer que el servidor no tenga relacion externa con clientes. Esto puede servidr si se quiere modificar algo en el servidor o se quiere "Cerrar" pero sin cerrar la aplicacion.

Saludos!

Haz clic para expandir...

vos decis que para empresas de hosting en caso de que quieran hacer un reset en vez de complicarse cerrando la app se cierra con este programa?

No, no, solo bloquea que se conecte con otro cliente. Esto es por si se quiere cambiar los DATs por ejemplo y no hacer tanto quilombo. Igual, si se usa un escritorio remoto funcionaria mejor.

pero

pero es un codigo útil y bien elaborado buen trabajo tavo