轻松制作动态桌面

谭李师 
2001年 30期

　　相信大家都希望将自己的爱机打扮得漂漂亮亮，更希望有一个与众不同的桌面。然而，当你面对辛辛苦苦收集的众多爱不释手的图片要挑选一幅作为桌面的时候，是不是有一点难以取舍呢？没关系，我们让Windows自动帮你定时更换桌面。
　　#1　　随机更换图片
　　　　一、将所有图片转换为Jpg格式（或其他任何IE支持的格式），并拷贝到一个目录下面，比如拷贝到“C:＼My Documents＼My Pictures＼，然后重新命名为1．jpg，2．jpg…”。
　　　　二、打开记事本，写下如下HTML源代码：
　　　　＜HTML＞
　　　　＜HEAD＞
　　　　＜TITLE＞＜/TITLE＞
　　　　＜META HTTP-EQUIV=“refresh” content=300＞
　　　　＜script language=vbscript＞
　　　　＜!--
　　　　dim iIndex
　　　　randomize
　　　　iIndex= int（rnd*29+1）　
　　　　document．write“＜img src=C:＼MYDOCU.1＼MYPICT.1＼”
　　　　document．write Cstr（iIndex）&“．jpg left=0 top=0 width=1020 height=835 border=0＞”
　　　　--＞
　　　　＜/script＞
　　　　＜/head＞
　　　　＜BODY bgcolor=#000000＞
　　　　&nbsp＜/BODY＞
　　　　＜/HTML＞
　　　　上面这段语句中，content=300一句为设定图片更换的时间（300秒），int（rnd*29+1）中的29是实际图片文件名最大编号，也就是图片的个数，left=0 top=0 width=1020和height=835则设定图片显示位置和大小。
　　　　三、将这个文件保存为*．htm格式，然后在“显示”属性面板“背景”页中，点击“浏览”按钮调用刚刚保存的文件，就能够实现定时更换桌面了。
　　#1　　顺序更换图片
　　　　以下面的HTML文件作为桌面，就可以实现顺序更换图片的目的。
　　　　＜HTML＞
　　　　＜HEAD＞
　　　　＜TITLE＞＜/TITLE＞
　　　　＜META HTTP-EQUIV=“refresh” content=300＞
　　　　＜script language=vbscript＞
　　　　＜!--
　　　　Sub SetCookie（sName，sValue）　
　　　　document．cookie = sName & “=” & trim（sValue）　
　　　　end sub
　　　　function GetCookie sName　
　　　　dim aCookie
　　　　dim temp
　　　　aCookie =document．cookie
　　　　temp=instr（1，aCookie，“=”）　
　　　　GetCookie=right（aCookie，（len（aCookie）-temp））　　
　　　　if GetCookie=“” then GetCookie=“1”
　　　　end function
　　　　dim iIndex
　　　　dcument．write“＜img src=D:＼MYDOCU~1＼MYPICT~1＼”
　　　　iIndex=GetCookie“ImgIndex”　
　　　　document．write Cstr（iIndex）&“．jpg left=0 top=0 width=1020 height=835 border=0＞”
　　　　iIndex=CStr（CInt（iIndex）+1）　
　　　　if iIndex=“30”then iIndex=“1”
　　　　上面一句中的30为图片数目加1
　　　　SetCookie“ImgIndex”iIndex
　　　　--＞
　　　　＜/script＞
　　　　＜/head＞
　　　　＜BODY bgcolor=#000000＞
　　　　&nbsp＜/BODY＞
　　　　＜/HTML＞ 
 