随机更换桌面壁纸


\| 网站首页 \| 绿色软件 \| 绿色数码 \| 安全中心 \| 屏保中心 \| 源码中心 \| 电子书库 \| 教程库 \| 图片库 \| 资料库 \| 算命 \| 笑话 \| 广告 \| 绿站旧版 \| 返回总部 \|

您现在的位置：绿色软件站 >> 源码中心 >> BAT源码 >> 桌面屏幕 >> 源码信息

热点推荐

最新更新

推荐软件

其他更新

随机更换桌面壁纸

运行环境： Win9x/NT/2000/XP/2003	（载入中...）
文件大小： 1 K
软件类别： BAT源码
软件语言：简体中文
软件属性：热
授权方式：免费版
添加时间： 2008-3-19 6:05:05
软件等级： ★★★
软件绿化：佚名
相关链接：源码演示地址源码注册地址
下载次数：日：周：月：总：
软件添加：审核:lodge 录入:lodge

::软件简介::

警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
setlocal ENABLEDELAYEDEXPANSION
if "%1"=="h" goto loop
color 1e
MODE CON COLS=40 LINES=10
title 随机更换桌面壁纸
:yn
echo           请选择操作
echo.
echo           1.启动随机更换壁纸
echo.
echo           2.取消随机更换壁纸
echo.
set /p yn=          请在此输入(1/2):
if "%yn%"=="1" goto begin
if "%yn%"=="2" goto end
cls&echo            ----输入错误----&echo.&goto yn
:begin
cls
echo.
set /p bmpfile=请将图片文件夹拖到这里:
echo.
set /p ti=输入自动替换壁纸的时间(秒):
set /a tim=%ti%*2
echo %bmpfile%#%tim%>c:\temp.txt
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:loop
for /f "tokens=1,2* delims=#" %%i in (c:\temp.txt) do (
    call set bmpfile=%%i
    call set tim=%%j
)
:start
set num=0
for /r "%bmpfile%" %%a in (*.bmp) do (
    set /a num+=1
    call set bmp!num!=%%a
    set /a ran=!random!%%!num!+1
    call set img=%%bmp!ran!%%
)
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "%img%" /f
RunDll32 USER32.DLL,UpdatePerUserSystemParameters
ping /n !tim! 127.1>nul
goto start
:end
echo 正在关闭,请稍候..
ping /n 2 127.1>nul
del /q c:\temp.txt
taskkill /im cmd.exe /f >nul
exit

>>点击放大观看<<

@echo off
setlocal ENABLEDELAYEDEXPANSION
if "%1"=="h" goto loop
color 1e
MODE CON COLS=40 LINES=10
title 随机更换桌面壁纸
:yn
echo           请选择操作
echo.
echo           1.启动随机更换壁纸
echo.
echo           2.取消随机更换壁纸
echo.
set /p yn=          请在此输入(1/2):
if "%yn%"=="1" goto begin
if "%yn%"=="2" goto end
cls&echo            ----输入错误----&echo.&goto yn
:begin
cls
echo.
set /p bmpfile=请将图片文件夹拖到这里:
echo.
set /p ti=输入自动替换壁纸的时间(秒):
set /a tim=%ti%*2
echo %bmpfile%#%tim%>c:\temp.txt
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:loop
for /f "tokens=1,2* delims=#" %%i in (c:\temp.txt) do (
    call set bmpfile=%%i
    call set tim=%%j
)
:start
set num=0
for /r "%bmpfile%" %%a in (*.bmp) do (
    set /a num+=1
    call set bmp!num!=%%a
    set /a ran=!random!%%!num!+1
    call set img=%%bmp!ran!%%
)
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "%img%" /f
RunDll32 USER32.DLL,UpdatePerUserSystemParameters
ping /n !tim! 127.1>nul
goto start
:end
echo 正在关闭,请稍候..
ping /n 2 127.1>nul
del /q c:\temp.txt
taskkill /im cmd.exe /f >nul
exit

::下载地址::


·电信服务器一 ·电信服务器二 ·网通服务器二 ·网通服务器一

（载入中...）

::相关教程::

::下载说明::

* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！

网友评论：（评论内容只代表网友观点，与本站立场无关！）

【发表评论】

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| SiteMap（软件） \| SiteMap（文章） \| SiteMap（图片） \|
Copyright（C）2007 Mindows.org All Rights Reserved 绿色软件站（免装软件园）站长：onegreen [粤ICP备06013325号]