随机更换壁纸的小程序

Author: 谢军华 Date: 1997-01-01

　　每次启动ＷＩＮＤＯＷＳ总有一段时间要面对桌面上的壁纸，哪怕是自己喜欢的一幅，如果长时间摆在面前，也会给人单调乏味的感觉。但如果每次都随机出现一幅，感觉就会完全不同。利用下面的ＢＡＳＩＣ小程序可实现这一功能。假设ＷＩＮＤＯＷＳ实际采用的壁纸文件名为ＣＯＶＥＲ．ＢＭＰ，你精心制作或收集到五个备用壁纸文件ＣＯＶＥＲ１～５．ＢＭＰ，下面的程序将从五个备用文件中随机的抽取一个，并与ＣＯＶＥＲ．ＢＭＰ交换文件名，这就实现了随机更换壁纸文件的功能。
　　程序如下：
　　ＳＨＥＬＬ　“ＲＥＮ　ＣＯＶＥＲ．ＢＭＰ　ＰＡＳＳ．ＢＭＰ”
　　ＲＡＮＤＯＭＩＺＥ　ＴＩＭＥＲ
　　Ａ＝ＲＮＤ（１）＊５
　　ＩＦ　Ａ＜１　ＴＨＥＮ　ＧＯＴＯ　１００
　　ＩＦ　Ａ＜２　ＴＨＥＮ　ＧＯＴＯ　２００
　　ＩＦ　Ａ＜３　ＴＨＥＮ　ＧＯＴＯ　３００
　　ＩＦ　Ａ＜４　ＴＨＥＮ　ＧＯＴＯ　４００
　　ＧＯＴＯ　５００
　　１００　ＳＨＥＬＬ　“ＲＥＮ　ＣＯＶＥＲ１．ＢＭＰ　ＣＯＶＥＲ．ＢＭＰ”
　　ＳＨＥＬＬ　“ＲＥＮ　ＰＡＳＳ．ＢＭＰ　ＣＯＶＥＲ１．ＢＭＰ”
　　ＥＮＤ
　　２００　ＳＨＥＬＬ　“ＲＥＮ　ＣＯＶＥＲ２．ＢＭＰ　ＣＯＶＥＲ．ＢＭＰ”
　　ＳＨＥＬＬ　“ＲＥＮ　ＰＡＳＳ．ＢＭＰ　ＣＯＶＥＲ２．ＢＭＰ”
　　ＥＮＤ
　　３００　ＳＨＥＬＬ　“ＲＥＮ　ＣＯＶＥＲ３．ＢＭＰ　ＣＯＶＥＲ．ＢＭＰ”
　　ＳＨＥＬＬ　“ＲＥＮ　ＰＡＳＳ．ＢＭＰ　ＣＯＶＥＲ３．ＢＭＰ”
　　ＥＮＤ
　　４００　ＳＨＥＬＬ　“ＲＥＮ　ＣＯＶＥＲ４．ＢＭＰ　ＣＯＶＥＲ．ＢＭＰ”
　　ＳＨＥＬＬ　“ＲＥＮ　ＰＡＳＳ．ＢＭＰ　ＣＯＶＥＲ４．ＢＭＰ”
　　ＥＮＤ
　　５００　ＳＨＥＬＬ　"ＲＥＮ　ＣＯＶＥＲ５．ＢＭＰ　ＣＯＶＥＲ．ＢＭＰ"
　　　ＳＨＥＬＬ　"ＲＥＮ　ＰＡＳＳ．ＢＭＰ　ＣＯＶＥＲ５．ＢＭＰ"
　　ＥＮＤ
　　以上程序经编译后生成的可执行文件存放于Ｗｉｎｄｏｗｓ目录下，并置于启动组内即可。