1. Joined : Jul 2015
    Posts : 16
    Windows 10
       05 Aug 2015 #1

    Windows 10: Automatically cycle through themes?


    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 ?
      My System SpecsSystem Spec


  2. Joined : Jul 2015
    Posts : 16
    Windows 10
       05 Aug 2015 #2

    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:\Users\bornt\AppData\Local\Microsoft\Windows\Themes"
    sCmd = "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.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 ?
      My System SpecsSystem Spec


  3. Joined : Oct 2015
    Posts : 1
    Windows 10
       31 Oct 2015 #3

    Here's the answer


    dim fso
    dim folder
    dim Folders
    dim tf


    Set fso = CreateObject("Scripting.FileSystemObject")
    sThemeFolder = "C:\Users\Bartek\AppData\Local\Microsoft\Windows\Themes"

    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}"
      My System SpecsSystem Spec


  4. Joined : Nov 2015
    Posts : 1
    Windows 10
       26 Nov 2015 #4

    batk said: View Post
    dim fso
    dim folder
    dim Folders
    dim tf


    Set fso = CreateObject("Scripting.FileSystemObject")
    sThemeFolder = "C:\Users\Bartek\AppData\Local\Microsoft\Windows\Themes"

    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
      My System SpecsSystem Spec


 


Similar Threads
Thread Forum
Solved Windows 10 Themes created by Ten Forums members
Hi fellow Ten Forums geeks :) Thanks to @Wynona's and @Cliff's idea I thought why not start sharing our homemade Windows 10 themes. To keep this clean and simple, please post only themes with copyright free or your self made backgrounds to avoid...
Customization
Cannot change Windows 10 themes
Can anyone please help? I have downloaded several theme packages from the net. I right click on my desktop screen, then on personalize, themes and then theme settings. I get the classic screen for changing themes. I choose a theme package but then...
Customization
upgrading windows 10 reboot cycle at 75%
hi, i have a toshiba satellite laptop with a windows 7 operating system. i began to install the windows 10 upgrade but at 75% the computer went into a reboot cycle. i tried some settings in the BIOS and the computer continues to restart. any...
Installation and Setup
Themes I'd Like to See in Windows 10
If I were to jump on to Windows 10, I'd like to find a theme that has smaller square caption buttons (ala XP or even a basic style similar to Vista). I'd like bluish title bars (and a means of maintaining that colour on background windows. Any...
General Support
Our Sites
Site Links
About Us
Windows 10 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 10" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 05:15.
Find Us
Twitter Facebook Google+



Windows 10 Forums