alro65/fleet-management
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 046ca3f377
commit 0b976a1ec0
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Iniciar.vbs
+7 -6
View File
@@ -12,20 +12,21 @@ Dim oExec, sOut
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5010 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then
MsgBox "Fleet Management ya esta corriendo en el puerto 5010.", 64, "Fleet Management"
' Ya esta corriendo — solo abrir el browser
oShell.Run "http://localhost:5010", 1, False
WScript.Quit
End If
' Iniciar servidor oculto
oShell.Run "cmd /c cd /d """ & sDir & """ && """ & sPython & """ run.py >> """ & sLog & """ 2>&1", 0, False
WScript.Sleep 1500
WScript.Sleep 2000
' Verificar y abrir browser
Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5010 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then
MsgBox "Fleet Management iniciado correctamente." & vbCrLf & vbCrLf & _
"URL: http://localhost:5010" & vbCrLf & _
"Tailscale: http://100.96.43.86:5010", 64, "Fleet Management"
oShell.Run "http://localhost:5010", 1, False
Else
MsgBox "El servidor tardo en iniciar. Revisa logs\server.log si hay errores.", 48, "Fleet Management"
MsgBox "El servidor no respondio. Revisa logs\server.log", 48, "Fleet Management"
End If