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

[系统相关] 批处理怎么换将一个文件夹内的壁纸轮流更换?

请教大神,批处理怎么换将一个文件夹内的壁纸轮流更换

本帖最后由 czjt1234 于 2024-1-7 17:02 编辑

vbs
  1. Option Explicit
  2. Dim oWshShell, oFSO, oShell, WallpaperStyle, TileWallpaper, s, i
  3. Const PATH  = "D:\1"    '图片文件夹
  4. Const STYLE = "适应"    '适应 居中 平铺 拉伸 填充
  5. Set oWshShell = CreateObject("WScript.Shell")
  6. Set oFSO      = CreateObject("Scripting.FileSystemObject")
  7. Set oShell    = CreateObject("Shell.Application")
  8. oWshShell.CurrentDirectory = PATH
  9. Select Case STYLE
  10.     Case "适应"
  11.         WallpaperStyle = "6"
  12.         TileWallpaper  = "0"
  13.     Case "居中"
  14.         WallpaperStyle = "0"
  15.         TileWallpaper  = "0"
  16.     Case "平铺"
  17.         WallpaperStyle = "0"
  18.         TileWallpaper  = "1"
  19.     Case "拉伸"
  20.         WallpaperStyle = "2"
  21.         TileWallpaper  = "0"
  22.     Case "填充"
  23.         WallpaperStyle = "10"
  24.         TileWallpaper  = "0"
  25. End Select
  26. s = ""
  27. For Each i In oFSO.GetFolder(oWshShell.CurrentDirectory).Files
  28.     If LCase(Right(i.Name, 4)) = ".jpg" Or LCase(Right(i.Name, 4)) = ".bmp" Then
  29.     s = s & i.Name & "|"
  30.     End If
  31. Next
  32. If s = "" Then Wsh.Quit()
  33. i = Split(Left(s, Len(s) - 1), "|")
  34. Randomize
  35. s = i(Int((UBound(i) + 1) * Rnd()))
  36. oWshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle", WallpaperStyle, "REG_SZ"
  37. oWshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper",  TileWallpaper,  "REG_SZ"
  38. For Each i In oShell.NameSpace(oWshShell.CurrentDirectory).ParseName(s).Verbs
  39.     If i.Name = "设置为桌面背景(&B)" Then i.DoIt() : Wsh.Sleep 2000
  40. Next
复制代码

这是随机图片设为桌面背景的vbs
如果 PATH = "." 则表示当前文件夹

QQ 20147578

TOP

回复 1# 魅眸


    Win7? Win10? Win11?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表