chore(spike): close the first-logon privacy page before driving input

Author: datlechin

spikes/wingates2/ci/display.ps1 spikes/wingates2/ci/desktop.ps1spikes/wingates2/ci/display.ps1 renamed to spikes/wingates2/ci/desktop.ps1

@@ -27,3 +27,35 @@ function Set-Display([int]$Width, [int]$Height) {
     $after = [System.Windows.Forms.Screen]::PrimaryScreen.Bounds
     "before=$($before.Width)x$($before.Height) change=$code after=$($after.Width)x$($after.Height)"
 }
+
+Add-Type -Namespace Wg2 -Name Foreground -MemberDefinition @'
+[DllImport("user32.dll")] public static extern IntPtr GetForegroundWindow();
+[DllImport("user32.dll")] public static extern uint GetWindowThreadProcessId(IntPtr hwnd, out uint pid);
+'@
+
+function Get-ForegroundProcess {
+    [uint32]$owner = 0
+    [Wg2.Foreground]::GetWindowThreadProcessId([Wg2.Foreground]::GetForegroundWindow(), [ref]$owner) | Out-Null
+    $p = Get-Process -Id $owner -ErrorAction SilentlyContinue
+    if ($p) { "$($p.ProcessName) ($owner)" } else { "pid $owner" }
+}
+
+# The Windows 11 Arm64 image signs in to "Choose privacy settings for your device", which covers the desktop and
+# keeps the foreground. The policy keeps it from coming back; the open page still has to be closed.
+function Clear-FirstLogon {
+    $log = @("foreground before: $(Get-ForegroundProcess)")
+    New-Item -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\OOBE' -Force | Out-Null
+    Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\OOBE' -Name 'DisablePrivacyExperience' -Value 1 -Type DWord
+    $owner = (Get-ForegroundProcess) -replace ' \(.*', ''
+    $names = @('WWAHost', 'CloudExperienceHostBroker', 'UserOOBEBroker')
+    if ($owner -notin @('explorer', 'pwsh', 'powershell', 'Runner.Worker', 'pid 0')) { $names += $owner }
+    foreach ($name in $names | Select-Object -Unique) {
+        foreach ($p in Get-Process -Name $name -ErrorAction SilentlyContinue) {
+            $log += "stopping $($p.ProcessName) ($($p.Id)) title='$($p.MainWindowTitle)'"
+            Stop-Process -Id $p.Id -Force -ErrorAction SilentlyContinue
+        }
+    }
+    Start-Sleep 3
+    $log += "foreground after: $(Get-ForegroundProcess)"
+    $log -join '; '
+}

spikes/wingates2/ci/run-grid.ps1

@@ -19,7 +19,8 @@ function Timed([string]$name, [scriptblock]$body) {
     Write-Host "== $name took $($build["${name}_s"]) s"
 }
 
-. (Join-Path $PSScriptRoot 'display.ps1')
+. (Join-Path $PSScriptRoot 'desktop.ps1')
+$build.first_logon = Clear-FirstLogon
 $build.display = Set-Display -Width 1920 -Height 1080
 $build.dotnet = (dotnet --version)
 

spikes/wingates2/ime/install-ime.ps1

@@ -9,16 +9,7 @@ $telex = '042A:{C2CB2CF0-AF47-413E-9780-8BC3A3C16068}{5FB02EC5-0A77-4684-B4FA-DE
 $pinyin = '0804:{81D4E9C9-1D3B-41BC-9E6C-4B40BF79E35E}{FA550B04-5AD7-411F-A5AC-CA038EC515D7}'
 
 $sw = [Diagnostics.Stopwatch]::StartNew()
-$list = Get-WinUserLanguageList
-foreach ($tag in 'vi', 'zh-Hans-CN') {
-    if (-not ($list.LanguageTag -contains $tag)) { $list.Add($tag) }
-}
-foreach ($entry in $list) {
-    if ($entry.LanguageTag -eq 'vi') { $entry.InputMethodTips.Clear(); $entry.InputMethodTips.Add($telex) }
-    if ($entry.LanguageTag -eq 'zh-Hans-CN') { $entry.InputMethodTips.Clear(); $entry.InputMethodTips.Add($pinyin) }
-}
-Set-WinUserLanguageList $list -Force
-Log (Get-WinUserLanguageList | Select-Object LanguageTag, InputMethodTips)
+Log (powershell.exe -NoProfile -ExecutionPolicy Bypass -File (Join-Path $PSScriptRoot 'set-languages.ps1') 2>&1)
 
 Add-Type -Namespace Wg2 -Name Input -MemberDefinition @'
 [DllImport("input.dll", CharSet = CharSet.Unicode, SetLastError = true)] public static extern bool InstallLayoutOrTip(string profile, uint flags);

spikes/wingates2/ime/run-ime.ps1

@@ -8,12 +8,17 @@ $rid = "win-$Arch"
 $platform = if ($Arch -eq 'arm64') { 'ARM64' } else { 'x64' }
 New-Item -ItemType Directory -Force -Path $Out, "$Out\shots" | Out-Null
 
+. (Join-Path $PSScriptRoot '..\ci\desktop.ps1')
+$desktop = [ordered]@{ first_logon = Clear-FirstLogon; display = Set-Display -Width 1920 -Height 1080 }
+
 $sw = [Diagnostics.Stopwatch]::StartNew()
 dotnet publish "$PSScriptRoot\app\ImeHarness.csproj" -c Release -r $rid "-p:Platform=$platform" -o "$env:RUNNER_TEMP\ime-app" | Out-Host
 if ($LASTEXITCODE -ne 0) { throw 'harness publish failed' }
 dotnet publish "$PSScriptRoot\driver\ImeUia.csproj" -c Release -r $rid -o "$env:RUNNER_TEMP\ime-driver" | Out-Host
 if ($LASTEXITCODE -ne 0) { throw 'driver publish failed' }
-Write-Host "== build took $([int]$sw.Elapsed.TotalSeconds) s"
+$desktop.build_s = [int]$sw.Elapsed.TotalSeconds
+$desktop | ConvertTo-Json | Set-Content "$Out\desktop.json"
+Get-Content "$Out\desktop.json" | Out-Host
 
 $driver = Start-Process "$env:RUNNER_TEMP\ime-driver\ImeUia.exe" -ArgumentList "serve `"$Out`" 900" -PassThru -RedirectStandardOutput "$Out\driver-stdout.txt" -RedirectStandardError "$Out\driver-stderr.txt"
 $app = Start-Process "$env:RUNNER_TEMP\ime-app\ImeHarness.exe" -ArgumentList "`"$Out`"" -PassThru

spikes/wingates2/ime/set-languages.ps1

@@ -0,0 +1,17 @@
+# Runs under Windows PowerShell 5.1: in PowerShell 7 the International module loads through implicit remoting,
+# and the language list comes back as deserialized objects without Add().
+$telex = '042A:{C2CB2CF0-AF47-413E-9780-8BC3A3C16068}{5FB02EC5-0A77-4684-B4FA-DEF8A2195628}'
+$pinyin = '0804:{81D4E9C9-1D3B-41BC-9E6C-4B40BF79E35E}{FA550B04-5AD7-411F-A5AC-CA038EC515D7}'
+
+$list = Get-WinUserLanguageList
+"before: $(($list | ForEach-Object { "$($_.LanguageTag)[$($_.InputMethodTips -join ',')]" }) -join ' ')"
+foreach ($tag in 'en-US', 'vi', 'zh-Hans-CN') {
+    if (-not ($list | Where-Object LanguageTag -eq $tag)) { $list.Add($tag) }
+}
+foreach ($entry in $list) {
+    if ($entry.LanguageTag -eq 'vi') { $entry.InputMethodTips.Clear(); $entry.InputMethodTips.Add($telex) }
+    if ($entry.LanguageTag -eq 'zh-Hans-CN') { $entry.InputMethodTips.Clear(); $entry.InputMethodTips.Add($pinyin) }
+}
+Set-WinUserLanguageList $list -Force
+$after = Get-WinUserLanguageList
+"after: $(($after | ForEach-Object { "$($_.LanguageTag)[$($_.InputMethodTips -join ',')]" }) -join ' ')"