Reply to thread

Message: <blockquote data-quote="ranga_uoc" data-source="post: 5829395" data-attributes="member: 23698">Copy this code in to a text file and save it as "wallpaper.vbs" (Without quotes)But keep in mind you have to give the path of the image(.jpeg or .bmp) that your going to use as the wallpaper.In this code the path of the wallpaper is in colored text.This is the code...........dim wshShelldim sUserNameSet 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:\Wallpaper.bmp"' update in registryoShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper' let the system know about the changeoShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, TrueSave this text file as "wallpaper.vbs" and double click it. <img src="/styles/default/xenforo/smilies/default/happy.gif"  class="smilie" loading="lazy" alt=":)" title="Happy    :)" data-shortname=":)" />If you like my post pls reply.......<img src="/styles/default/xenforo/smilies/default/happy.gif"  class="smilie" loading="lazy" alt=":)" title="Happy    :)" data-shortname=":)" /></blockquote>

Top Bottom