Set-WindowsColorMode/Set-WindowsColorMode.ps1 at main · EBOOZ/Set-WindowsColorMode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
<#
.NOTES
    Name: Set-WindowsColorMode.ps1
    Author: Danny de Vries
    Requires: PowerShell v2 or higher
    Version History: https://github.com/EBOOZ/Set-WindowsColorMode/commits/main
.SYNOPSIS
    Sets Windows 11 Light or Dark theme based on sunrise or sunsite time
.DESCRIPTION
    Weerlive API reference: https://weerlive.nl/delen.php
.PARAMETER Mode
    -Mode
.EXAMPLE
    .\Set-DarkMode.ps1 -Mode Dark
#>
# Configuring parameter for interactive run
Param($Mode)

################################################################################################################################
#                                Don't edit the code below, unless you know what you're doing                                  #
################################################################################################################################
# Import Settings PowerShell script
. ($PSScriptRoot + "\Settings.ps1")

# Get script working directory
$ScriptDir = Split-Path $script:MyInvocation.MyCommand.Path
Write-Host ("LOG: Script location is: $ScriptDir")

# Set light or dark mode based on parameter
If($Mode -eq "Light"){
   Write-Host ("LOG: Parameter used. Setting theme to Light.")
   $Wallpaper = $LightWallpaper
   $RegFile = "$ScriptDir\Light.reg"
}
ElseIf($Mode -eq "Dark"){
   Write-Host ("LOG: Parameter used. Setting theme to Dark.")
   $Wallpaper = $DarkWallpaper
   $RegFile = "$ScriptDir\Dark.reg"
}
# Set light or darkmode based on time if no parameter is used
Else {
   # Get sunrise and sunset values
   If ($ApiKey -eq ""){
      # Use demo API if no key is configured
      Write-Host ("LOG: No API configured. Using Amsterdam as location.")
      $WebResponse = Invoke-WebRequest -Uri "https://weerlive.nl/api/json-data-10min.php?key=demo&locatie=Amsterdam" -ContentType 'application/json'
   }
   Else{
      # Use key and city when configured
      Write-Host ("LOG: API key is configured. Using $City as location.")
      $WebResponse = Invoke-WebRequest -Uri "https://weerlive.nl/api/json-data-10min.php?key=$ApiKey&locatie=$City" -ContentType 'application/json'
   }

   $WebResponse = $WebResponse.Content | ConvertFrom-Json
   Write-Host ("LOG: Sunset time is: "+$WebResponse.liveweer.sunder)
   $Sunset = $WebResponse.liveweer.sunder -replace ":",""
   $Sunset = $Sunset | Where-Object {$_.trim() -ne "" }
   Write-Host ("LOG: Sunrise time is: "+$WebResponse.liveweer.sup)
   $Sunrise = $WebResponse.liveweer.sup -replace ":",""
   $Sunrise = $Sunrise | Where-Object {$_.trim() -ne "" }
   $CurrentTime = Get-Date -Format HHmm
   $CurrentTime = $CurrentTime | Where-Object {$_.trim() -ne "" }

   # Set to light mode between sunrise and sunset
   If($CurrentTime -gt $Sunrise -and $CurrentTime -lt $Sunset){
      Write-Host ("LOG: It's between sunrise and sunset. Setting theme to Light.")
      $Wallpaper = $LightWallpaper
      $RegFile = "$ScriptDir\Light.reg"
   }
   # Set to dark mode from sunset to sunrise
   Else {
      Write-Host ("LOG: It's between sunset and sunrise. Setting theme to Dark.")
      $Wallpaper = $DarkWallpaper
      $RegFile = "$ScriptDir\Dark.reg"
   }
}

# Apply settings based on set variables
Write-Host ("LOG: Import registry settings from: $RegFile")
reg import $RegFile
Stop-Process -Name explorer -Force

If($LightWallpaper -ne "" -and $DarkWallpaper -ne ""){
$code = @'
   using System.Runtime.InteropServices;
   namespace Win32{

      public class Wallpaper{
         [DllImport("user32.dll", CharSet=CharSet.Auto)]
            static extern int SystemParametersInfo (int uAction , int uParam , string lpvParam , int fuWinIni) ;

            public static void SetWallpaper(string thePath){
               SystemParametersInfo(20,0,thePath,3);
            }
      }
   }
'@

Add-Type $code
Write-Host ("LOG: Setting background image: $Wallpaper")
[Win32.Wallpaper]::SetWallpaper($Wallpaper)
}
Write-Host ("")