guanlan-src/start_hidden.vbs

Option Explicit
' ============================================================================
' 观澜 · 无窗口启动 (2026-09-16 用户令: "启动观澜系统, 弹出的命令窗口, 改为不弹出方式")
'
' 用法: 双击本文件 (或双击为此建立的桌面快捷方式) → 后台起服务 + 自动打开浏览器,
'       全程**不出现任何命令窗口**; 排障与实时日志用 start.bat console (前台模式)。
'
' 为什么用 .vbs: 批处理 (.bat) 双击时 Windows 必然先开一个控制台; WScript.Shell.Run 的
' 窗口样式 0 是"完全不显示", 且用 pythonw.exe (无控制台子系统) 调 Python 就彻底没有窗口。
' 本文件以 UTF-16LE + BOM 保存, 以便中文在任何区域设置下都能正确显示。
' ============================================================================
Dim sh, fso, root, pyw, script, cmd
Set sh  = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

root   = fso.GetParentFolderName(WScript.ScriptFullName)
pyw    = root & "\.venv\Scripts\pythonw.exe"
script = root & "\scripts\guanlan_start_hidden.py"

If Not fso.FileExists(pyw) Then
  MsgBox "尚未安装: 找不到 .venv\Scripts\pythonw.exe" & vbCrLf & vbCrLf & _
         "请先双击 install.bat 完成安装 (离线, 用包内轮子), 然后再双击本文件。", _
         48, "观澜 · 未安装"
  WScript.Quit 2
End If
If Not fso.FileExists(script) Then
  MsgBox "缺少启动脚本: scripts\guanlan_start_hidden.py", 48, "观澜 · 文件缺失"
  WScript.Quit 3
End If

sh.CurrentDirectory = root
cmd = """" & pyw & """ """ & script & """"
' 0 = 隐藏窗口; False = 不等待它结束 (本脚本立即退出, 不留任何窗口)
sh.Run cmd, 0, False
WScript.Quit 0