Auto-open browser after server start

2026-05-05 02:43:27 -04:00
parent e0e01d7c55
commit f2fd740e22
2 changed files with 10 additions and 10 deletions
@@ -79,3 +79,9 @@ If ok3 Then sMsg = sMsg & "OK  AidsMonitoring     -> http://localhost:5503" & vb
 sMsg = sMsg & vbCrLf & "AR ECDIS lanzado (ventana independiente)"

 MsgBox sMsg, 64, "Servidores Marinos"
+
+' Abrir browser para cada servidor que respondio
+If ok0 Then oShell.Run "http://localhost:5000", 1, False
+If ok1 Then oShell.Run "http://localhost:5500", 1, False
+If ok2 Then oShell.Run "http://localhost:5010", 1, False
+If ok3 Then oShell.Run "http://localhost:5503", 1, False