让计算机自动给你换墙纸
作者:刘波 来源:yesky 添加时间:2006-5-21 16:01:041. 首先,找几幅比较适合做墙纸的BMP格式的图片,我用的是8张,存于C:\WallPic目录下。
文件名分别为Wall0.bmp、Wall7.bmp。
2.把8张图片中的任一张图片以NowWall.bmp文件名复制到Windows目录下,并在Windows下将其设成墙纸。
3.然后写以下几行代码。本人用的是QB,你也可以用VB、C等其它高级语言。
DIM m AS INTEGER
RANDOMIZE TIMER 以时间为随机种子数
m = INT(RND * 8) 随机产生一个0--7的整数
复制C:\WallPic\Wallm.bmp到C:\Windows\NowWall.bmp,加上Y参数,并关闭“1 file(s) copyed”的显示。
SHELL "copy c:\wallpic\wall" + RIGHT$(STR$(m), LEN(STR$(m))-1) + ".bmp c:\windows\NowWall.bmp/y>nul"
以Chpic.bas存盘,编译成Chpic.exe文件,复制到Windows目录下。
4. 在Windows目录下的WinStart.bat中加上ChPic.exe就行了,如果不存在这个文件则可以自己新建一个。
大功告成!赶快去试一试你的成果。每次启动都是一个不同的桌面墙纸!
因为Chpic.exe并非驻留内存的程序,不占用系统资源,几乎不影响启动速度,物美价廉吧!
站内搜索