[Script] VBS| Wallpaper anzeigen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von BenQ, 29. Juni 2007 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 29. Juni 2007
    VBS| Wallpaper anzeigen

    Hi Leute,

    Hab mir ein VBScript zusammen gekleistert.
    Nun, es funktioniert auch alles soweit, einziges porblem ist, das der bildschirm das bild nicht anzeigt. Jedoch wird es unter Desktop ---> Eigenschaften ---> Hintergrund/Desktop angezeigt.

    Nur auf dem Bildschirm ist es nicht zu sehen

    Weiß jemand nen grund oder Tipp?

    Code:
    dim wshShell
    dim sUserName
    dim computer
     
    Set wshShell = WScript.CreateObject("WScript.Shell")
    sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
     
    sWinDir = oFSO.GetSpecialFolder(0)
    sWallPaper = "C:\temp\e3.jpg"
    'sWallPaper = "C:\temp\13-01-06_1947.jpg"
    computer = InputBox("Bitte Computernnamen angeben")
     
    'Öffnet/Ändert den Reg-Wert
     
    HKEY_CURRENT_USER = &H80000001
    Set objReg = GetObject("winmgmts:\\" & computer & "\root\default:StdRegProv")
    strKeyPath = "Control Panel\Desktop\"
    'objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
    ValueName = "Wallpaper"
    dwValue = "sWallPaper"
    objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue
     
    'oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
     
     
    ' Quit
    Wscript.quit(0)
    
     
  2. 3. Juli 2007
    AW: VBS| Wallpaper anzeigen

    Hab zwar von VB keine Ahnung, probier aber mal auf dem Desktop "F5" zu drücken
    Deswegen die Vermutung.
     
  3. 5. Juli 2007
    AW: VBS| Wallpaper anzeigen

    jo danke,
    aber hab ich auch schon versucht.
    im grunde übernimmt das auch diese zeile

    Code:
    'oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
    
     
  4. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.