MrPolite - Change Wallpaper Code

[hellswraith]

Here is the wallpaper changing code you asked for.
There is a problem with the VB translation I did, it has to do
with the api call (I haven't used them in VB.Net till today with this). Maybe you can figure it out. If you do get it working,
repost the working code here so all others can use it.

If all else fails, you can use the C# code, it works fine
on my computer.

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As String, ByVal fuWinIni As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPic As String = "YourPicture.jpg" 'This can be a gif, bmp, or jpg and probably others.
        Dim image As Bitmap = New Bitmap(myPic)
 
        'Might need to change the hard coded path to find the actual windows directory.
        Dim path As String = "C:\Windows\" + System.IO.Path.GetFileNameWithoutExtension(myPic)
 
        'This only works with bitmaps, so if it isn't a bmp file, it needs to be
        'converted to one before we can change the wallpaper.
        Dim ext As System.IO.FileInfo = New System.IO.FileInfo(myPic)
        If ext.Extension.ToUpper <> "BMP" Then
            image.Save(path, System.Drawing.Imaging.ImageFormat.Bmp)
        End If
 
        'Now make the call to change the wallpaper.
        Dim returncode As Integer
        returncode = SystemParametersInfo(20, 0, path, 0)
 
        'Need to set the registry so that you can see the image when you right-click
        'the desktop and choose properties and go to the background tab.
        Dim key As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel", True)
        Try
            key = key.OpenSubKey("Desktop", True)
            key.SetValue("Wallpaper", path)
        Catch
            'An error happened when setting the registry setting.
            'Do what you want here.
        End Try
 
 
 
        'C# CODE FOR CHANGING THE WALLPAPER:
        'AUTHOR Brian Russell AKA hellswraith on VBForums.com
        '
        '// This is the API declaration for the call to set the wallpaper.
        '[System.Runtime.InteropServices.DllImportAttribute("user32")]
        'private static extern int SystemParametersInfo(int uAction, int uParam, string lpvParam,
        '   int fuWinIni);
 
        'private void ImageToWallpaper()
        '{
        '   // This only works with bitmaps, so we need to convert the image to
        '   // a bmp file before it will work.  I am saving it in the C:\Windows folder
        '   string myPicPath = "YourPicture.jpg"
        '   Bitmap image = new Bitmap(myPicPath);
        '   string path = @"C:\Windows\" + System.IO.Path.GetFileNameWithoutExtension(myPicPath);
 
        '   image.Save(path, System.Drawing.Imaging.ImageFormat.Bmp);
 
        '   // Now make the call to change the wallpaper.
        '   int returncode;
        '   returncode = SystemParametersInfo(20,0,path,0);
 
        '   // We still need this.  If we don't set the registry key
        '   // you won't see your image you just set in the properties window
        '   // when you right-click the desktop.
        '   RegistryKey key = Registry.CurrentUser.OpenSubKey("Control Panel", true);
 
        '      Try
        '   {
        '       key = key.OpenSubKey("Desktop", true);
 
        '       key.SetValue("Wallpaper", path);
        '   }
        '      Catch
        '   {
        '       // Something went wrong.
        '       MessageBox.Show("Something went wrong");
        '   }
        '}
    End Sub