@mseep/clawdcursor 1.5.5

package/scripts/find-element.ps1

@@ -0,0 +1,198 @@
+<#
+.SYNOPSIS
+    Searches the UI tree for elements matching given criteria.
+.PARAMETER Name
+    Match elements whose Name property contains this string (case-insensitive).
+.PARAMETER AutomationId
+    Match elements whose AutomationId equals this string exactly.
+.PARAMETER ControlType
+    Match elements whose ControlType ProgrammaticName contains this string
+    (e.g. "Button", "Edit", "MenuItem").
+.PARAMETER ProcessId
+    If specified, only search within the window belonging to this process.
+    If omitted, searches all top-level windows.
+.PARAMETER MaxResults
+    Maximum number of results to return (default 20).
+#>
+param(
+    [string]$Name = "",
+    [string]$AutomationId = "",
+    [string]$ControlType = "",
+    [int]$ProcessId = 0,
+    [int]$MaxResults = 20
+)
+
+try {
+    Add-Type -AssemblyName UIAutomationClient
+    Add-Type -AssemblyName UIAutomationTypes
+} catch {
+    [Console]::Out.Write((@{ error = "Failed to load UI Automation assemblies: $($_.Exception.Message)" } | ConvertTo-Json -Compress))
+    exit 1
+}
+
+$ErrorActionPreference = 'Stop'
+
+try {
+    $root = [System.Windows.Automation.AutomationElement]::RootElement
+
+    # Determine the search root
+    if ($ProcessId -gt 0) {
+        $procCondition = New-Object System.Windows.Automation.PropertyCondition(
+            [System.Windows.Automation.AutomationElement]::ProcessIdProperty,
+            $ProcessId
+        )
+        $searchRoot = $root.FindFirst(
+            [System.Windows.Automation.TreeScope]::Children,
+            $procCondition
+        )
+        if ($null -eq $searchRoot) {
+            [Console]::Out.Write((@{ error = "No window found for ProcessId $ProcessId" } | ConvertTo-Json -Compress))
+            exit 0
+        }
+    } else {
+        $searchRoot = $root
+    }
+
+    # Build UIA condition for FindAll
+    $conditions = @()
+
+    if ($AutomationId -ne "") {
+        $conditions += New-Object System.Windows.Automation.PropertyCondition(
+            [System.Windows.Automation.AutomationElement]::AutomationIdProperty,
+            $AutomationId
+        )
+    }
+
+    if ($ControlType -ne "") {
+        # Map common control type names to ControlType objects
+        $ctMap = @{
+            "Button"           = [System.Windows.Automation.ControlType]::Button
+            "Calendar"         = [System.Windows.Automation.ControlType]::Calendar
+            "CheckBox"         = [System.Windows.Automation.ControlType]::CheckBox
+            "ComboBox"         = [System.Windows.Automation.ControlType]::ComboBox
+            "Custom"           = [System.Windows.Automation.ControlType]::Custom
+            "DataGrid"         = [System.Windows.Automation.ControlType]::DataGrid
+            "DataItem"         = [System.Windows.Automation.ControlType]::DataItem
+            "Document"         = [System.Windows.Automation.ControlType]::Document
+            "Edit"             = [System.Windows.Automation.ControlType]::Edit
+            "Group"            = [System.Windows.Automation.ControlType]::Group
+            "Header"           = [System.Windows.Automation.ControlType]::Header
+            "HeaderItem"       = [System.Windows.Automation.ControlType]::HeaderItem
+            "Hyperlink"        = [System.Windows.Automation.ControlType]::Hyperlink
+            "Image"            = [System.Windows.Automation.ControlType]::Image
+            "List"             = [System.Windows.Automation.ControlType]::List
+            "ListItem"         = [System.Windows.Automation.ControlType]::ListItem
+            "Menu"             = [System.Windows.Automation.ControlType]::Menu
+            "MenuBar"          = [System.Windows.Automation.ControlType]::MenuBar
+            "MenuItem"         = [System.Windows.Automation.ControlType]::MenuItem
+            "Pane"             = [System.Windows.Automation.ControlType]::Pane
+            "ProgressBar"      = [System.Windows.Automation.ControlType]::ProgressBar
+            "RadioButton"      = [System.Windows.Automation.ControlType]::RadioButton
+            "ScrollBar"        = [System.Windows.Automation.ControlType]::ScrollBar
+            "Separator"        = [System.Windows.Automation.ControlType]::Separator
+            "Slider"           = [System.Windows.Automation.ControlType]::Slider
+            "Spinner"          = [System.Windows.Automation.ControlType]::Spinner
+            "SplitButton"      = [System.Windows.Automation.ControlType]::SplitButton
+            "StatusBar"        = [System.Windows.Automation.ControlType]::StatusBar
+            "Tab"              = [System.Windows.Automation.ControlType]::Tab
+            "TabItem"          = [System.Windows.Automation.ControlType]::TabItem
+            "Table"            = [System.Windows.Automation.ControlType]::Table
+            "Text"             = [System.Windows.Automation.ControlType]::Text
+            "Thumb"            = [System.Windows.Automation.ControlType]::Thumb
+            "TitleBar"         = [System.Windows.Automation.ControlType]::TitleBar
+            "ToolBar"          = [System.Windows.Automation.ControlType]::ToolBar
+            "ToolTip"          = [System.Windows.Automation.ControlType]::ToolTip
+            "Tree"             = [System.Windows.Automation.ControlType]::Tree
+            "TreeItem"         = [System.Windows.Automation.ControlType]::TreeItem
+            "Window"           = [System.Windows.Automation.ControlType]::Window
+        }
+
+        if ($ctMap.ContainsKey($ControlType)) {
+            $conditions += New-Object System.Windows.Automation.PropertyCondition(
+                [System.Windows.Automation.AutomationElement]::ControlTypeProperty,
+                $ctMap[$ControlType]
+            )
+        }
+    }
+
+    # NOTE: Name matching is done AFTER FindAll via fuzzy match (case-insensitive
+    # contains). We do NOT add a PropertyCondition for Name — that would be exact-only
+    # and miss elements like "To recipients" when searching for "To".
+    # This matches the behavior of ps-bridge.ps1's Cmd-FindElement.
+
+    # Combine conditions
+    if ($conditions.Count -eq 0) {
+        $searchCondition = [System.Windows.Automation.Condition]::TrueCondition
+    } elseif ($conditions.Count -eq 1) {
+        $searchCondition = $conditions[0]
+    } else {
+        $searchCondition = New-Object System.Windows.Automation.AndCondition(
+            [System.Windows.Automation.Condition[]]$conditions
+        )
+    }
+
+    # Search descendants
+    $scope = [System.Windows.Automation.TreeScope]::Descendants
+    if ($ProcessId -eq 0) {
+        # If no process specified, only search children to avoid walking the entire desktop tree
+        $scope = [System.Windows.Automation.TreeScope]::Subtree
+    }
+
+    $elements = $searchRoot.FindAll($scope, $searchCondition)
+
+    $results = @()
+    $count = 0
+    $nameLower = if ($Name -ne "") { $Name.ToLower() } else { "" }
+
+    foreach ($el in $elements) {
+        if ($count -ge $MaxResults) { break }
+        try {
+            $c = $el.Current
+
+            # Fuzzy name matching (case-insensitive contains, strip keyboard shortcut suffix)
+            # e.g. searching "To" matches "To", "To recipients", "To:"
+            # e.g. searching "Save" matches "Save", "Save As...", "Save	Ctrl+S"
+            if ($nameLower -ne "") {
+                $elName = ($c.Name -replace '\t.*$', '').Trim().ToLower()
+                if ($elName.Length -eq 0) { continue }
+                if (-not $elName.Contains($nameLower) -and -not $nameLower.Contains($elName)) { continue }
+            }
+
+            $rect = $c.BoundingRectangle
+            if ([double]::IsInfinity($rect.X) -or [double]::IsInfinity($rect.Y)) {
+                $bounds = @{ x = 0; y = 0; width = 0; height = 0 }
+            } else {
+                $bounds = @{
+                    x      = [int]$rect.X
+                    y      = [int]$rect.Y
+                    width  = [int]$rect.Width
+                    height = [int]$rect.Height
+                }
+            }
+            $results += [ordered]@{
+                name         = if ($c.Name) { $c.Name } else { "" }
+                automationId = if ($c.AutomationId) { $c.AutomationId } else { "" }
+                controlType  = $c.ControlType.ProgrammaticName
+                className    = if ($c.ClassName) { $c.ClassName } else { "" }
+                processId    = $c.ProcessId
+                isEnabled    = $c.IsEnabled
+                bounds       = $bounds
+            }
+            $count++
+        } catch {
+            # Skip elements that throw on property access
+        }
+    }
+
+    # Always output a JSON array (PowerShell ConvertTo-Json returns object for single item, empty for none)
+    if ($results.Count -eq 0) {
+        [Console]::Out.Write("[]")
+    } elseif ($results.Count -eq 1) {
+        [Console]::Out.Write(("[" + ($results[0] | ConvertTo-Json -Depth 10 -Compress) + "]"))
+    } else {
+        [Console]::Out.Write(($results | ConvertTo-Json -Depth 10 -Compress))
+    }
+} catch {
+    [Console]::Out.Write((@{ error = $_.Exception.Message } | ConvertTo-Json -Compress))
+    exit 1
+}

package/scripts/get-foreground-window.ps1

@@ -0,0 +1,71 @@
+<#
+.SYNOPSIS
+    Gets the currently focused/foreground window.
+.DESCRIPTION
+    Returns JSON with info about the foreground window using Win32 GetForegroundWindow.
+#>
+
+try {
+    Add-Type -AssemblyName UIAutomationClient
+    Add-Type -AssemblyName UIAutomationTypes
+
+    # Add Win32 API for GetForegroundWindow
+    Add-Type @"
+    using System;
+    using System.Runtime.InteropServices;
+    public class Win32 {
+        [DllImport("user32.dll")]
+        public static extern IntPtr GetForegroundWindow();
+        [DllImport("user32.dll", SetLastError = true)]
+        public static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);
+    }
+"@
+} catch {
+    [Console]::Out.Write((@{ error = "Failed to load assemblies: $($_.Exception.Message)" } | ConvertTo-Json -Compress))
+    exit 1
+}
+
+$ErrorActionPreference = 'Stop'
+
+try {
+    # Get foreground window handle
+    $fgWindow = [Win32]::GetForegroundWindow()
+    
+    if ($fgWindow -eq [IntPtr]::Zero) {
+        [Console]::Out.Write((@{ error = "No foreground window found" } | ConvertTo-Json -Compress))
+        exit 1
+    }
+
+    # Get process ID
+    $processId = 0
+    [void][Win32]::GetWindowThreadProcessId($fgWindow, [ref]$processId)
+
+    # Get process name
+    $processName = "unknown"
+    try {
+        $proc = [System.Diagnostics.Process]::GetProcessById($processId)
+        $processName = $proc.ProcessName
+    } catch { }
+
+    # Get window title via UI Automation
+    $title = ""
+    try {
+        $element = [System.Windows.Automation.AutomationElement]::FromHandle($fgWindow)
+        if ($element) {
+            $title = $element.Current.Name
+        }
+    } catch { }
+
+    $result = [ordered]@{
+        handle    = [int]$fgWindow
+        processId = $processId
+        processName = $processName
+        title     = $title
+        success   = $true
+    }
+
+    [Console]::Out.Write(($result | ConvertTo-Json -Compress))
+} catch {
+    [Console]::Out.Write((@{ error = $_.Exception.Message } | ConvertTo-Json -Compress))
+    exit 1
+}

package/scripts/get-screen-context.ps1

@@ -0,0 +1,183 @@
+<#
+.SYNOPSIS
+    Combined script: gets windows list + focused window UI tree in ONE call.
+    Eliminates multiple PowerShell spawn overhead.
+.PARAMETER FocusedProcessId
+    If specified, includes the UI tree for this process's window.
+.PARAMETER MaxDepth
+    Maximum UI tree depth (default 2).
+#>
+param(
+    [int]$FocusedProcessId = 0,
+    [int]$MaxDepth = 4
+)
+
+try {
+    Add-Type -AssemblyName UIAutomationClient
+    Add-Type -AssemblyName UIAutomationTypes
+} catch {
+    [Console]::Out.Write((@{ error = "Failed to load UI Automation assemblies: $($_.Exception.Message)" } | ConvertTo-Json -Compress))
+    exit 1
+}
+
+$ErrorActionPreference = 'Stop'
+
+# Interactive control types worth including
+$interactiveTypes = @(
+    'ControlType.Button', 'ControlType.Edit', 'ControlType.ComboBox',
+    'ControlType.CheckBox', 'ControlType.RadioButton', 'ControlType.Hyperlink',
+    'ControlType.MenuItem', 'ControlType.Menu', 'ControlType.Tab',
+    'ControlType.TabItem', 'ControlType.ListItem', 'ControlType.TreeItem',
+    'ControlType.Slider', 'ControlType.Document'
+)
+
+function ConvertTo-UINode {
+    param(
+        [System.Windows.Automation.AutomationElement]$Element,
+        [int]$Depth = 0,
+        [int]$TreeMaxDepth = 4
+    )
+
+    if ($null -eq $Element) { return $null }
+
+    try { $cur = $Element.Current } catch { return $null }
+
+    $typeName = $cur.ControlType.ProgrammaticName
+    $hasName = $cur.Name -and $cur.Name.Trim().Length -gt 0
+    $isInteractive = $interactiveTypes -contains $typeName
+
+    # Skip non-interactive unnamed elements
+    if (-not $isInteractive -and -not $hasName -and $Depth -gt 0) {
+        if ($Depth -ge $TreeMaxDepth) { return $null }
+        $childNodes = @()
+        try {
+            $kids = $Element.FindAll(
+                [System.Windows.Automation.TreeScope]::Children,
+                [System.Windows.Automation.Condition]::TrueCondition
+            )
+            foreach ($kid in $kids) {
+                $childNode = ConvertTo-UINode -Element $kid -Depth ($Depth + 1) -TreeMaxDepth $TreeMaxDepth
+                if ($null -ne $childNode) { $childNodes += $childNode }
+            }
+        } catch {}
+        if ($childNodes.Count -eq 0) { return $null }
+        return $childNodes
+    }
+
+    $rect = $cur.BoundingRectangle
+    if ([double]::IsInfinity($rect.X) -or [double]::IsInfinity($rect.Y)) {
+        $bounds = @{ x = 0; y = 0; width = 0; height = 0 }
+    } else {
+        $bounds = @{
+            x      = [int]$rect.X
+            y      = [int]$rect.Y
+            width  = [int]$rect.Width
+            height = [int]$rect.Height
+        }
+    }
+
+    $node = [ordered]@{
+        name         = if ($cur.Name) { $cur.Name } else { "" }
+        automationId = if ($cur.AutomationId) { $cur.AutomationId } else { "" }
+        controlType  = $typeName
+        bounds       = $bounds
+        children     = @()
+    }
+
+    if ($Depth -lt $TreeMaxDepth) {
+        try {
+            $kids = $Element.FindAll(
+                [System.Windows.Automation.TreeScope]::Children,
+                [System.Windows.Automation.Condition]::TrueCondition
+            )
+            foreach ($kid in $kids) {
+                $childNode = ConvertTo-UINode -Element $kid -Depth ($Depth + 1) -TreeMaxDepth $TreeMaxDepth
+                if ($null -ne $childNode) {
+                    if ($childNode -is [array]) { $node.children += $childNode }
+                    else { $node.children += $childNode }
+                }
+            }
+        } catch {}
+    }
+
+    return $node
+}
+
+try {
+    $root = [System.Windows.Automation.AutomationElement]::RootElement
+
+    # 1. Get all windows
+    $windowCondition = New-Object System.Windows.Automation.PropertyCondition(
+        [System.Windows.Automation.AutomationElement]::ControlTypeProperty,
+        [System.Windows.Automation.ControlType]::Window
+    )
+    $allWindows = $root.FindAll(
+        [System.Windows.Automation.TreeScope]::Children,
+        $windowCondition
+    )
+
+    $windowList = @()
+    foreach ($win in $allWindows) {
+        try {
+            $c = $win.Current
+            if (-not $c.Name -or $c.Name.Trim().Length -eq 0) { continue }
+
+            $processName = ""
+            try {
+                $proc = [System.Diagnostics.Process]::GetProcessById($c.ProcessId)
+                $processName = $proc.ProcessName
+            } catch { $processName = "unknown" }
+
+            $rect = $c.BoundingRectangle
+            if ([double]::IsInfinity($rect.X)) {
+                $bounds = @{ x = 0; y = 0; width = 0; height = 0 }
+            } else {
+                $bounds = @{ x = [int]$rect.X; y = [int]$rect.Y; width = [int]$rect.Width; height = [int]$rect.Height }
+            }
+
+            $isMinimized = $false
+            try {
+                $winPattern = $win.GetCurrentPattern([System.Windows.Automation.WindowPattern]::Pattern)
+                if ($winPattern.Current.WindowVisualState -eq [System.Windows.Automation.WindowVisualState]::Minimized) {
+                    $isMinimized = $true
+                }
+            } catch {}
+
+            $windowList += [ordered]@{
+                handle      = $c.NativeWindowHandle
+                title       = $c.Name
+                processName = $processName
+                processId   = $c.ProcessId
+                bounds      = $bounds
+                isMinimized = $isMinimized
+            }
+        } catch {}
+    }
+
+    # 2. Get focused window UI tree if requested
+    $uiTree = $null
+    if ($FocusedProcessId -gt 0) {
+        $condition = New-Object System.Windows.Automation.PropertyCondition(
+            [System.Windows.Automation.AutomationElement]::ProcessIdProperty,
+            $FocusedProcessId
+        )
+        $targetWindow = $root.FindFirst(
+            [System.Windows.Automation.TreeScope]::Children,
+            $condition
+        )
+        if ($null -ne $targetWindow) {
+            $uiTree = ConvertTo-UINode -Element $targetWindow -Depth 0 -TreeMaxDepth $MaxDepth
+        }
+    }
+
+    # 3. Return combined result
+    $result = [ordered]@{
+        windows = $windowList
+        uiTree  = $uiTree
+    }
+
+    [Console]::Out.Write(($result | ConvertTo-Json -Depth 50 -Compress))
+} catch {
+    [Console]::Out.Write((@{ error = $_.Exception.Message } | ConvertTo-Json -Compress))
+    exit 1
+}

package/scripts/get-windows.ps1

@@ -0,0 +1,66 @@
+<#
+.SYNOPSIS
+    Shim — returns window list. Use get-screen-context.ps1 for combined data.
+#>
+try {
+    Add-Type -AssemblyName UIAutomationClient
+    Add-Type -AssemblyName UIAutomationTypes
+} catch {
+    [Console]::Out.Write((@() | ConvertTo-Json -Compress))
+    exit 0
+}
+
+$ErrorActionPreference = 'Stop'
+
+try {
+    $root = [System.Windows.Automation.AutomationElement]::RootElement
+    $windowCondition = New-Object System.Windows.Automation.PropertyCondition(
+        [System.Windows.Automation.AutomationElement]::ControlTypeProperty,
+        [System.Windows.Automation.ControlType]::Window
+    )
+    $allWindows = $root.FindAll(
+        [System.Windows.Automation.TreeScope]::Children,
+        $windowCondition
+    )
+
+    $windowList = @()
+    foreach ($win in $allWindows) {
+        try {
+            $c = $win.Current
+            if (-not $c.Name -or $c.Name.Trim().Length -eq 0) { continue }
+            $processName = ""
+            try {
+                $proc = [System.Diagnostics.Process]::GetProcessById($c.ProcessId)
+                $processName = $proc.ProcessName
+            } catch { $processName = "unknown" }
+
+            $rect = $c.BoundingRectangle
+            if ([double]::IsInfinity($rect.X)) {
+                $bounds = @{ x = 0; y = 0; width = 0; height = 0 }
+            } else {
+                $bounds = @{ x = [int]$rect.X; y = [int]$rect.Y; width = [int]$rect.Width; height = [int]$rect.Height }
+            }
+
+            $isMinimized = $false
+            try {
+                $winPattern = $win.GetCurrentPattern([System.Windows.Automation.WindowPattern]::Pattern)
+                if ($winPattern.Current.WindowVisualState -eq [System.Windows.Automation.WindowVisualState]::Minimized) {
+                    $isMinimized = $true
+                }
+            } catch {}
+
+            $windowList += [ordered]@{
+                handle      = $c.NativeWindowHandle
+                title       = $c.Name
+                processName = $processName
+                processId   = $c.ProcessId
+                bounds      = $bounds
+                isMinimized = $isMinimized
+            }
+        } catch {}
+    }
+
+    [Console]::Out.Write(($windowList | ConvertTo-Json -Depth 10 -Compress))
+} catch {
+    [Console]::Out.Write((@() | ConvertTo-Json -Compress))
+}

package/scripts/install-panic-hotkey.ps1

@@ -0,0 +1,46 @@
+# install-panic-hotkey.ps1 — Windows panic stop for clawdcursor.
+#
+# Creates a global keyboard shortcut (default Ctrl+Alt+K) that FORCE-KILLS every
+# running clawdcursor process — the daemon and its PowerShell UIA/OCR children —
+# instantly, for when an autonomous run misbehaves. No dependencies (uses a
+# Desktop shortcut's built-in HotKey; the .lnk must stay on the Desktop for the
+# hotkey to stay registered).
+#
+# Usage:
+#   powershell -ExecutionPolicy Bypass -File install-panic-hotkey.ps1            # Ctrl+Alt+K
+#   powershell -ExecutionPolicy Bypass -File install-panic-hotkey.ps1 -HotKey "CTRL+ALT+Q"
+param([string]$HotKey = 'CTRL+ALT+K')
+
+$ErrorActionPreference = 'Stop'
+
+# 1) Write the force-kill script to a stable, install-independent location.
+$dir = Join-Path $env:USERPROFILE '.clawdcursor'
+if (-not (Test-Path $dir)) { New-Item -ItemType Directory -Path $dir -Force | Out-Null }
+$kill = Join-Path $dir 'panic-kill.ps1'
+$body = @'
+# clawdcursor PANIC KILL — force-stop every clawdcursor process immediately.
+$ErrorActionPreference = 'SilentlyContinue'
+Get-CimInstance Win32_Process -Filter "Name='node.exe'" |
+  Where-Object { $_.CommandLine -match 'clawdcursor' -or $_.CommandLine -match 'cli\.js.*agent' } |
+  ForEach-Object { Stop-Process -Id $_.ProcessId -Force }
+Get-CimInstance Win32_Process -Filter "Name='powershell.exe'" |
+  Where-Object { $_.CommandLine -match 'ps-bridge\.ps1' -or $_.CommandLine -match 'ocr-recognize\.ps1' } |
+  ForEach-Object { Stop-Process -Id $_.ProcessId -Force }
+'@
+Set-Content -Path $kill -Value $body -Encoding UTF8
+
+# 2) Desktop shortcut whose HotKey Windows registers globally.
+$ws = New-Object -ComObject WScript.Shell
+$lnkPath = Join-Path ([Environment]::GetFolderPath('Desktop')) 'Stop ClawdCursor.lnk'
+$lnk = $ws.CreateShortcut($lnkPath)
+$lnk.TargetPath   = 'powershell.exe'
+$lnk.Arguments    = "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File `"$kill`""
+$lnk.HotKey       = $HotKey
+$lnk.IconLocation = 'powershell.exe,0'
+$lnk.Description   = 'Force-kill all clawdcursor processes (panic stop)'
+$lnk.WindowStyle  = 7
+$lnk.Save()
+
+Write-Host "[OK] Panic hotkey installed: $HotKey  ->  $lnkPath"
+Write-Host "     Press $HotKey anytime to force-kill clawdcursor."
+Write-Host "     (Keep 'Stop ClawdCursor.lnk' on the Desktop for the hotkey to stay active.)"