[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!
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!