Problema de programación VBS. ¿Cómo comparar la hora del sistema (horas, minutos, segundos) en VBS? Si quiero ejecutar un comando DOS después de las 8 en punto,

¿Opción?Explícito

Dim?sysTime,sysHour,sysMinute,sysSecond,userTime,userHour,userMinute,userSecond

userTime="8:00:00"

'Establezca la hora aquí (hora: minuto: segundo). Recordatorio especial: si solo hay dígitos de unidades para los minutos y segundos, debe agregar ceros a los dígitos de las decenas. Por ejemplo, 8:05: 3 Simplemente escríbelo como (8:05:03), recuerda~

userTime=Split(userTime,":")

userHour=userTime(0)

userMinute=userTime(1)

userSecond=userTime(2)

Do sysTime=Split(Split(Now(),"?")(1),":" ) sysHour=sysTime(0) sysMinute=sysTime(1) sysSecond=sysTime(2) ¿Seleccionar?Caso?Verdadero Caso?sysHour>horausuario ¿Salir?Hacer caso?sysHour=horaUsuario ¿Seleccionar?Caso?Verdadero Caso?sysMinute>usuarioMinute

¿Salir?Do Case?sysMinute=userMinute

If?sysSecond=userSecond?Then?Exit?Do End?Select End?Select

Bucle

'Cuando se acabe el tiempo, el programa ejecutará el script en "Loop".

WScript.CreateObject("WScript.Shell").Run?"cmd.exe?/C?MSG?* ?¡Se acabó el tiempo!" ,0

WScript.Quit