ctny 2004-07-10 06:53
ultramon is great, but i am looking for random wallpaper feature, is there an app that will work with ultramon to do that?
|
Christian Studer 2004-07-11 00:23
Switching between existing UltraMon wallpapers can be done with a custom script, see this thread for details.
Christian Studer - www.realtimesoft.com
|
Min 2004-08-14 06:58
Took your code and mangled it to do a random wallpaper. Hope you don't mind. Can be tossed into the windows scheduler to rotate wallpapers randomly :)
Set sh = CreateObject("WScript.Shell")
Const UMDESKTOP_EXE = "C:\Program Files\UltraMon\UltraMonDesktop.exe"
WallpaperFolder = sh.RegRead("HKCU\Software\Realtime Soft\UltraMon\Wallpaper\Wallpaper Directory")
Set objShell = CreateObject("Shell.Application")
Set objwpfolder = objShell.Namespace(WallpaperFolder)
Set files = objwpfolder.Items
randomize
Count = cint((files.Count - 1) * Rnd)
While lcase( Right(Files.Item(Count).Name,9)) <> "wallpaper"
Count = CInt((Files.Count - 1) * rnd)
Wend
wpaper=Files.Item(Count)
Sh.run("""" & UMDESKTOP_EXE & """ /load " & Wallpaperfolder&"\"&wpaper)
Min
|
Min 2004-08-14 07:04
Took your code and mangled it to do a random wallpaper. Hope you don't mind. Can be tossed into the windows scheduler to rotate wallpapers randomly :).
Set sh = CreateObject("WScript.Shell")
Const UMDESKTOP_EXE = "C:\Program Files\UltraMon\UltraMonDesktop.exe"
WallpaperFolder = sh.RegRead("HKCU\Software\Realtime Soft\UltraMon\Wallpaper\Wallpaper Directory")
Set objShell = CreateObject("Shell.Application")
Set objwpfolder = objShell.Namespace(WallpaperFolder)
Set files = objwpfolder.Items
randomize
Count = cint((files.Count - 1) * Rnd)
While lcase( Right(Files.Item(Count).Name,9)) <> "wallpaper"
Count = CInt((Files.Count - 1) * rnd)
Wend
wpaper=Files.Item(Count)
Sh.run("""" & UMDESKTOP_EXE & """ /load " & Wallpaperfolder&"\"&wpaper)
Min
|
orta 2004-09-11 09:40
Has anyone got this to work? I set it to be a .vbs file and made it run on startup but it does nothing...
|
orta 2004-09-11 09:57
Oh, and does this work by choosing a random wallpaper from your directory? It looks like it but I'm not particularlly familiar with VB script.
|
ADMlN 2004-09-11 12:20
hey this works, now i just need to try to find a way to get mcafee from fencing this script.
|
ADMlN 2004-09-11 12:25
ahh no good, "windows Shedule task" only execute the script only on the assigned time not every 15 minutes or so unless you gone IDLE.
|
Brian E 2006-10-18 12:37
Is there a way to customize this further such that it will only rotate wallpapers with a name that starts with "M-" ???
thanks!!
|
Brian E 2006-10-18 13:00
Nevermind.. i added another IF to the rotation
If Left(fileWp.Name, 2) = "M-" Then
If Right(fileWp.Name, 10) = ".wallpaper" Then
fileWpFullName = dirWps(i) & fileWp.Name
If firstWp = "" Then firstWp = fileWpFullName
If nextOne = True Then
nextWp = fileWpFullName
Exit For
ElseIf fileWpFullName = curWp Then
nextOne = True
End If
End If
End If
|
Brian E 2006-10-20 10:21
Also in reply to "admins" post about the wall paper not being able to toggle every 15 minutes
you can set task scheduler todo it, you'd just have to setup 96 schedule times (15 min increments for 24 hours)
or
tell it to run when the PC goes idle for one minute... that way whenever you walk away from the pc and come back youll be greeted by a new paper :)
or
do both
remember you can schedule as many tasks / task times as u want... just have to toy around and make something work for you :)
good luck
|
