Solicitar a un experto que haga un bucle VB con el código fuente del clic del mouse.

Obtener la hora del sistema

¿Privado? ¿declarar? ¿Función? horaObtenerhora? ¿Lib? ¿"winmm.dll"? ()?¿como? Largo

Establecer coordenadas del mouse

¿Privado? ¿declarar? ¿Función? ¿Establecer posición del cursor? ¿Lib? ¿"Usuario 32"? (¿PorVal?x?as?Dragón,?PorVal?y?as?Dragón)? ¿Como? Largo

Simula eventos del mouse.

¿Privado? ¿declarar? ¿Sub? evento_ratón? ¿Lib? ¿"Usuario 32"? (ByVal?dwFlags?as?dragon,?ByVal?dx?as?dragon,?ByVal?dy?as?dragon,?ByVal?cButtons?as?dragon,?ByVal?dwExtraInfo?as?dragon)

¿Privado? ¿Sub? Command1_Click()

¿Tiene

Chi Heng? 765, 725, 5000

¿Chi Heng? 765, 725, 5000

¿Chi Heng? 920, 300, 5000

Chix? 765, 725, 5000

¿Chix? 765, 725, 5000

¿Chix? 920,?440,?3100000

¿Bucle? No se recomienda realizar un bucle sin condición de salida, este es un bucle infinito.

¿Fin? Submarino

¿Privado? ¿Sub? ¿Zhixing(x?como?dragón,?y?como?dragón,?tiempo?como?dragón)? Según sus requisitos, xey son las coordenadas y el tiempo es el tiempo de retraso.

¿Establecer posición del cursor? incógnita,? ¿y? Establecer coordenadas del mouse

Mouse_event? amperioH2? ¿aún? ampH4?0,?0,?0,?0? simula un clic del mouse, ;H2 significa presionar el botón izquierdo y;H4 significa soltar el botón izquierdo.

¿Yanshi? ¿tiempo? También puedes usar la función de suspensión para retrasar, pero lo intenté y no hubo respuesta.

¿Fin? Submarino

¿Privado? ¿Sub? Yanshi(PorVal?n?Como?Long)? Función de retardo

¿Atenuada? tm1,? tm2? ¿Como? ¿Largo

tm1? =?timeGetTime

¿Hacer

tm2? =?timeGetTime

¿Si? (tm2?-?tm1)? ¿gt? ¿norte? ¿Entonces qué? ¿abandonar? ¿Terminan

varias actividades

suena

? Submarino