Random Theme

[pSyONiDe]

Many thanks to the code samples in the help file.

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1.0
; Author:        pSyONiDe <gcurtis79@mchsi.com>
;
; Script Function:
;   Theme Changer Script.
;
; ----------------------------------------------------------------------------

#include <file.au3>
#Include <process.au3>

$count = 1
$search = FileFindFirstFile("C:\Windows\Resources\Themes\*.theme")  

If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    IniWrite("themes.ini", "Themes", $count, "C:\Windows\Resources\Themes\" & $file)
    $count = $count + 1
WEnd

FileClose($search)

$lines = _FileCountLines("themes.ini")
$tn = Random(1, $lines - 1, 1)

_RunDOS("start " & IniRead("themes.ini", "Themes", $tn, "0"))

WinWait("Display Properties", "A theme is a background plus a set")
ControlClick("Display Properties", "A theme is a background plus a set", "Button3")
FileDelete("themes.ini")

Writes a themes.ini file for temorary use, then deletes it upon completion.

Will use any *.theme stored in C:\Windows\Resources\Themes\

My first usefull script yet.

Thanks for the greatest scripting thingie ever!

-Greg C.

[theguy0000]

it doesn't work every time, but it's cool!

good job!

[pSyONiDe]

it doesn't work every time, but it's cool!

good job!

I havn't had a problem with it yet, I have the patched uxtheme.dll file so I can use any theme I want from most sites like wincustomize and such.

I have it run on a ime after boot/login, and also in scheduler every 60 mins.

It drive my wife nuts... <-- that's my favorite part about it!