VB 更换桌面壁纸 本次生效，重启后还原壁纸。代码！

我当前壁纸 c：/123.bmp

想更换壁纸 c：/456.bmp

重启还原壁纸 c：/123.bmp

在窗体上放个按钮，名为 Command1

粘贴以下代码：

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private 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

Private Sub Command1_Click()

'更换壁纸为c:/456.bmp，立即生效。重启后会自动还原为你修改之前的壁纸。
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:/456.bmp", SPIF_SENDWININICHANGE)
End Sub