¿Cuántos segundos? La configuración de su máquina no es mala.
He escrito antes sobre colgar al presionar una tecla. El principio es usar el estado de vez en cuando.
Ahora cámbialo Ahora, cambia a presionar CTRL alt después de un período de tiempo
dim temp, RunTime, TimeNow, intervalo
interval=10
//Establezca el intervalo de tiempo, establecido aquí es 10 segundos
TimeNow = CDate(CStr(Hour(Now)) ":" CStr(Minute(Now)) ":" CStr(Segundo (Ahora)))
/ /Obtener la hora actual
RunTime=DateAdd("s", intervalo, TimeNow)
//Obtener la hora para ejecutar Ctrl ALT
Rem start
Retraso 50
TiempoAhora = CDate(CStr(Hora(Ahora)) ":" CStr(Minuto(Ahora)) " :" CStr(Second(Now)))
temp= DateDiff("s", TimeNow, RunTime)
//Obtener cuántos segundos quedan hasta el tiempo de ejecución
Si templt; 1
Gosub ch
EndIf
retraso 50
Ir a inicio
//Bucle
Sub canal
KeyDown 17, 1
//Presione Ctrl
KeyPress 18, 1
//El valor clave correspondiente de ALT es 18, si tabulador debe ser 9, CTRL debe ser 17, presione solo una vez en un ciclo
KeyUp 17, 1
/ /Soltar Ctrl
RunTime=DateAdd( "s", intervalo, TimeNow)
Regresar
//=========== ============
No sé de qué sirve presionar Ctrl alt.
Solo sé que usas ALt TAB para cambiar windows
----------- -------
//El siguiente es el código para presionar ALT TAB cada 10 segundos
temperatura tenue, RunTime, TimeNow, intervalo
intervalo=10
TimeNow = CDate(CStr(Hora(Ahora)) ":" CStr(Minuto(Ahora)) ":" CStr(Segundo(Ahora)))
RunTime =DateAdd("s", intervalo, TimeNow)
Inicio remoto
Retraso 10
TiempoAhora = CDate(CStr(Hora(Ahora)) ":" CStr(Minuto(Ahora)) ":" CStr(Segundo(Ahora)))
temp= DateDiff("s ", TimeNow, RunTime)
Si templt; 1
Gosub ch
EndIf
Retraso 50
Ir a inicio
S
ub ch
KeyDown 18, 1
KeyPress 9, 1
KeyUp 18, 1
RunTime=DateAdd("s", intervalo, TimeNow)
Regresar
Nota: La prueba pasó en mi máquina (presione automáticamente ALT TAB una vez cada 10 segundos para cambiar de ventana)
Las teclas que Elf usado es la versión oficial 6.10.