dsh-spectacles 0.0.0-stage → 1.0.0

package/scripts/look2.ps1

@@ -0,0 +1,214 @@
+param(
+  [string]$Window = "",
+  [string]$Crop = "",
+  [double]$Scale = 1.0,
+  [switch]$Image,
+  [switch]$List,
+  [string]$Out = "",
+  [string]$SaveDir = ""
+)
+$DataDir = if ($env:DSH_LOOK_DATA) { $env:DSH_LOOK_DATA } else { Join-Path $env:TEMP 'dsh-look' }
+if (-not (Test-Path $DataDir)) { New-Item -ItemType Directory -Force -Path $DataDir | Out-Null }
+if (-not $SaveDir) { $SaveDir = $DataDir }
+$ErrorActionPreference = 'Stop'
+
+Add-Type -AssemblyName System.Drawing
+Add-Type -ReferencedAssemblies System.Drawing -TypeDefinition @"
+using System;
+using System.Text;
+using System.Collections.Generic;
+using System.Runtime.InteropServices;
+
+public class W2 {
+  public delegate bool EnumProc(IntPtr h, IntPtr p);
+  [DllImport("user32.dll")] public static extern bool EnumWindows(EnumProc cb, IntPtr p);
+  [DllImport("user32.dll", CharSet=CharSet.Unicode)] public static extern int GetWindowText(IntPtr h, StringBuilder s, int n);
+  [DllImport("user32.dll")] public static extern bool IsWindowVisible(IntPtr h);
+  [DllImport("user32.dll")] public static extern bool GetWindowRect(IntPtr h, out RECT r);
+  [DllImport("user32.dll")] public static extern uint GetWindowThreadProcessId(IntPtr h, out uint pid);
+  [DllImport("user32.dll")] public static extern int GetWindowLong(IntPtr h, int idx);
+  [DllImport("user32.dll")] public static extern bool PrintWindow(IntPtr h, IntPtr hdc, uint flags);
+
+  public struct RECT { public int Left, Top, Right, Bottom; }
+
+  public class Win { public IntPtr H; public string Title; public uint Pid; public int L, T, R, B; }
+
+  public static List<Win> List() {
+    var res = new List<Win>();
+    EnumWindows((h, p) => {
+      if (!IsWindowVisible(h)) return true;
+      var sb = new StringBuilder(512);
+      GetWindowText(h, sb, 512);
+      string t = sb.ToString();
+      if (t.Length == 0) return true;
+      RECT r; if (!GetWindowRect(h, out r)) return true;
+      uint pid; GetWindowThreadProcessId(h, out pid);
+      var w = new Win(); w.H = h; w.Title = t; w.Pid = pid;
+      w.L = r.Left; w.T = r.Top; w.R = r.Right; w.B = r.Bottom;
+      res.Add(w);
+      return true;
+    }, IntPtr.Zero);
+    return res;
+  }
+}
+"@
+
+function Resolve-Window([string]$sel) {
+  $all = [W2]::List()
+
+  # picked：用人点过的那一个（look-pick.ps1 写 picked.json）
+  if ($sel -eq 'picked') {
+    $pf = Join-Path $DataDir 'picked.json'
+    if (-not (Test-Path $pf)) { return $null }
+    $pj = Get-Content $pf -Raw -Encoding UTF8 | ConvertFrom-Json
+    $h = [IntPtr][long]$pj.hwnd
+    return ($all | Where-Object { $_.H -eq $h } | Select-Object -First 1)
+  }
+
+  # @名字：查白名单 windows.json
+  if ($sel.StartsWith('@')) {
+    $name = $sel.Substring(1)
+    $cf = Join-Path $DataDir 'windows.json'
+    if (-not (Test-Path $cf)) { return $null }
+    $cfg = Get-Content $cf -Raw -Encoding UTF8 | ConvertFrom-Json
+    $entry = $cfg.windows | Where-Object { $_.name -eq $name } | Select-Object -First 1
+    if (-not $entry) { return $null }
+    if ($entry.title) { return ($all | Where-Object { $_.Title -like "*$($entry.title)*" } | Select-Object -First 1) }
+    return $null
+  }
+
+  if ($sel -match '^\d+$') {
+    $h = [IntPtr][long]$sel
+    return ($all | Where-Object { $_.H -eq $h } | Select-Object -First 1)
+  }
+  if ($sel -match '^pid:(\d+)$') {
+    $p = [uint32]$Matches[1]
+    return ($all | Where-Object { $_.Pid -eq $p } | Select-Object -First 1)
+  }
+  return ($all | Where-Object { $_.Title -like "*$sel*" } | Select-Object -First 1)
+}
+
+if ($List) {
+  $all = [W2]::List() | Where-Object { ($_.R - $_.L) -gt 0 -and ($_.B - $_.T) -gt 0 }
+  $rows = @()
+  foreach ($w in $all) {
+    $rows += [ordered]@{
+      hwnd  = [int64]$w.H
+      pid   = $w.Pid
+      title = $w.Title
+      rect  = [ordered]@{ x = $w.L; y = $w.T; w = ($w.R - $w.L); h = ($w.B - $w.T) }
+    }
+  }
+  [ordered]@{ ok = $true; count = $rows.Count; windows = $rows } | ConvertTo-Json -Compress -Depth 6
+  exit 0
+}
+if (-not $Window) { throw "need -Window (hwnd | title | pid:1234)" }
+
+$w = Resolve-Window $Window
+if (-not $w) { @{ ok = $false; error = "window not found: $Window" } | ConvertTo-Json -Compress; exit 1 }
+
+$ww = $w.R - $w.L
+$wh = $w.B - $w.T
+if ($ww -le 0 -or $wh -le 0) { @{ ok = $false; error = "bad rect" } | ConvertTo-Json -Compress; exit 1 }
+
+$full = [System.Drawing.Bitmap]::new([int]$ww, [int]$wh)
+$g = [System.Drawing.Graphics]::FromImage($full)
+$hdc = $g.GetHdc()
+$ok = [W2]::PrintWindow($w.H, $hdc, 2)
+$g.ReleaseHdc($hdc)
+$g.Dispose()
+if (-not $ok) { @{ ok = $false; error = "PrintWindow failed" } | ConvertTo-Json -Compress; exit 1 }
+
+# 可选区域裁剪（相对窗口左上角）
+$rect = New-Object System.Drawing.Rectangle 0, 0, $ww, $wh
+if ($Crop) {
+  $c = $Crop -split ','
+  $rect = New-Object System.Drawing.Rectangle ([int]$c[0]), ([int]$c[1]), ([int]$c[2]), ([int]$c[3])
+  if ($rect.X -lt 0) { $rect.X = 0 }
+  if ($rect.Y -lt 0) { $rect.Y = 0 }
+  if ($rect.X + $rect.Width -gt $ww) { $rect.Width = $ww - $rect.X }
+  if ($rect.Y + $rect.Height -gt $wh) { $rect.Height = $wh - $rect.Y }
+}
+
+$img = $full.Clone($rect, [System.Drawing.Imaging.PixelFormat]::Format32bppArgb)
+
+# 统计：平均色 + 边缘密度 + 64x36 灰度网格（用于比对"有没有变"）
+$bw = 64; $bh = 36
+$small = [System.Drawing.Bitmap]::new([int]$bw, [int]$bh)
+$gs = [System.Drawing.Graphics]::FromImage($small)
+$gs.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
+$gs.DrawImage($img, 0, 0, $bw, $bh)
+$gs.Dispose()
+
+$grid = New-Object 'int[]' ($bw * $bh)
+$sumR = 0.0; $sumG = 0.0; $sumB = 0.0; $n = 0
+for ($y = 0; $y -lt $bh; $y++) {
+  for ($x = 0; $x -lt $bw; $x++) {
+    $c = $small.GetPixel($x, $y)
+    $gray = [int](0.299 * $c.R + 0.587 * $c.G + 0.114 * $c.B)
+    $grid[$y * $bw + $x] = $gray
+    $sumR += $c.R; $sumG += $c.G; $sumB += $c.B; $n++
+  }
+}
+
+# 边缘密度：相邻像素差 > 24 的比例
+$edge = 0; $tot = 0
+for ($y = 0; $y -lt $bh; $y++) {
+  for ($x = 1; $x -lt $bw; $x++) {
+    $d = [Math]::Abs($grid[$y * $bw + $x] - $grid[$y * $bw + $x - 1])
+    if ($d -gt 24) { $edge++ }
+    $tot++
+  }
+}
+$edgeDensity = [Math]::Round($edge / [Math]::Max(1, $tot), 4)
+
+$key = "w$($w.Pid)_$($rect.X)_$($rect.Y)_$($rect.Width)x$($rect.Height)"
+if (-not (Test-Path $SaveDir)) { New-Item -ItemType Directory -Path $SaveDir -Force | Out-Null }
+$lastFile = Join-Path $SaveDir "last-$key.txt"
+$sig = ($grid -join ',')
+$changed = $null
+if (Test-Path $lastFile) {
+  $prev = Get-Content $lastFile -Raw
+  if ($prev) { $changed = -not ($prev -eq $sig) }
+}
+Set-Content -Path $lastFile -Value $sig -NoNewline
+
+$pngPath = $null
+if ($Image) {
+  if (-not $Out) { $Out = Join-Path $SaveDir ("win-" + (Get-Date -Format 'HHmmss') + ".png") }
+  $dir = Split-Path $Out -Parent
+  if ($dir -and -not (Test-Path $dir)) { New-Item -ItemType Directory -Path $dir -Force | Out-Null }
+  if ($Scale -gt 1) {
+    $sx = [int]($img.Width * $Scale); $sy = [int]($img.Height * $Scale)
+    $big = [System.Drawing.Bitmap]::new([int]$sx, [int]$sy)
+    $gb = [System.Drawing.Graphics]::FromImage($big)
+    $gb.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
+    $gb.DrawImage($img, 0, 0, $sx, $sy)
+    $gb.Dispose()
+    $big.Save($Out, [System.Drawing.Imaging.ImageFormat]::Png)
+    $big.Dispose()
+  } else {
+    $img.Save($Out, [System.Drawing.Imaging.ImageFormat]::Png)
+  }
+  $pngPath = $Out
+}
+
+$avg = "#{0:X2}{1:X2}{2:X2}" -f [int]($sumR / $n), [int]($sumG / $n), [int]($sumB / $n)
+
+$res = [ordered]@{
+  ok        = $true
+  when      = (Get-Date -Format 'yyyy-MM-dd HH:mm:ss.fff')
+  source    = 'printwindow'
+  window    = [ordered]@{ hwnd = [int64]$w.H; title = $w.Title; pid = $w.Pid; rect = @($w.L, $w.T, $ww, $wh) }
+  region    = @($rect.X, $rect.Y, $rect.Width, $rect.Height)
+  avgColor  = $avg
+  edgeDensity = $edgeDensity
+  changed   = $changed
+  grid      = "$bw x $bh"
+}
+if ($pngPath) { $res.png = $pngPath }
+
+$img.Dispose(); $full.Dispose(); $small.Dispose()
+
+$res | ConvertTo-Json -Compress
+

package/scripts/read-text.ps1

@@ -0,0 +1,198 @@
+param(
+  [string]$Crop = '',
+  [string]$File = '',
+  [int]$S1 = 3,
+  [int]$S2 = 4
+)
+
+$ErrorActionPreference = 'Stop'
+[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
+
+Add-Type -AssemblyName System.Runtime.WindowsRuntime
+Add-Type -AssemblyName System.Drawing
+
+$tmpDir = if ($env:DSH_LOOK_DATA) { $env:DSH_LOOK_DATA } else { Join-Path $env:TEMP 'dsh-look' }
+if (-not (Test-Path $tmpDir)) { New-Item -ItemType Directory -Force -Path $tmpDir | Out-Null }
+
+$src = $File
+if ($Crop -ne '') {
+  $stamp = Get-Date -Format 'yyyyMMdd-HHmmss-fff'
+  $dst = Join-Path $tmpDir "read-$stamp.png"
+  if ($File -ne '' -and (Test-Path $File)) {
+    # 已经有图：从这张图上裁（窗口截图 + 相对窗口的 crop 走这一条）
+    $im = [System.Drawing.Bitmap]::FromFile($File)
+    try {
+      $c = $Crop -split ','
+      if ($c.Length -eq 4) {
+        $rx = [Math]::Max(0, [int]$c[0]); $ry = [Math]::Max(0, [int]$c[1])
+        $rw = [int]$c[2]; $rh = [int]$c[3]
+        if ($rx -ge $im.Width) { $rx = 0 }
+        if ($ry -ge $im.Height) { $ry = 0 }
+        if ($rx + $rw -gt $im.Width) { $rw = $im.Width - $rx }
+        if ($ry + $rh -gt $im.Height) { $rh = $im.Height - $ry }
+        if ($rw -ge 1 -and $rh -ge 1) {
+          $rect = New-Object System.Drawing.Rectangle $rx, $ry, $rw, $rh
+          $bmp = $im.Clone($rect, $im.PixelFormat)
+          $bmp.Save($dst, [System.Drawing.Imaging.ImageFormat]::Png)
+          $bmp.Dispose()
+          $src = $dst
+        }
+      }
+    }
+    finally { $im.Dispose() }
+  }
+  else {
+    # 没有现成的图：整屏抓一块
+    $look = Join-Path $PSScriptRoot 'look.ps1'
+    $larg = @('-NoProfile', '-ExecutionPolicy', 'Bypass', '-File', $look, '-Crop', $Crop, '-Image', '-Out', $dst)
+    & powershell.exe @larg | Out-Null
+    if (Test-Path $dst) { $src = $dst }
+  }
+}
+if (-not (Test-Path $src)) { '{"ok":false,"error":"no image"}'; exit 1 }
+
+$asTask = ([System.WindowsRuntimeSystemExtensions].GetMethods() | Where-Object {
+    $_.Name -eq 'AsTask' -and $_.GetParameters().Count -eq 1 -and
+    $_.GetParameters()[0].ParameterType.Name -eq 'IAsyncOperation`1'
+  })[0]
+function Await($op, $type) {
+  $t = $asTask.MakeGenericMethod($type).Invoke($null, @($op))
+  $t.Wait()
+  return $t.Result
+}
+[Windows.Storage.StorageFile, Windows.Storage, ContentType = WindowsRuntime] | Out-Null
+[Windows.Graphics.Imaging.BitmapDecoder, Windows.Graphics.Imaging, ContentType = WindowsRuntime] | Out-Null
+[Windows.Media.Ocr.OcrEngine, Windows.Foundation, ContentType = WindowsRuntime] | Out-Null
+
+$engine = [Windows.Media.Ocr.OcrEngine]::TryCreateFromUserProfileLanguages()
+if ($null -eq $engine) { '{"ok":false,"error":"no ocr engine"}'; exit 1 }
+
+$base = [System.Drawing.Image]::FromFile($src)
+$sw = [System.Diagnostics.Stopwatch]::StartNew()
+
+function Join-OcrWords($words) {
+  # Windows OCR 把中文的每个字当一个 word，直接拼 $_.Text 会变成「新 会 话」。
+  # 按字框之间的空隙判：挨得紧就连着写，明显分开才补一个空格。
+  $sb = New-Object System.Text.StringBuilder
+  $prev = $null
+  foreach ($w in $words) {
+    $t = $w.Text
+    if ([string]::IsNullOrEmpty($t)) { continue }
+    if ($null -ne $prev) {
+      $gap = $w.BoundingRect.X - ($prev.BoundingRect.X + $prev.BoundingRect.Width)
+      $hh = [Math]::Max($w.BoundingRect.Height, $prev.BoundingRect.Height)
+      if ($gap -gt ($hh * 0.20)) { [void]$sb.Append(' ') }
+    }
+    [void]$sb.Append($t)
+    $prev = $w
+  }
+  return $sb.ToString()
+}
+
+function Ocr-Scaled($img, [int]$scale, [string]$tag) {
+  $bw = $img.Width * $scale
+  $bh = $img.Height * $scale
+  $b = New-Object System.Drawing.Bitmap $bw, $bh
+  $g = [System.Drawing.Graphics]::FromImage($b)
+  $g.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
+  $g.DrawImage($img, 0, 0, $bw, $bh)
+  $g.Dispose()
+  $png = Join-Path $tmpDir ("ocr-" + $tag + ".png")
+  $b.Save($png, [System.Drawing.Imaging.ImageFormat]::Png)
+  $b.Dispose()
+
+  $f = Await ([Windows.Storage.StorageFile]::GetFileFromPathAsync($png)) ([Windows.Storage.StorageFile])
+  $st = Await ($f.OpenAsync([Windows.Storage.FileAccessMode]::Read)) ([Windows.Storage.Streams.IRandomAccessStream])
+  $dec = Await ([Windows.Graphics.Imaging.BitmapDecoder]::CreateAsync($st)) ([Windows.Graphics.Imaging.BitmapDecoder])
+  $sb = Await ($dec.GetSoftwareBitmapAsync()) ([Windows.Graphics.Imaging.SoftwareBitmap])
+  $r = Await ($engine.RecognizeAsync($sb)) ([Windows.Media.Ocr.OcrResult])
+  $st.Dispose()
+  return @($r.Lines | ForEach-Object { Join-OcrWords $_.Words })
+}
+
+# Windows OCR 有单边像素上限（OcrEngine.MaxImageDimension），整屏放大 3x/4x 会超限
+$maxDim = 10000
+try { $maxDim = [int][Windows.Media.Ocr.OcrEngine]::MaxImageDimension } catch {}
+if ($maxDim -le 0) { $maxDim = 10000 }
+
+# 图本身比上限还大时先整体缩小（否则连 1x 都过不了）
+$longSide = [Math]::Max($base.Width, $base.Height)
+$capped = $false
+if ($longSide -gt $maxDim) {
+  $f = $maxDim / $longSide
+  $nw = [int][Math]::Max(1, [Math]::Floor($base.Width * $f))
+  $nh = [int][Math]::Max(1, [Math]::Floor($base.Height * $f))
+  $small = New-Object System.Drawing.Bitmap $nw, $nh
+  $gs = [System.Drawing.Graphics]::FromImage($small)
+  $gs.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
+  $gs.DrawImage($base, 0, 0, $nw, $nh)
+  $gs.Dispose()
+  $base.Dispose()
+  $base = $small
+  $capped = $true
+  $longSide = [Math]::Max($nw, $nh)
+}
+
+$cap = [int][Math]::Floor($maxDim / [Math]::Max(1, $longSide))
+if ($cap -lt 1) { $cap = 1 }
+$s1 = [Math]::Min($S1, $cap); if ($s1 -lt 1) { $s1 = 1 }
+$s2 = [Math]::Min($S2, $cap); if ($s2 -lt 1) { $s2 = 1 }
+# 两轮要不同倍率才有比对意义
+if ($s1 -eq $s2 -and $s2 -gt 1) { $s1 = $s2 - 1 }
+
+$h1 = @(Ocr-Scaled $base $s1 "a")
+$h2 = @(Ocr-Scaled $base $s2 "b")
+$base.Dispose()
+$sw.Stop()
+
+$A = @($h1 | Where-Object { $_.Trim() -ne '' })
+$B = @($h2 | Where-Object { $_.Trim() -ne '' })
+
+function Sim($x, $y) {
+  if ($x -eq $y) { return 1.0 }
+  $cx = @{}; foreach ($c in $x.ToCharArray()) { $cx[$c] = 1 + ($cx[$c] -as [int]) }
+  $used = 0
+  foreach ($c in $y.ToCharArray()) { if (($cx[$c] -as [int]) -gt 0) { $cx[$c] = $cx[$c] - 1; $used++ } }
+  $max = [Math]::Max($x.Length, $y.Length)
+  if ($max -eq 0) { return 1.0 }
+  return [double]$used / $max
+}
+
+$items = New-Object System.Collections.ArrayList
+$usedB = New-Object 'bool[]' $B.Count
+foreach ($a in $A) {
+  $best = -1; $bestS = 0.0
+  for ($j = 0; $j -lt $B.Count; $j++) {
+    if ($usedB[$j]) { continue }
+    $s = Sim $a $B[$j]
+    if ($s -gt $bestS) { $bestS = $s; $best = $j }
+  }
+  if ($best -ge 0 -and $bestS -ge 0.6) {
+    $usedB[$best] = $true
+    if ($B[$best] -eq $a) {
+      [void]$items.Add(@{ text = $a; consistent = $true })
+    } else {
+      $x = $a; $y = $B[$best]
+      if ($y.Length -gt $x.Length) { $x = $B[$best]; $y = $a }
+      [void]$items.Add(@{ text = $x; alt = $y; consistent = $false })
+    }
+  } else {
+    [void]$items.Add(@{ text = $a; alt = $null; consistent = $false; uncertain = $true })
+  }
+}
+
+$chars = 0
+foreach ($it in $items) { $chars += $it.text.Length }
+
+$obj = [ordered]@{
+  ok       = $true
+  file     = $src
+  scales   = @($s1, $s2)
+  capped   = $capped
+  lines    = $items
+  chars    = $chars
+  disagree = @($items | Where-Object { -not $_.consistent }).Count
+  ms       = $sw.ElapsedMilliseconds
+}
+$obj | ConvertTo-Json -Depth 6 -Compress
+

package/scripts/selftest.ps1

@@ -0,0 +1,152 @@
+# Spectacles self-test
+# Runs on a machine where the plugin was just installed and reports what works.
+# Usage:  powershell -NoProfile -ExecutionPolicy Bypass -File selftest.ps1 [-Json]
+# Exit code 0 = all required checks passed, 1 = something required failed.
+
+param([switch]$Json)
+
+$ErrorActionPreference = 'Continue'
+$here = $PSScriptRoot
+$dataDir = if ($env:DSH_LOOK_DATA) { $env:DSH_LOOK_DATA } else { Join-Path $env:TEMP 'dsh-look-selftest' }
+if (-not (Test-Path $dataDir)) { New-Item -ItemType Directory -Force -Path $dataDir | Out-Null }
+
+$checks = New-Object System.Collections.ArrayList
+function Add-Check([string]$name, [bool]$ok, [string]$detail, [bool]$required = $true) {
+  [void]$checks.Add([ordered]@{ name = $name; ok = $ok; required = $required; detail = $detail })
+}
+
+# ---------------------------------------------------------------- environment
+$os = [Environment]::OSVersion.Version
+Add-Check 'windows' ($os.Major -ge 10) ('Windows ' + $os.Major + '.' + $os.Minor + ' build ' + $os.Build)
+
+$psv = $PSVersionTable.PSVersion
+Add-Check 'powershell' ($psv.Major -ge 5) ('PowerShell ' + $psv.ToString())
+
+$needed = @('look.ps1', 'look2.ps1', 'look-pick.ps1', 'read-text.ps1', 'look-region.ps1')
+$missing = @()
+foreach ($n in $needed) { if (-not (Test-Path (Join-Path $here $n))) { $missing += $n } }
+$scriptDetail = 'all ' + $needed.Count + ' scripts present'
+if ($missing.Count -gt 0) { $scriptDetail = 'missing: ' + ($missing -join ', ') }
+Add-Check 'scripts' ($missing.Count -eq 0) $scriptDetail
+
+$probe = Join-Path $dataDir 'write-probe.txt'
+$writable = $false
+try {
+  Set-Content -Path $probe -Value 'ok' -ErrorAction Stop
+  $writable = (Test-Path $probe)
+  Remove-Item $probe -Force -ErrorAction SilentlyContinue
+} catch { $writable = $false }
+Add-Check 'temp-writable' $writable $dataDir
+
+# ---------------------------------------------------------------- display
+if (-not ('YM.SelfTest' -as [type])) {
+  Add-Type -Namespace YM -Name SelfTest -MemberDefinition @'
+[DllImport("user32.dll")] public static extern int GetSystemMetrics(int n);
+[DllImport("user32.dll")] public static extern uint GetDpiForSystem();
+[DllImport("user32.dll")] public static extern bool SetProcessDPIAware();
+'@
+}
+try { [void][YM.SelfTest]::SetProcessDPIAware() } catch {}
+
+$sw = [YM.SelfTest]::GetSystemMetrics(0)
+$sh = [YM.SelfTest]::GetSystemMetrics(1)
+Add-Check 'screen-size' ($sw -gt 0 -and $sh -gt 0) ($sw.ToString() + ' x ' + $sh)
+
+$dpi = 96
+try { $dpi = [int][YM.SelfTest]::GetDpiForSystem() } catch {}
+Add-Check 'dpi' ($dpi -ge 96) ($dpi.ToString() + ' dpi (' + [math]::Round($dpi / 96 * 100) + '%)')
+
+try {
+  Add-Type -AssemblyName System.Windows.Forms -ErrorAction Stop
+  $mon = [System.Windows.Forms.Screen]::AllScreens.Count
+  Add-Check 'monitors' ($mon -ge 1) ($mon.ToString() + ' monitor(s)')
+} catch {
+  Add-Check 'monitors' $false ('could not query: ' + $_.Exception.Message) $false
+}
+
+# ---------------------------------------------------------------- full screen
+$full = Join-Path $dataDir 'selftest-full.png'
+$fullOut = & powershell -NoProfile -ExecutionPolicy Bypass -File (Join-Path $here 'look.ps1') -Image -Out $full 2>&1 | Out-String
+$fullOk = $false
+$fullDetail = $fullOut.Trim()
+try {
+  $o = $fullOut | ConvertFrom-Json
+  $fullOk = [bool]$o.ok -and (Test-Path $full)
+  if ($fullOk) { $fullDetail = $o.source + ' ' + $o.screen.w + 'x' + $o.screen.h + ' in ' + $o.captureMs + 'ms' }
+} catch {}
+Add-Check 'fullscreen-capture' $fullOk $fullDetail
+
+# ---------------------------------------------------------------- window capture
+$winScript = Join-Path $here 'look2.ps1'
+$picked = $null
+try {
+  $listOut = & powershell -NoProfile -ExecutionPolicy Bypass -File $winScript -List 2>&1 | Out-String
+  $list = $listOut | ConvertFrom-Json
+  if ($list.windows) {
+    $picked = $list.windows |
+      Where-Object { $_.title -and $_.rect.w -gt 200 -and $_.rect.h -gt 120 -and $_.rect.x -gt -1000 } |
+      Select-Object -First 1
+  }
+} catch {}
+if ($picked) {
+  $winPng = Join-Path $dataDir 'selftest-window.png'
+  $winOut = & powershell -NoProfile -ExecutionPolicy Bypass -File $winScript -Window $picked.title -Image -Out $winPng 2>&1 | Out-String
+  $winOk = $false
+  $winDetail = $winOut.Trim()
+  try {
+    $o = $winOut | ConvertFrom-Json
+    $winOk = [bool]$o.ok -and (Test-Path $winPng)
+    if ($winOk) { $winDetail = '"' + $picked.title + '" ' + $o.region[2] + 'x' + $o.region[3] + ' via ' + $o.source }
+  } catch {}
+  Add-Check 'window-capture' $winOk $winDetail
+} else {
+  Add-Check 'window-capture' $false 'no capturable window found (open Notepad and rerun)' $false
+}
+
+# ---------------------------------------------------------------- OCR
+if (Test-Path $full) {
+  $ocrOut = & powershell -NoProfile -ExecutionPolicy Bypass -File (Join-Path $here 'read-text.ps1') -File $full 2>&1 | Out-String
+  $ocrOk = $false
+  $ocrDetail = 'no output'
+  try {
+    $o = $ocrOut | ConvertFrom-Json
+    $ocrOk = [bool]$o.ok -and ([int]$o.chars -gt 0)
+    $ocrDetail = $o.chars.ToString() + ' chars, ' + $o.disagree + ' uncertain, ' + $o.ms + 'ms'
+  } catch { $ocrDetail = $ocrOut.Trim() }
+  Add-Check 'ocr' $ocrOk $ocrDetail
+} else {
+  Add-Check 'ocr' $false 'skipped: full screen capture failed'
+}
+
+# ---------------------------------------------------------------- optional
+$ff = $env:DSH_LOOK_FFMPEG
+if ($ff) {
+  Add-Check 'ffmpeg' (Test-Path $ff) ('DSH_LOOK_FFMPEG=' + $ff) $false
+} else {
+  $g = Get-Command ffmpeg.exe -ErrorAction SilentlyContinue
+  $ffNote = 'not used (optional)'
+  if ($g) { $ffNote = 'found on PATH, not used (optional)' }
+  Add-Check 'ffmpeg' $true $ffNote $false
+}
+
+# ---------------------------------------------------------------- report
+$failed = @($checks | Where-Object { $_.required -and -not $_.ok })
+$ok = ($failed.Count -eq 0)
+
+if ($Json) {
+  [ordered]@{ ok = $ok; machine = $env:COMPUTERNAME; checks = $checks; dataDir = $dataDir } | ConvertTo-Json -Depth 5
+} else {
+  Write-Output ('Spectacles self-test on ' + $env:COMPUTERNAME)
+  Write-Output ''
+  foreach ($c in $checks) {
+    $mark = '[FAIL]'
+    if ($c.ok) { $mark = '[ ok ]' } elseif (-not $c.required) { $mark = '[warn]' }
+    Write-Output ($mark + ' ' + $c.name.PadRight(18) + $c.detail)
+  }
+  Write-Output ''
+  if ($ok) { Write-Output 'All required checks passed.' }
+  else { Write-Output ('Failed: ' + (($failed | ForEach-Object { $_.name }) -join ', ')) }
+  Write-Output ('Artifacts: ' + $dataDir)
+}
+
+if ($ok) { exit 0 } else { exit 1 }