26 lines
947 B
Plaintext
26 lines
947 B
Plaintext
' 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
|