Cambiar el Wallpaper de Windows con Visual Basic 2005

[jaullo]

Prueba esto:

Código ASP:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
 
    Private Const SPI_SETDESKWALLPAPER As Integer = 20
    Private Const SPIF_UPDATEINIFILE As Integer = 1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim od As New OpenFileDialog()
        With od
            .Filter = "Bitmaps(*.bmp)|*.bmp" '/// only seems to work on bitmaps ( atleast on XP pro here )
            .InitialDirectory = "C:\"
        End With
        If od.ShowDialog = DialogResult.OK Then
            If MessageBox.Show("would you like the changes to remain next time you re-boot", Application.ProductName, MessageBoxButtons.YesNo) = DialogResult.OK Then
                SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, od.FileName, SPIF_UPDATEINIFILE)
            Else '/// dont save changes for after reboot.
                SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, od.FileName, 0)
            End If
        End If
    End Sub
 

Y otros recursos
http://www.dotnetspider.com/resource...ng-vb-net.aspx

http://devcity.net/Articles/119/1/vb2005_wallpaper.aspx