alro65/MarineMaintenance
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Auto-open browser after server start

Browse Source
This commit is contained in:
Alvaro Enrique Romero Donado
2026-05-05 02:43:27 -04:00
parent b57fa85a97
commit bc1205d15b
1 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Iniciar.vbs
+4 -10
View File
@@ -8,27 +8,21 @@ sLog = sDir & "\logs\server.log"
Set oShell = CreateObject("WScript.Shell") Set oShell = CreateObject("WScript.Shell")
' Verificar si ya está corriendo en puerto 5500
Dim oExec, sOut Dim oExec, sOut
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING") Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll() sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then If Len(Trim(sOut)) > 0 Then
MsgBox "MarineMaintenance ya está corriendo en el puerto 5500.", 64, "MarineMaintenance" oShell.Run "http://localhost:5500", 1, False
WScript.Quit WScript.Quit
End If End If
' Iniciar servidor oculto — redirige salida al log
oShell.Run "cmd /c cd /d """ & sDir & """ && """ & sPython & """ app.py >> """ & sLog & """ 2>&1", 0, False oShell.Run "cmd /c cd /d """ & sDir & """ && """ & sPython & """ app.py >> """ & sLog & """ 2>&1", 0, False
WScript.Sleep 2000
WScript.Sleep 1500
' Confirmar que arrancó
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING") Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5500 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll() sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then If Len(Trim(sOut)) > 0 Then
MsgBox "MarineMaintenance iniciado correctamente." & vbCrLf & vbCrLf & _ oShell.Run "http://localhost:5500", 1, False
"URL: http://localhost:5500" & vbCrLf & _
"Tailscale: http://100.96.43.86:5500", 64, "MarineMaintenance"
Else Else
MsgBox "El servidor tardó en iniciar. Revisa logs\server.log si hay errores.", 48, "MarineMaintenance" MsgBox "El servidor no respondio. Revisa logs\server.log", 48, "MarineMaintenance"
End If End If