櫻り箜釋﹀ァ - 2005-12-5 21:49:00
冬天到了，叶子掉了，大雁们排成B字形或者T字形往南飞，我却还要在严寒中偎
依着冰冷的电脑忧郁地玩着键盘。作为一个优秀的程序员，我们可以用程序解决除了老婆
以外的所有问题，何况是小小的寒风呢。下面我们就用C来写一个取暖器。
理论上的分析是，电脑是耗费电力的，这部分电除了发光发声以外，都用在发热上面
了。简单说来，CPU，硬盘，乃至内存都会因为工作而发热。考虑到程序的通用性，我们不
考虑显卡声卡光驱，我们用内存读写来让内存发热，用大量计算来使CPU发热，用文件读写
来加热硬盘，最后可以让电脑成为一个小小的取暖器。
让CPU发热的代码如下：
DWORD WINAPI CPUHotter(PVOID para)
{
while(1);
return 1;
}
让内存发热的代码如下：
DWORD WINAPI MemHotter(PVOID para)
{
char *Mem = new char[10000];
while(1)
{
for(int i=0;i<10000;i++)
{
Mem = 0x99;
}
}
return 1;
}
最后是让硬盘发热的代码：
DWORD WINAPI DiskHotter(PVOID para)
{
FILE *fp;
fp = fopen("_", "a+");
while(1)
{
for(int i=0;i<10000;i++)
{
fwrite("1", 1, 1, fp);
}
rewind(fp);
}
return 1;
}
main函数创建上面三个线程就可以了。本代码在Athlon 1.26 + 256M + VC 6.0的环境下编
译并运行成功，Windows 2000下运行了三天，室内温度持续上升中，拟申请国家专利。受
到开源思想的感化，特放出源代码，希望给各位带来一个温暖的冬天。
谢谢。
福娃宝宝 - 2005-12-5 22:19:00
沙发。。。
看不懂
福娃贝贝 - 2005-12-5 22:21:00
偶把电源风扇给拆下来了。
櫻り箜釋﹀ァ - 2005-12-5 22:25:00
这是一段驱逐苍蝇的代码：
<start>
<mian program>
dim 苍蝇 as long
dim 发出噪声次数 as long
if 发现苍蝇 then beep ’开始发声
发出噪声次数=发出噪声次数+1
if 发出噪声次数>1234567 then 发出噪声次数=1
else
if 苍蝇跑出网吧 then stop beep '停止发声
else
继续发声
end if
end sub
<end program>
櫻り箜釋﹀ァ - 2005-12-5 22:25:00
楼上所有代码。经本人测试。可以顺利通过。
测试平台：
CPU：XP 2500+ 0.13 巴顿核心 512K CACHE
主板：微星 KT3V
内存：HY DDR333 256M
硬盘：迈托 40G 7200转
显卡：GF4 64M DDR
光驱：16X DVD
电源： 300W
windows2000 pro
福娃贝贝 - 2005-12-5 22:26:00
为什么不是“苍蝇跑出机箱”？
叶子弟弟 - 2005-12-5 22:27:00
。。。。汗
櫻り箜釋﹀ァ - 2005-12-5 22:29:00
| 引用: |
【福娃贝贝的贴子】为什么不是“苍蝇跑出机箱”？
........................... |
因为苍蝇不在机箱中....
diablo2004 - 2005-12-6 5:41:00
飘过~~~~~~~~~~~~~
谁盗了我的ID - 2005-12-6 7:55:00
都挺厉害
我接着飞向太阳吧
diablo2004 - 2005-12-6 9:11:00
你去网上下个病毒样本大全,然后解压缩,保证5秒中之内,电脑变空调!!!
RubyBird - 2005-12-6 9:16:00
学习中
芊芊2266 - 2005-12-6 9:45:00
晕！
雨水蒙蒙 - 2005-12-6 10:00:00
晕
谁盗了我的ID - 2005-12-6 10:08:00
| 引用: |
【水蒸气S的贴子】
555,飞向太阳干嘛呀?
应向太阳高歌一曲,来向我好好学习啊
呵呵
........................... |
呵呵
接近太阳的冰
融掉了
嘿嘿
什么都没有了
loulm - 2005-12-6 10:32:00
。。。。汗
水蒸气S - 2005-12-6 10:35:00
| 引用: |
【粉红鼠的贴子】强
........................... |
向大姐姐学习中呢
努力灌水
福娃欢欢 - 2005-12-6 12:39:00
灌水代码：
.
福娃贝贝 - 2005-12-6 12:49:00
等级:略知一二
香水蛋蛋 - 2005-12-6 12:56:00
顶了。
没信心 - 2005-12-6 13:01:00
偶把显示器搬进主机箱里头。在里头上网，真暖和...
糟！键盘和鼠标还在外面，等偶搬进来再灌.........
NIANWEI - 2005-12-6 13:21:00
路过
Susanna - 2005-12-7 5:58:00
晕
© 2000 - 2026 Rising Corp. Ltd.