[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
luohuashan

Rank: 2

帖子
3 
积分
109 
技术
0  
捐助
0  
注册时间
2009-5-16 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2009-5-16 23:21 | 只看该作者

[网络连接] 求一个能自动更换XP桌面背景的批处理

求一个能自动更换XP桌面背景的批处理  要求如下:

运行该批处理后能将该批处理自动添加到启动项里,背景图片的位置在网上邻居  如地址为  \\[url=file://\\192.168.1.1\\[/url]192.168.1.1\[/url]背景.bmp

[ 本帖最后由 luohuashan 于 2009-5-16 23:24 编辑 ]
收藏 分享

tireless

Rank: 6Rank: 6

帖子
381 
积分
1801 
技术
9  
捐助
0  
注册时间
2008-10-27 
2楼
发表于 2009-5-17 00:27 | 只看该作者 
  1. @reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /f /v SetWallpaper /d SetWallpaper.cmd

  2. @more +3 %0>%windir%\SetWallpaper.cmd & exit /b

  3. 

  4. Windows Registry Editor Version 5.00

  5. ;@cls & start regedit /s "%~f0"

  6. ;@start RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters & exit /b

  7. [HKEY_CURRENT_USER\Control Panel\Desktop]

  8. "TileWallpaper"="0"

  9. "Wallpaper"="\\\\192.168.1.1\\背景.bmp"

  10. "WallpaperStyle"="2"
复制代码

TOP

luohuashan

Rank: 2

帖子
3 
积分
109 
技术
0  
捐助
0  
注册时间
2009-5-16 
3楼
发表于 2009-5-18 10:23 | 只看该作者
运行了后 桌面的背景没更换成功呀  大哥!

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14810 
积分
45988 
技术
848  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2009-5-18 11:04 | 只看该作者

回复 3楼 的帖子

能不能先把图片拷贝到本机硬盘再设置背景？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

luohuashan

Rank: 2

帖子
3 
积分
109 
技术
0  
捐助
0  
注册时间
2009-5-16 
5楼
发表于 2009-5-18 12:35 | 只看该作者
嘿嘿,下面这个测试过 可以了 不过就是每次运行一定要按个回车  能把需要手动按回车的去?高手来帮下忙看!


@echo off&setlocal enabledelayedexpansion
rem  by    2007-12-10
title 桌面背景更换系统copyright by Dodoy&color 1f
:start
cls&set wjm=&set num=
copy %0 "%userprofile%\「开始」菜单\程序\启动\
echo\&echo  桌面自动更换系统,每天开机后将更换不同桌面。
echo\&echo  如需要自己更换桌面背景请手动修改!!!请按回车键继续....
set /p wjm=
if not "%wjm%"=="" goto loop
::  获取当前目录下bmp文件的总数
for %%a in (*.bmp) do set /a var+=1
:: 提取一个随机数,范围在文件总数之内
set /a w=%random%%%%var%+1
:: 循环所有bmp文件,每次给num加1,当num的值等于随机数就以这个文件为桌面
for %%a in (\\10.14.80.3\d\背景2008.bmp) do (
  set /a num+=1
  if !num! equ !w! set wjm=%%a
)
:loop
set wjm=%wjm:"=%
if not exist "%wjm%" (
   echo\&echo  你输入的文件名不正确
   ping/n 2 127.1>nul
   goto start
)
Rem ===================操作注册表=====================
set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop"
%regadd% /v TileWallpaper /d "0" /f>nul
%regadd% /v Wallpaper /d "%wjm%" /f>nul
%regadd% /v WallpaperStyle /d "2" /f>nul
Rem ====================更新==========================
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14810 
积分
45988 
技术
848  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2009-5-18 16:19 | 只看该作者

回复 5楼 的帖子

把set /p wjm=删掉

本版规则
1、求代码、寻求代码解释、探讨代码得失的帖子均可发在本版块，其余话题禁止在本版讨论；
2、求助时，务必在顶楼一次性把问题交代清楚；若文字难以表述，请配图说明，或是上传附件；但是，一切操作应从节约论坛资源的角度出发，能文字说明清楚的就无需再发图片，小图能说明问题的尽量不截全图，在不影响效果的前提下尽量压缩图片及附件；
3、所发代码若不止一行，请务必用code标记把代码部分首尾括起来，以便他人复制；
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表