quickwin 3.0.1 → 3.0.3

package/examples/execd/tray.js

@@ -1,192 +0,0 @@
-// /tray_list 后端：托盘通知区枚举（可见区 + 折叠溢出区）+ 单图标可见性探针。
-// 从 main.tsx 拆出（worker.ts 同款配对模块），纯同步 FFI，无状态可复用。
-//
-// 通知区 = 两个容器，各藏 ToolbarWindow32：Shell_TrayWnd（可见区）/
-// NotifyIconOverflowWindow（折叠面板：平时隐藏窗口，点 ^ 才弹出；XP 无此窗）。
-// toolbar 属 explorer，TB_GETBUTTON/TB_GETITEMRECT 的出参 buffer 须落 explorer 地址
-// 空间——VirtualAllocEx → SendMessage → ReadProcessMemory（跨进程 SendMessage 不
-// marshal 指针，理由见 lib/windows/kernel32.ts 远程内存段注释）。
-// TBBUTTON 布局随 **explorer 位宽 = OS 位宽**（与本进程无关：x86 qwin 读 x64 explorer
-// 也按 64 位解析；OS64 = IsWow64Process 探针），mingw commctrl.h 实锚：
-//   x86 20B：dwData@12(u32)、iString@16(u32) ；x64 32B：dwData@16(u64)、iString@24(u64)
-//   （int idCommand@4 + fsState/fsStyle + bReserved[2|6] + DWORD_PTR + INT_PTR）
-// dwData → explorer 内 TRAYDATA{hwnd@0(ptr 宽), uID@(ptr 宽)(u32), …}——shell 把注册
-// 图标的消息窗口塞在这（非文档，XP~Win10 十年稳定，AHK TrayIcon_GetInfo 同源）。
-// chevron(^)/分隔符等非通知按钮：dwData 非指针或解出的 hWnd 过不了 IsWindow → 自然滤除。
-// 折叠面板未展开时按钮 rect 未布局（全 0 → null）或陈旧——overflow 区 rect 仅在面板
-// 展开后可靠（诚实返回，调用方先展开再取）。
-import * as os from 'os';
-import * as gui from 'gui';
-import { BYTE, WCHAR } from '../../lib/ffi/bind.js';
-import { NULL, PtrArrayBuffer } from '../../lib/ffi/ctype.js';
-import { ClientToScreen, FindWindow, FindWindowEx, GetClassName, GetWindowRect, GetWindowThreadProcessId, IsWindow, } from '../../lib/windows/user32.js';
-import { CloseHandle, GetCurrentProcess, IsWow64Process, OpenProcess, ReadProcessMemory, VirtualAllocEx, VirtualFreeEx, } from '../../lib/windows/kernel32.js';
-import { Shell_NotifyIconGetRect } from '../../lib/windows/shell32.js';
-import { NOTIFYICONIDENTIFIER, POINT, RECT } from '../../lib/windows/structs.js';
-const TB_GETBUTTON = 0x0417, TB_BUTTONCOUNT = 0x0418, TB_GETITEMRECT = 0x041d; // commctrl.h WM_USER+23/24/29
-const CLS_BUF = 512; // GetClassName 缓冲（WCHAR 数）
-// OS 位宽探针（须先于下三行常量）：x64 进程恒 x64 OS；x86 进程看 WOW64 → 远程结构
-// 按 explorer 位宽解析（32 位 OS 的 IsWow64Process 恒写 0，XP SP2+ 均有此导出）。
-const OS64 = os.arch === 'x64' || (() => {
-    const wow = new PtrArrayBuffer(4);
-    return IsWow64Process(GetCurrentProcess(), wow) !== 0 && new Uint32Array(wow)[0] !== 0;
-})();
-const TBBUTTON_DWDATA = OS64 ? 16 : 12;
-const TBBUTTON_ISTRING = OS64 ? 24 : 16;
-const TBBUTTON_SZ = OS64 ? 32 : 20;
-const TRAYDATA_UID = OS64 ? 8 : 4; // uID 偏移 = hwnd 一个指针宽
-const REMOTE_BUF = 256; // TBBUTTON(≤32)/RECT(16)/tooltip(128 wchar) 分时复用一块
-/** 子树深搜 ToolbarWindow32：FindWindowEx 只看直接子级，而通知区工具栏埋在
- *  TrayNotifyWnd/SysPager 等中间层下——递归全收，chevron 也可能是独立 toolbar，
- *  交给按钮解析按 IsWindow 滤 */
-function findToolbars(root) {
-    const out = [];
-    const cls = WCHAR.alloc(CLS_BUF);
-    const walk = (parent) => {
-        let child = FindWindowEx(parent, NULL, NULL, NULL);
-        while (child) {
-            const n = GetClassName(child, cls, CLS_BUF);
-            if (n > 0 && WCHAR.decode(cls) === 'ToolbarWindow32')
-                out.push(child);
-            walk(child);
-            child = FindWindowEx(parent, child, NULL, NULL);
-        }
-    };
-    walk(root);
-    return out;
-}
-/** 枚举一个 toolbar 的通知区按钮（远程读全程；按钮非法即跳过，不整栏失败） */
-function readToolbar(tb, area, out) {
-    // TB_* 是 commctrl 通用 toolbar 消息，不在 gui 模块生成的消息枚举（AnyMsg 白名单）里
-    // ——走 gui.SendMessage（C 直绑收裸 msg:number，运行时同为 SendMessageW）
-    const count = gui.SendMessage(tb, TB_BUTTONCOUNT, 0, 0);
-    if (!Number.isInteger(count) || count <= 0 || count > 512)
-        return;
-    const pidBuf = BYTE.alloc(4);
-    if (GetWindowThreadProcessId(tb, pidBuf) === 0)
-        return;
-    const pid = new Uint32Array(pidBuf)[0];
-    const proc = OpenProcess(0x38, 0, pid); // VM_OPERATION|VM_READ|VM_WRITE
-    if (!proc)
-        throw new Error('OpenProcess(explorer ' + pid + ') failed');
-    const remote = VirtualAllocEx(proc, NULL, REMOTE_BUF, 0x3000, 0x04); // MEM_COMMIT|RESERVE, RW
-    if (!remote) {
-        CloseHandle(proc);
-        throw new Error('VirtualAllocEx failed');
-    }
-    try {
-        const tbBuf = BYTE.alloc(REMOTE_BUF), trBuf = BYTE.alloc(REMOTE_BUF), tipBuf = BYTE.alloc(REMOTE_BUF);
-        const dvTb = new DataView(tbBuf), dvTr = new DataView(trBuf);
-        for (let i = 0; i < count; i++) {
-            if (!gui.SendMessage(tb, TB_GETBUTTON, i, remote))
-                continue;
-            if (!ReadProcessMemory(proc, remote, tbBuf, TBBUTTON_SZ, NULL))
-                continue;
-            const dwData = OS64 ? Number(dvTb.getBigUint64(TBBUTTON_DWDATA, true))
-                : dvTb.getUint32(TBBUTTON_DWDATA, true);
-            if (dwData < 0x10000)
-                continue; // 分隔符/chevron：dwData 非指针
-            if (!ReadProcessMemory(proc, dwData, trBuf, TRAYDATA_UID + 4, NULL))
-                continue;
-            const hWnd = OS64 ? Number(dvTr.getBigUint64(0, true)) : dvTr.getUint32(0, true);
-            const uID = dvTr.getUint32(TRAYDATA_UID, true);
-            if (!hWnd || !IsWindow(hWnd))
-                continue; // 非通知区按钮滤除
-            // rect：TB_GETITEMRECT 写 remote → 读回 4×i32 客户区 → ClientToScreen 屏幕化
-            let rect = null;
-            if (gui.SendMessage(tb, TB_GETITEMRECT, i, remote) && ReadProcessMemory(proc, remote, trBuf, 16, NULL)) {
-                const L = dvTr.getInt32(0, true), T = dvTr.getInt32(4, true);
-                const R = dvTr.getInt32(8, true), B = dvTr.getInt32(12, true);
-                if (!(L === 0 && T === 0 && R === 0 && B === 0)) {
-                    const tl = POINT.encode({ x: L, y: T }), br = POINT.encode({ x: R, y: B });
-                    if (ClientToScreen(tb, tl.ptr) && ClientToScreen(tb, br.ptr)) {
-                        const a = POINT.decode(tl), b = POINT.decode(br);
-                        rect = { left: a.x, top: a.y, right: b.x, bottom: b.y };
-                    }
-                }
-            }
-            // tooltip：iString = 远程 UTF-16 字符串（INT_PTR；<0x10000 = IS_INTRESOURCE 无文本）
-            const iStr = OS64 ? Number(dvTb.getBigUint64(TBBUTTON_ISTRING, true))
-                : dvTb.getUint32(TBBUTTON_ISTRING, true);
-            let tooltip = null;
-            if (iStr >= 0x10000 && ReadProcessMemory(proc, iStr, tipBuf, 256, NULL)) {
-                const dvTip = new DataView(tipBuf);
-                let s = '';
-                for (let off = 0; off < 256; off += 2) {
-                    const c = dvTip.getUint16(off, true);
-                    if (c === 0)
-                        break;
-                    s += String.fromCharCode(c);
-                }
-                tooltip = s === '' ? null : s;
-            }
-            out.push({ area, index: i, hWnd, uID, tooltip, rect });
-        }
-    }
-    finally {
-        VirtualFreeEx(proc, remote, 0, 0x8000); // MEM_RELEASE
-        CloseHandle(proc);
-    }
-}
-/** 枚举容器内全部 toolbar 的图标——overflow 容器内实测仅一个 toolbar（xp 519-591 /
- *  win7 折叠态 winRect (1,1)-(1,1) 零尺寸但按钮照读），全读即所得 */
-function collectArea(root, area, out) {
-    for (const tb of findToolbars(root))
-        readToolbar(tb, area, out);
-}
-/** 可见区只读"主条"：TrayNotifyWnd 下可能多个 ToolbarWindow32——主通知区条 + explorer
- *  的"提升暂存"条（空时零尺寸 0 按钮；偶发≈1/4 全新启动把新注册的折叠图标暂存于此，
- *  TB_GETITEMRECT 返回压在折叠键(^)位的幽灵 rect，展开溢出面板后图标回 overflow 条、
- *  幽灵消失——幽灵 rect 点下去只会命中任务栏，须滤除）。通知区条右缘恒贴时钟左界、
- *  图标从右往左生长（实测 xp 591 / win7 1190），暂存条恒在其左侧（空 @1136 / 幽灵
- *  @1108）——取右缘最靠右者，幽灵自然落选；xp 单条无选择余地，无回归 */
-function collectVisible(root, out) {
-    let main = null;
-    let mainRight = -Infinity;
-    for (const tb of findToolbars(root)) {
-        const rc = RECT.alloc();
-        if (!GetWindowRect(tb, rc.ptr))
-            continue;
-        const right = RECT.decode(rc).right;
-        if (right > mainRight) {
-            mainRight = right;
-            main = tb;
-        }
-    }
-    if (main)
-        readToolbar(main, 'visible', out);
-}
-/** 通知区全量图标：可见区 Shell_TrayWnd + 折叠区 NotifyIconOverflowWindow（后者
- *  XP 不存在 → 恒空）；空托盘/查无窗口 → 空数组（不抛）。
- *  可见区定位在 TrayNotifyWnd 容器内——Shell_TrayWnd 下还有快速启动/窗口按钮等
- *  ToolbarWindow32（XP 实测窗口按钮区被全树递归误收成假图标），通知区图标才有
- *  TRAYDATA 语义；查无 TrayNotifyWnd 再回退全树（罕见布局兜底） */
-export function listTrayIcons() {
-    const icons = [];
-    const tray = FindWindow('Shell_TrayWnd', NULL);
-    if (tray) {
-        const notifyArea = FindWindowEx(tray, NULL, 'TrayNotifyWnd', NULL);
-        collectVisible(notifyArea ? notifyArea : tray, icons); // NULL 为 0 → falsy 收窄
-    }
-    const overflow = FindWindow('NotifyIconOverflowWindow', NULL);
-    if (overflow)
-        collectArea(overflow, 'overflow', icons);
-    return icons;
-}
-/** 单图标探针（Shell_NotifyIconGetRect，**Win7+**；XP 无导出 → hrName 'unsupported'）
- *  实测语义（比 SO 结论细）：hr=0 found——图标在通知区内，rect = 其容器位置，溢出面板
- *  未展开时是残留布局非屏幕可点位；hr=1 hidden——按文档为不可见态（本机未复现，
- *  Win7 溢出图标实测亦返 0）；E_FAIL not_found——不存在，或该图标按 GUID 注册
- *  （网络/操作中心等系统图标实测 hWnd+uID 查不到，如实返回非 bug） */
-export function probeTrayIcon(hWnd, uID) {
-    if (!Shell_NotifyIconGetRect)
-        return { hr: -1, hrName: 'unsupported', rect: null };
-    const rc = RECT.alloc();
-    const hr = Shell_NotifyIconGetRect({ cbSize: NOTIFYICONIDENTIFIER.size, hWnd, uID }, rc.ptr);
-    const hrName = hr === 0 ? 'found' : hr === 1 ? 'hidden'
-        : hr === -2147467259 ? 'not_found' : 'hr=0x' + ((hr >>> 0).toString(16));
-    if (hr !== 0)
-        return { hr, hrName, rect: null };
-    const r = RECT.decode(rc);
-    return { hr, hrName, rect: { left: r.left, top: r.top, right: r.right, bottom: r.bottom } };
-}

package/examples/execd/worker.js

@@ -1,122 +0,0 @@
-import * as os from 'os';
-import * as std from 'std';
-import { WCHAR } from '../../lib/ffi/bind.js';
-import { NULL, PtrArrayBuffer } from '../../lib/ffi/ctype.js';
-import { struct } from '../../lib/ffi/struct.js';
-import { CloseHandle, CreatePipe, CreateProcess, GetExitCodeProcess, GetLastError, GetSystemDirectory, ReadFile, SetHandleInformation, WaitForSingleObject, } from '../../lib/windows/kernel32.js';
-import { PROCESS_INFORMATION, STARTUPINFOW } from '../../lib/windows/structs.js';
-// worker 没有可观测的输出通道：绑定失败会静默中断 worker 脚本，主线程永远等不到消息。
-// 失败原因落盘 diag.log 以便定位（典型：DLL 位数与进程不匹配 -> ERROR_BAD_EXE_FORMAT 193）。
-const diagFile = (stage) => {
-    try {
-        const f = std.open('diag.log', 'a');
-        if (f) {
-            f.puts(`${Date.now()} ${stage}\n`);
-            f.close();
-        }
-    }
-    catch (ex) { /* best effort */ }
-};
-const HANDLE_FLAG_INHERIT = 0x1;
-const STARTF_USESTDHANDLES = 0x100;
-const WAIT_INFINITE = 0xffffffff;
-// STARTUPINFOW / PROCESS_INFORMATION 的布局随进程位宽（x86 68B / x64 104B），由 struct 按 os.arch 推。
-// os.arch 是编译期的进程指针宽度（src/quickjs-libc.c OS_ARCH），WOW64 下的 32 位进程得 ia32 布局——
-// 本地 win7 VM 上的 execd 就是 32 位进程跑在 64 位系统上。
-const parent = os.Worker.parent;
-// GetSystemDirectoryW 拼 cmd.exe 全路径。
-// 探针实测（XP/Win7 均如此）：CreateProcessW 的 lpCommandLine 第一个 token 若是
-// 裸 "cmd.exe"，PATH 解析在本环境失败（err 267 ERROR_DIRECTORY / 123 ERROR_INVALID_NAME），
-// 用全路径即正常。cmd 内部再解析 ping/dir 等用自己的 PATH，无此问题。
-let sysDir = 'C:\\Windows\\System32';
-try {
-    const out = WCHAR.alloc(256);
-    const n = GetSystemDirectory(out, 256);
-    const s = n > 0 ? WCHAR.decode(out) : '';
-    if (s)
-        sysDir = s;
-}
-catch (ex) {
-    diagFile('SYS-DIR-FAIL: ' + String(ex));
-}
-// 用 CreateProcessW + CreatePipe 直接捕获子进程 stdout（替代 winpty）。
-// 纯捕获场景（/exec 从不交互），管道方案比 winpty 少一层 agent 中转：
-//   - 流式粒度更好：探针实测 XP 上逐行实时到达（winpty 攒批 ~4s）
-//   - 无 winpty.dll / winpty-agent.exe 依赖，纯 kernel32
-// 编码：无统一代码页转换——cmd 内置经 /u 恒为 UTF-16LE，外部程序各自原生
-// （qwin= UTF-8、中文系统工具= GBK），客户端按来源分别解码。
-// 同步阻塞读循环（worker 线程自转），主线程事件循环不受影响。
-// CreatePipe 的两个 HANDLE 出参槽：一个结构两个指针字段，读回走 decode
-// CreatePipe 成功后两端句柄必非零（失败已在下方 throw）——字段标 '!'，decode 直出 Ptr
-const PIPE_HANDLES = /* @__PURE__ */ struct('PIPE_HANDLES', { hRead: '<HFILE>ptr!', hWrite: '<HFILE>ptr!' });
-function runCmd(id, cmd) {
-    // —— 管道 + 继承设置（读端不可继承，否则 EOF 永不触发）——
-    const pipe = PIPE_HANDLES.alloc();
-    if (!CreatePipe(pipe.ptr, pipe.ptr + PIPE_HANDLES.offsetOf('hWrite'), NULL, 0)) {
-        throw new Error('CreatePipe err=' + GetLastError());
-    }
-    const { hRead, hWrite } = PIPE_HANDLES.decode(pipe);
-    SetHandleInformation(hWrite, HANDLE_FLAG_INHERIT, HANDLE_FLAG_INHERIT);
-    SetHandleInformation(hRead, HANDLE_FLAG_INHERIT, 0);
-    // —— STARTUPINFO（写端作为子进程 stdout/stderr）——
-    const pi = PROCESS_INFORMATION.alloc();
-    // 恒加 /u：cmd 内置输出（echo/dir/type 与 cmd 自身报错）直接写 UTF-16LE，绕开「按代码页
-    // 编码成字节」这一步（Tiny11 缺 NLS 时中文变 ?；win7/XP 的 GBK 无损只是 ACP=936 的 locale 巧合）。
-    // /u 在所有 Win 版本行为一致，故不分版本——早期用 RtlGetVersion 判 NT>=10 只对 win11 加 /u，已删。
-    // 外部程序（qwin/ping 等）输出仍为各自原生编码，/u 不参与（实测 ping 仍透传 GBK）。见 .agents/CMD_ENCODING_ACP_NLS.md §8。
-    const cmdline = `${sysDir}\\cmd.exe /u /c ${cmd}`;
-    if (!CreateProcess(NULL, cmdline, NULL, NULL, 1, 0, NULL, NULL, { cb: STARTUPINFOW.size, dwFlags: STARTF_USESTDHANDLES, hStdOutput: hWrite, hStdError: hWrite }, pi.ptr)) {
-        CloseHandle(hRead);
-        CloseHandle(hWrite);
-        throw new Error('CreateProcessW err=' + GetLastError() + ' cmd=' + cmdline);
-    }
-    const { hProcess, hThread, dwProcessId } = PROCESS_INFORMATION.decode(pi);
-    CloseHandle(hThread);
-    CloseHandle(hWrite);
-    parent.postMessage({ type: 'info', id, pid: dwProcessId });
-    // —— 同步阻塞读循环（子进程树全退出、写端全关 -> EOF -> 收尾）——
-    const bufB = new PtrArrayBuffer(4096);
-    const buf = new Uint8Array(bufB);
-    const nReadB = new PtrArrayBuffer(4);
-    const nRead = new Uint32Array(nReadB);
-    for (;;) {
-        nRead[0] = 0;
-        if (!ReadFile(hRead, bufB, 4096, nReadB, NULL))
-            break;
-        const n = nRead[0];
-        if (n === 0)
-            break;
-        parent.postMessage({ type: 'data', id, chunk: buf.slice(0, n) });
-    }
-    WaitForSingleObject(hProcess, WAIT_INFINITE);
-    const ecB = new PtrArrayBuffer(4);
-    const ec = new Int32Array(ecB);
-    GetExitCodeProcess(hProcess, ecB);
-    const code = ec[0];
-    CloseHandle(hRead);
-    CloseHandle(hProcess);
-    return code;
-}
-parent.onmessage = (e) => {
-    // worker 只剩 /exec 一个租客：外部命令不可控，必须与主进程隔离（长阻塞无上界）。
-    // 内置端点（截屏/窗口列表/改分辨率）全部在主进程同步跑——bug 当场 throw → 500，
-    // 而不是在 worker 里静默挂掉等 timer 兜底成 504。
-    const msg = e.data;
-    if (msg.type === 'run' && typeof msg.cmd === 'string') {
-        let code = -1;
-        let error = null;
-        try {
-            code = runCmd(msg.id, msg.cmd);
-        }
-        catch (ex) {
-            error = String(ex);
-        }
-        parent.postMessage({ type: 'result', id: msg.id, code, error });
-    }
-    // 父侧每个请求起一个新 worker，一次只处理一个请求，处理完立刻释放自己的 port：
-    // port_list 清空后 js_os_poll 返回 -1（src/quickjs-libc.c:2506）→ 本线程退出，
-    // JSRuntime 随之释放。不设 null 的话线程常驻（实测 win7 30 次请求线程 4→35）。
-    // 注意父侧 `worker.onmessage = null` 只释放父侧 port，对本线程无效——必须在这里设。
-    // 消息已在 js_post_message_pipe 进队列，父侧读的是同一份 refcount 共享管道，线程退出不影响。
-    parent.onmessage = null;
-};