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") Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5010 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll() sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then 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 WScript.Quit
End If End If
' Iniciar servidor oculto
oShell.Run "cmd /c cd /d """ & sDir & """ && """ & sPython & """ run.py >> """ & sLog & """ 2>&1", 0, False 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") Set oExec = oShell.Exec("cmd /c netstat -aon | findstr :5010 | findstr LISTENING")
sOut = oExec.StdOut.ReadAll() sOut = oExec.StdOut.ReadAll()
If Len(Trim(sOut)) > 0 Then If Len(Trim(sOut)) > 0 Then
MsgBox "Fleet Management iniciado correctamente." & vbCrLf & vbCrLf & _ oShell.Run "http://localhost:5010", 1, False
"URL: http://localhost:5010" & vbCrLf & _
"Tailscale: http://100.96.43.86:5010", 64, "Fleet Management"
Else 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 End If