Location:
State:
Carrier
Country
Status

Here's the answer


Is there a way to have Win10 automatically cycle through the themes?
I really like the pictures in a good number of the country-specific themes and would like win10 to just cycle through the themes automatically instead of me switching them every few days.


Any script for this ?

Actually I found a script somewhere.
But it is not working


Opening Desktop Icon settings instead.


dim fso dim folder
dim Folders
dim objRandom
dim tf


Set fso = CreateObject("Scripting.FileSystemObject")
sThemeFolder = "C:UsersorntAppDataLocalMicrosoftWindowsThemes"
sCmd = "rundll32.exe %SystemRoot%system32shell32.dll,Control_RunDLL %SystemRoot%system32desk.cpl desk,@Themes /Action:OpenTheme /file:"




Set folder = fso.GetFolder(sThemeFolder)
Set folders = folder.SubFolders




Set objRandom = CreateObject( "System.Random" )
rno = objRandom.Next_2( 1, folders.count - 1)




i = 0
For Each tf in folders
If i = rno Then
exit for
end if
i = i + 1
next
randomTheme = tf.name


Set WshShell = WScript.CreateObject("WScript.Shell")
file = """" & sThemeFolder & randomTheme & "" & randomTheme & ".theme"""


WshShell.Run sCmd & file




Wscript.Sleep 3000
WshShell.AppActivate("Desktop Properties")
WshShell.Sendkeys "%FC"
WshShell.Sendkeys "{F4}"

Can someone please help on what is wrong ?

dim fso
dim folder
dim Folders
dim tf


Set fso = CreateObject("Scripting.FileSystemObject")
sThemeFolder = "C:UsersBartekAppDataLocalMicrosoftWindowsThemes"

Set folder = fso.GetFolder(sThemeFolder)
Set folders = folder.SubFolders

randomize
rno = int( rnd * folders.count )

i = 0
For Each tf in folders
If i = rno Then
exit for
end if
i = i + 1
next
randomTheme = tf.name

Set WshShell = WScript.CreateObject("WScript.Shell")
file = """" & sThemeFolder & "" & randomTheme & "" & randomTheme & ".theme"""

WshShell.Run file

Wscript.Sleep 1000
WshShell.Sendkeys "%{F4}"

dim fso
dim folder
dim Folders
dim tf


Set fso = CreateObject("Scripting.FileSystemObject")
sThemeFolder = "C:UsersBartekAppDataLocalMicrosoftWindowsThemes"

Set folder = fso.GetFolder(sThemeFolder)
Set folders = folder.SubFolders

randomize
rno = int( rnd * folders.count )

i = 0
For Each tf in folders
If i = rno Then
exit for
end if
i = i + 1
next
randomTheme = tf.name

Set WshShell = WScript.CreateObject("WScript.Shell")
file = """" & sThemeFolder & "" & randomTheme & "" & randomTheme & ".theme"""

WshShell.Run file

Wscript.Sleep 1000
WshShell.Sendkeys "%{F4}"
Hi

How you create script or wthat app you use to create script? I tried Autohotkey but it doesn't work with this method.

Thanks a lot

Here's the answer