Changing Windows 7 and Windows 8 Desktop Wallpaper Slideshow Based on the Time of the Day

Previously, I have explained about how to change Windows XP desktop wallpaper slideshow based on the time of the day. Now I will try to do the same procedure on Windows 7 and Windows 8. The procedure that we have applied to Windoes XP will not work on Windows 7 and Windows 8 because there is problem with the code that modifies the Regedit keys. There is actually an effective workaround to deal with this problem; however, when I use it to change the Windows 7's theme, the personalization window always appears. Although there is a batch file that can be used to hide that window automatically, I think that automatic showing and hiding of the personalization window is not cool at all. To overcome this problem, I have to use a third-party application called Winaero Theme Switcher. This small application can change Windows 7's theme and that of Windows 8 silently (i.e. without displaying Personalization window). By using this application and a small vbs file, I can finally apply the same procedure that I have applied to Windows XP to Windows 7 and Windows 8. If you are curious about it, you can perform the following steps.

1. Download Winaero Theme Switcher. You can get it from here. This application is small and free.
2. Create 5 themes by using personalization window and save those themes respectively as Morning, Noon, Afternoon, Evening and Night. It doesn't matter how many wallpapers that you will use for each theme. Use as many wallpapers as you want. Just make sure that those pictures match the theme that contains them. This procedure is relatively easy to do. You should be able to figure it out with no trouble.
3. Now prepare your vbs file. Open Notepad and copy-paste the following code on it.

Set WshShell = WScript.CreateObject("WScript.Shell")
Dim exeName
CurrentHour = Hour(Now)
If CurrentHour >= 5 And CurrentHour <= 8 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Morning"
    ElseIf CurrentHour >= 9 And CurrentHour <= 13 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Daytime"
    ElseIf CurrentHour >= 14 And CurrentHour <= 16 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Afternoon"
    ElseIf CurrentHour >= 17 And CurrentHour <= 20 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Evening"
    ElseIf CurrentHour >= 21 And CurrentHour <= 23 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Night"
    ElseIf CurrentHour >= 0 And CurrentHour <= 4 Then
        WshShell.Run "ThemeSwitcher.exe" & " " & "Night"
End If

4. Save the file as a .vbs file (File>Save As...>change the "Save as type" option to "All files (*.*)"> use "wallpaperchange.vbs" (without quotation marks) as the file name>click Save button).
5. Put the .vbs file in the folder where ThemeSwitcher.exe (Winaero Theme Switcher application) is located.
6. Use Task Scheduler to schedule the activation of this visual basic code. Right click on Task Scheduler Library, right click and choose Create New Task.... To modify the Task Scheduler's settings, refer to the following screenshots: