//start.bat//
start www.google.es
Y ahora he creado un .vbs llamado controla , que lo que hace es comprobar cada 5 segundos si se esta ejecutando el .bat , si no lo vuelve a ejecutar , lo he probado con aplicaciones .exe y solo se volvia a ejecutar si se cerraba dicha aplicación.
Lo que me sucede cuando lo programo con el start.bat es que me hable mil navegadores (bucle) y debo cerrar el wscript.exe en la administración del sistema para que pare.Alguna idea?¿
Function Espera(miliSegundos)
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcessList
If objProcess.name = "nocerrar.cmd" then
Encontrado = True
End if
Next
If Encontrado = True then
rem Msgbox("Proceso encontrado")
Else
rem Msgbox("Proceso No encontrado")
WshShell.Run("nocerrar.cmd")
End If
WScript.Sleep(miliSegundos)
Espera(milisegundos)
End Function
Código
//controla.vbs// Espera(5000) Function Espera(miliSegundos) Set WshShell = WScript.CreateObject ("WScript.Shell") Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process") For Each objProcess in colProcessList If objProcess.name = "start.bat" then Encontrado = True End if Next If Encontrado = True then rem Msgbox("Proceso encontrado") Else rem Msgbox("Proceso No encontrado") WshShell.Run("start.bat") End If WScript.Sleep(miliSegundos) Espera(milisegundos) End Function
este es el correcto , sorry
[MOD]: ¿Ves que diferencia con el formato de la pregunta?.