' AR-House Stopper - cierra todo limpiamente
'
' Mata Streamlit (via scripts\stop-streamlit.ps1, que filtra por command line
' para no matar otros python.exe del usuario) y Ollama.
Option Explicit

Dim shell, WshShell
Set shell = CreateObject("WScript.Shell")
Set WshShell = CreateObject("WScript.Shell")

' Matar SOLO el python.exe que esta corriendo streamlit (script PS separado, mas legible)
shell.Run "powershell -ExecutionPolicy Bypass -File ""D:\Proyectos Software\AR-House\scripts\stop-streamlit.ps1""", 0, True

' Como fallback agresivo, matar todos los pythons (cuidado: tambien mata otros proyectos).
' Comentado por defecto, descomentar si hace falta:
' shell.Run "taskkill /F /IM python.exe /T", 0, True

' Matar Ollama
shell.Run "taskkill /F /IM ollama.exe /T", 0, True

WScript.Sleep 1000

WshShell.Popup "AR-House cerrado." & vbCrLf & _
               "Ollama y Streamlit detenidos.", _
               3, "AR-House", vbInformation