关于自动更换xp桌面的壁纸。

最近有点烦恼,闲着闲着,我就想为啥我看到同样的桌面壁纸,每次看到不同的桌面壁纸,肯定可以给自己的新意,使得自己开始新的一天,对于我们从事电脑的人员,新的开始就是从见到最新的桌面。

 

于是有了下面的想法。

请看下面的壁纸每次登陆后自动更换壁纸的脚本:

注意事项:

自动切换的桌面壁纸只能支持 bmp 格式文件,切记、切记、切记.........

支持系统 为 window xp 系统, 其他系统没有测试过。

 

====================changewallpaper.bat=========

@ echo off

rem 需要更换壁纸文件
set w[0]="D:/WINDOWS/Web/myWallpaper/1_3.bmp"
set w[1]="D:/WINDOWS/Web/myWallpaper/IBM笔记本6.bmp"
set w[2]="D:/WINDOWS/Web/myWallpaper/LG笔记本.bmp"
set w[3]="D:/WINDOWS/Web/myWallpaper/Nec笔记本.bmp"
set w[4]="D:/WINDOWS/Web/myWallpaper/宏基笔记本1.bmp"
set w[5]="D:/WINDOWS/Web/myWallpaper/宏基笔记本2.bmp"
set w[6]="D:/WINDOWS/Web/myWallpaper/华硕Asus1.bmp"
set w[7]="D:/WINDOWS/Web/myWallpaper/宽屏 1.bmp"
set w[8]="D:/WINDOWS/Web/myWallpaper/宽屏 2.bmp"
set w[9]="D:/WINDOWS/Web/myWallpaper/宽屏 5.bmp"
set w[10]="D:/WINDOWS/Web/myWallpaper/明基笔记本.bmp"
set w[11]="D:/WINDOWS/Web/myWallpaper/苹果笔记本3.bmp"
set w[12]="D:/WINDOWS/Web/myWallpaper/索尼笔记本1.bmp"
set w[13]="D:/WINDOWS/Web/myWallpaper/索尼笔记本2.bmp"

rem  red file
rem  if exist changewallpaper.ini echo cunzai
set num=0;

rem 从文件中读取上次的配置的序号
for /f %%i in (changewallpaper.ini) do set num=%%i

 

if "%num%" == "0"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[0]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[0]% /f
)
if "%num%" == "1"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[1]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[1]% /f
)
if "%num%" == "2"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[2]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[2]% /f
)
if "%num%" == "3"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[3]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[3]% /f
)
if "%num%" == "4"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[4]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[4]% /f
)
if "%num%" == "5"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[5]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[5]% /f
)
if "%num%" == "6"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[6]% /f
)
if "%num%" == "7"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[7]% /f
)
if "%num%" == "8"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[8]% /f
)
if "%num%" == "9"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[9]% /f
)
if "%num%" == "10"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[10]% /f
)
if "%num%" == "11"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[11]% /f
)
if "%num%" == "12"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[12]% /f
)
if "%num%" == "13"  (
    echo reg add "hkcu/control panel/desktop" /v ConvertedWallpaper /d %w[6]% /f
        reg add "hkcu/control panel/desktop" /v Wallpaper /d %w[13]% /f
)
rem echo here!
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

rem set changewallpaper.ini
set /A num=%num%+1
rem echo here11!

rem  将下次需要更新的序号写入文件
if "%num%" == "14" (
 set num=0
)
rem echo here11!
echo %num% > changewallpaper.ini

exit

========================END OF CHANGEWALLPAPER.BAT=====================

请保持此文件为 changewallpaper.bat文件

在同级目录下面创建文件 changewallpaper.ini 文件。默认输入的内容如下:

 

========================CHANGEWALLPAPER.INI===========================

0

 

========================END OF CHANGEWALLPAPER.INI =====================

 

最后在将 changewallpaper.bat 配置到系统的作业计划任务当中。设定为系统启动自动运行。

 

至此实现了每次登陆系统,自动更换桌面壁纸功能。

 

闲来无事,自己动手搞的小玩意,希望大家喜欢。

 

对功能修改一下,并上传了相关的文件内容,大家可以到我上传的资源里面找。

 

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
程序支持三种更换桌面壁纸方式:开机自动更换,定时更换,热键更换(热键可以设置) 只要您指定壁纸文件所在文件夹,程序将该文件夹下(含所有子文件夹)所有的JPEG、GIF、TIF、PNG、JPE、JPG、BMP文件自动随机设置为桌面壁纸,使您的桌面壁纸随时都在变化。如果文件夹下的文件发生变化,程序会自动监控到并进行更新。 1、开机自动更换壁纸,前提当然得要将该程序设置为开机自动运行(本程序自动最小化加入到系统托盘)。 2、定时更换壁纸,只要您设置了时间间隔并启用定时更换功能,即可定时更换。 3、手动更换,在任何界面下按热键键即可马上更换壁纸(默认热键为CTRL+ALT+P,可以在设置中更改)。 本程序系VB2008编写,可在windows XP 及Vista下运行(在XP下需要安装.NET Framework2.0组件,请从微软官方网站下载。 安装方法: 方法一:解压缩后,运行“自动更换壁程序.application”即可安装程序,安装完后会在开始菜单建立菜单。 方法二:解压缩后,可以不进行安装,直接运行“Application Files\自动更换壁程序_1_0_0_2\自动更换壁程序.exe”即可,此时不会在开始菜单建立程序组。 首次运行本程序时,会自动弹出设置窗口,要求您指定壁纸文件所在文件夹等选项。如果您要将程序设置为开机自动运行,请选中“设置为开机自动运行并更换壁纸”复选框,取消该复选框则可以取消开机自动运行。 如果您对本程序有何建议或意见,请与本人联系 姓名:游平 地址:湖南省 株洲市 215信箱 财务处 邮编:412002 邮箱:[email protected]

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值