Sign in to follow this  
Followers 0
pSyONiDe

Random Theme

3 posts in this topic

Many thanks to the code samples in the help file.

; ----------------------------------------------------------------------------
;
; 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.

Share this post


Link to post
Share on other sites



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

good job!


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0