Windows 10: Automatically cycle through themes?


  1. Posts : 16
    Windows 10
       #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 Computer


  2. Posts : 16
    Windows 10
    Thread Starter
       #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 Computer


  3. Posts : 1
    Windows 10
       #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 Computer


  4. Posts : 1
    Windows 10
       #4

    batk said:
    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 Computer


 

  Related Discussions
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 14:12.
Find Us




Windows 10 Forums