信息来源： JIURL

/**********************************************
Author: JIURL
Email: jiurl@mail.china.com
Homepage1: http://jiurl.yeah.net
Homepage2: http://jiurl.cosoft.org.cn/jiurl
/**********************************************
#include <stdio.h>
#include <windows.h>
#include <stdlib.h>

void main()
{
HANDLE hOut;
hOut=GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);

int i;
int interval=10000;

while(1){
SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
if(rand()%10==0) SetConsoleTextAttribute(hOut,FOREGROUND_INTENSITY|FOREGROUND_GREEN);
if(rand()%2) printf(" ");
else printf("%d",rand()%2);
for(i=0;i<interval;i++)
{
__asm nop
}
}

return;
}

效果图


源代码及程序下载地址
http://jiurl.nease.net/cn/document/ConsoleCool+/ConsoleCool+.zip

俺来贴个delphi的：


//仿照JIURL的程序写的
//Sirius QQ：53297714
//05.09.10
program ConsoleCool_Delphi;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

var
  hOut:THandle;
  Interval,i:integer;
begin
  Interval:=10000;
  hOut:=GetStdHandle(STD_OUTPUT_HANDLE);
    SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
  Randomize;
  While True do
   begin
    SetConsoleTextAttribute(hOut,FOREGROUND_GREEN);
    if (Random(10000) mod 10)=0 then
      SetConsoleTextAttribute(hOut,FOREGROUND_INTENSITY or FOREGROUND_GREEN);
    if (Random(10000) mod 2)=1 then Write(&#39; &#39;)
    else Write(Random(10000) mod 2);
    for i:=0 to Interval do
      asm nop;
      end;
   end;
end.