☰

如何在 Windows 7 中更改桌面背景

tag-icon • tag-icon windows-7 internet-explorer group-policy desktop-customization
如何在 Windows 7 中更改桌面背景

由于组策略在我们的系统上强制执行，我们无法改变我们的桌面背景永久地。IE的“设置为桌面背景”功能暂时可用。PS：我已获得系统的管理员权限。

答案1

您只需找到当前正在使用的背景图像文件并覆盖它，而不是尝试将您的偏好指向不同的文件。

因此，如果您当前的背景文件是 c:\windows\system\background.png，则您需要制作一个备份副本，background.png.bak 或类似文件。然后，您将要使用的副本复制到 c:\windows\system\background.png。这将更改使用计算机的每个人的背景，因此您可以制作一个在登录/注销时复制文件的脚本。

答案2

我这里也有同样的情况。我用了稍微不同的方法 + 不需要管理员权限：

  1. 创建新目录：C:\壁纸

  2. 移动到您的壁纸，将其大小调整为您的屏幕尺寸，然后将其重命名为背景.jpg。若要在不使用任何第三方应用程序的情况下调整图像大小，请使用 MS Paint 打开 background.jpg 文件，按 CTRL+W（调整大小），取消选择“保持纵横比”，选择“像素”单选按钮，然后根据桌面大小调整图像。

  3. 在该目录中创建名为墙纸.bat内容如下（注意，如果启动时设置失败，可以将 30 更改为更大的数字。例如： 60 或 90）：

timeout /t 30 /nobreak > NUL
Call background.xlsm
  1. 创造墙纸.vbs同一目录中的文件内容如下：
Set WshShell = CreateObject("WScript.Shell" ) 
WshShell.Run chr(34) & "C:\Wallpaper\wallpaper.bat" & Chr(34), 0 
Set WshShell = Nothing
  1. 打开 MS Excel（稍后您将在那里保存它，但现在只需按照说明操作），按Alt+F11然后 Visual Basic for Applications 就会打开。在左侧，您应该会看到项目浏览器，因此双击本工作簿并粘贴以下内容：
Private Sub Workbook_Open()
     If (ThisWorkbook.Name = "background.xlsm") Then
          Call changeWallpaper("C:\Wallpaper\background.jpg")
          Application.DisplayAlerts = False
          Application.Quit
     End If
End Sub
  1. 在同一个 excel 文件中，右键单击项目浏览器中的任意项目，然后单击“插入”，然后单击“模块”并粘贴以下代码：
Option Explicit

Public Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
                    (ByVal uAction As Long, ByVal uParam As Long, _
                     ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SETDESKWALLPAPER = 20 Public Const
SPIF_SENDWININICHANGE = &H2 Public Const SPIF_UPDATEINIFILE = &H1

Public Sub changeWallpaper(location As String)

     Dim strImagePath As String
     strImagePath = location

     Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strImagePath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub
  1. 确保宏始终可用，无需确认是否为此文件启用它们。将此文件另存为启用宏的 Excel 文件，扩展名为繁體（必须将其命名为background.xlsm）：
C:\Wallpaper\background.xlsm

  1. 关闭和打开繁體Excel 文件。如果正在设置壁纸 - 您已完成。如果没有 - 检查宏安全性。也许您需要将该 excel 文件添加到 Excel 宏安全设置中的白名单中？对我来说 - 它有效。如果您仍然无法使其工作，- 您运气不佳。

  2. 在启动时设置壁纸-在 Windows 启动目录中放置墙纸.vbs文件。要创建快捷方式，请右键单击 wallpaper.vbs 文件，然后单击“创建快捷方式”。要打开启动目录，请转到开始-->所有项目-->启动文件夹，然后右键单击它并“打开”。将您创建的快捷方式移动到该启动目录。

注 1：启动后，30 秒后壁纸应该设置成功。如果没有计时器（30 秒），excel 文件会因为某种原因出现错误。

笔记2：编辑 Excel繁體文件，将其重命名为任何其他名称（例如背景.xlsm）并打开。修改完内容后，保存并重命名为背景.xlsm。

相关内容