Anfänger: Hintergrundbild in Windows verändern

  • Anfänger: Hintergrundbild in Windows verändern

    Hallo

    Kaum hab ich mein eines Projekt abgeschlossen schon plane ich ein neues :D , wobei ich hilfe gebauchen könnte. Ich hab vor ein kleines Scherzporgramm zu schreiben, dieses sollte das Hintergrundbild in Windows ändern in ein vorher in die Resources abgelegtes Bild und ich weiss nicht wie Ich dieses anstellen soll. Es sollte nicht als Scherzprogramm oder Virus erkannt werden! :P

    Hoffe jemand hat eine Idee. :)

    Danke im vorraus

    MFG

    Last HoPe
    Ich programmiere mit Visual basic 2008

  • Hallo

    Greifst aber für einen Anfänger ziemlich Tief rein

    Hab per google in 3 Sekunden was gefunden: forum.vb-paradise.de/programmi…-hintergrundbild-aendern/

    Quellcode

    1. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal pncMetrics As String, ByVal fuWinIni As Integer) As Integer
    2. Private Const SPI_SETDESKWALLPAPER = 20
    3. Private Const SPIF_UPDATEINIFILE = &H1
    4. Private Const SPIF_SENDWININICHANGE = &H2
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. OpenFileDialog1.Filter = ("BMP-Grafiken (*.BMP)|*.BMP")
    9. OpenFileDialog1.ShowDialog()
    11. If OpenFileDialog1.FileName > "" Then
    12. PictureBox1.Load(OpenFileDialog1.FileName)
    13. End If
    14. End Sub
    16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    17. If OpenFileDialog1.FileName > "" Then
    18. SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, _
    19. OpenFileDialog1.FileName, SPIF_UPDATEINIFILE Or _
    20. SPIF_SENDWININICHANGE)
    21. End If
    22. End Sub
    Alles anzeigen


    für diesen Code werden 2 Buttons und eine Picturebox gebraucht

    pass das deinen Bedürfnissen entsprechend an und viel Spaß damit

    mfG