Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Humor
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-03-2007
TJose TJose is offline
Miembro
 
Registrado: may 2003
Posts: 162
Poder: 24
TJose Va por buen camino
El código fuente de Windows 2003

No se de donde viene, me lo pasó un amigo, está excelente.


Código:
#include "Win30.h"
#include "Win31.h"
#include "Win95.h"
#include "Win98.h"
#include "
Win2000.h"
#include "AlgoMas.h"
#include "CodigoAntiguo.h"
#include "NormasDeBillGates.h"
#include "CosasDeRelleno.h"
#include "Monopoly.h"

#define INSTALAR TODO_SIN_EXCEPCION_Y_A_LO_BESTIA

#define CASCAR -5483021548692487811456214478251

static char Escritorio[16000000]; /* 16 Mb */
static char Accesorios[8000000]; /* 8 Mb */
static char Explorer4[4000000]; /* 4 Mb */
static char ProgramasDeUsuario[2000000]; /* 2 Mb */

static char MemoriaLibre[2000000]; /* 2 Mb */

int main() {
   while (NoCasque()) {
     MostrarMensajeCopyright();
     MostrarMensajeNormasBillGates();
     DesactivarBotonReset();
     BucleParaNoHacerNada();


     if (PRIMERA_INSTALACION) {
       while (TamanyoDiscoSwap() < ESPACIO_WIN * 5)) {
         Ocupar50MbParaDiscoDeSwap();
         BucleParaNoHacerNada();
         }

       EliminarSistemaDeArchivosHPFS();

       EliminarCualquierRastroDeOS2();
       DeshabilitarInstalacionDeNetscape();
       DeshabilitarInstalacionDeRealPlayer();

       if (QuedaAlgunRastroSospechoso()) ColgarSistema();
     }


     MostrarAlgunaCosaBonitaPeroInutil();
     MostrarMensajeCopyrightOtraVez();
     BucleParaNoHacerNada();
     HacerVerQueHaceAlgo();

     if (SigueSinCascar()) {
       MostrarMensajeCopyrightOtraVez();

       BucleParaNoHacerNada();
       EjecutarWin31();

       if (AunSigueSinCascar()) EjecutarWin30();

       BucleParaNoHacerNada_1();
       BucleParaNoHacerNada_2();
       BucleParaNoHacerNada_3();


       BucleParaNoHacerNada_Etcetera();
     }

     if (UsuarioNoAceptaWindowsComoAlgoUtil()) goto
           VETE_A_SABER_DONDE;

     if (SeHaDetectadoCache()) DeshabilitarCache();

     if (CPU_Rapida()) {

       EstablecerEstadosDeEspera(MUCHISIMOS);
       EstablecerRaton(VELOCIDAD, MUY_LENTO);
       EstablecerRaton(ACCION, DESPLAZARSE_A_SALTOS);
       EstablecerRaton(REACCION, A_VECES);
       EstablecerTeclado(VELOCIDAD_PARPADEO, MUY_LENTO);

       EstablecerTeclado(VELOCIDAD_REPETICION, LENTO);
     }

/* printf("Bienvenido a Windows 3.0"); */
/* printf("Bienvenido a Windows 3.1"); */
/* printf("Bienvenido a Windows 95"); */

/* printf("Bienvenido a Windows 98"); */
/* printf("Bienvenido a Windows 2000"); */
printf("Bienvenido a Windows 2003");

     if (CPU != INTEL) {
       DeshabilitarRaton();

       DesconfigurarTeclado();
       ColgarSistema(INDICADOR_MSDOS);
     }
     else {
       MemoriaDeSistema = open("a:\swp0001.swp", O_CREATE);

       while (NoHayaSuficienteEspacioEnDisco()) printf("Inserte nuevo

                                                 disco en la unidad A:");
     }

     while (SE_NOS_CANTEN_LOS_HUEVOS) {
       sleep(5000);
       ObtenerEntradaUsuario();
       sleep(5000);

       ReaccionarAPeticionUsuario();
     }

     if (ObtenerNumeroAlAzar() != BINGOOOO)
       GenerarErrorDeProteccionGeneral();

/* Fin de bucle principal */
}

/* Finalizar sesion */
if (AunNoHaCascadoDelTodo()) {

   if (ObtenerOtroNumeroAlAzar() != BINGOOOO) {
     MandarExplorerALaMierda();

     if (HayAlgoAbierto()) {
       Accion = MostrarMensaje("?Desea guardar los datos?");
       if (Accion == SI) GuardarDatos_JAJAJA();

       MandarloTodoAlCarajo();
     }
   }

   printf("Windows se esta cerrando");
   while (HAYA_PRISA) sleep(5000);
   if (UsuarioYaLlegaTardeDondeTeniaQueIr()) printf("Ahora puede

                                                  apagar el equipo.");
   }

return ((int)((long)((float)((double)((re double)CASCAR)))));

}
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Microsoft revelará el código fuente de Windows para satisfacer exigencias de la CE Chente(rMan) Noticias 8 27-01-2006 09:18:08
Desactivar windows 2003 AngelMarvin Windows 0 12-01-2005 06:06:06
El CNI tendrá acceso al código fuente de Windows ... kinobi Noticias 6 21-01-2004 21:13:35
Delphi con Windows 2003 kukinn Varios 1 06-10-2003 17:06:42
Código fuente de windows 95 SnaKe Humor 1 03-06-2003 15:49:46


La franja horaria es GMT +2. Ahora son las 06:52:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi