Changing the Wallpaper

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Changing the Wallpaper

Logged in as: Guest

arrSession:exec spGetSession 2,2,213

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Changing the Wallpaper
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Changing the Wallpaper - 6/26/2001 3:32:38 PM

mav1ms

Posts: 1
Score: 0
Joined: 6/26/2001
From: USA
Status: offline

I am trying to change the wallpaper on Windows 2000 through VBScript. I am aware that I can do this through send keys and the Contol Panel, but I am looking for a way to do it without having to send keys. Anyone know of a way to accomplish this without having to reboot once making the change in the registry?

Thanks
Mav

Post #: 1

RE: Changing the Wallpaper - 10/29/2005 12:04:56 PM

TNO

Posts: 1240
Score: 10
Joined: 12/18/2004
From: thenewobjective.com
Status: offline

The following will work in Windows 2000, but not XP:

Option Explicit  
 
Dim CompleteImagesFolderPath  
 
Dim ImageFileTypes  
 
CompleteImagesFolderPath = \\path  
 
ImageFileTypes = "jpg"  
 
Dim WshShell  
 
Set WshShell = Wscript.CreateObject("Wscript.Shell")  
 
Dim ImageFiles  
 
Dim Final  
 
Dim str[b]Desktop[/b]  
 
Set ImageFiles = CreateObject("Scripting.Dictionary")  
 
str[b]Desktop[/b]    = WSHShell.SpecialFolders("[b]Desktop[/b]")  
 
call RandomImage(CompleteImagesFolderPath,ImageFileTypes)  
 
Function RandomImage(CompleteImagesFolderPath, ImageFileTypes)  
 
'Declare variables  
 
Dim FileSystemObject  
 
Dim ImageFolder  
 
Dim Files  
 
Dim i  
 
Dim File  
 
Dim FileName  
 
Dim FileExtension  
 
Dim RandomNumber  
 
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")  
 
If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then  
 
RandomImage = "Error 0: Cannot find requested folder"  
 
Set FileSystemObject = nothing  
 
Exit Function  
 
End If  
 
Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath)  
 
Set Files = ImageFolder.Files  
 
i = 1  
 
For Each File in Files  
 
FileName = File.Name  
 
FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))  
 
If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then  
 
ImageFiles.Add i, FileName  
 
i = i + 1  
 
End If  
 
Next  
 
Set ImageFolder = nothing  
 
Set Files = nothing  
 
Set FileSystemObject = nothing  
 
Randomize  
 
If ImageFiles.Count = 0 Then  
 
RandomImage = "Error 1: Folder no existe"  
 
Exit Function  
 
End If  
 
RandomNumber = Int((ImageFiles.Count) * Rnd + 1)  
 
Final = CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber)  
 
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet  
 
Explorer\[b]Desktop[/b]\General\[b]Wallpaper[/b]",Final,"REG_SZ"  
 
WshShell.RegWrite "HKEY_CURRENT_USER\Control  
 
Panel\[b]Desktop[/b]\[b]Wallpaper[/b]",Final,"REG_SZ"  
 
'CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber)  
 
Set ImageFiles = nothing  
 
WSHShell.AppActivate str[b]Desktop[/b]  
 
WSHShell.SendKeys "{F5}"  
 
End Function

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to mav1ms)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Changing the Wallpaper

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts