500 puntos no es el código fuente de una coordenada fija de la ventana Fantasy Westward Journey en la que se hace clic en el fondo del mouse de VB

X tan largo

Y tan largo

Tipo final

Función de declaración privada FindWindow Lib Alias ​​"user32" " FindWindowA " (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) mientras

Función de declaración privada ClientToScreen Lib "user32" (ByVal hWnd mientras, lpPoint como POINTAPI) mientras

Declaración privada Sub mouse_event Lib "user32" (ByVal dwFlags mientras, ByVal dx mientras, ByVal dy mientras, ByVal cButtons ByVal cButtons mientras, ByVal dwExtraInfo mientras)

Función de declaración privada GetCursorPos Lib "user32 " ( lpPoint As POINTAPI) Mientras

Función de declaración privada SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) Mientras

Const MOUSEEVENTF_LEFTDOWN = amp; H2

Const MOUSEEVENTF_LEFTUP = amp; H4

Const MOUSEEVENTF_MIDDLEDOWN = amp; H20

Const MOUSEEVENTF_MIDDLEUP = amp; H1

Const MOUSEEVENTF_ABSOLUTE = amp; H8000

Const MOUSEEVENTF_RIGHTDOWN = amp; H8

Const MOUSEEVENTF_RIGHTUP = amp; H10

Subcomando privado1_Click ()

Dim Point0 As POINTAPI

Dim Point1 As POINTAPI

GetCursorPos Point0 'Obtiene las coordenadas actuales del mouse

MsgBox Point0.X

Point1.X = 20 'Según la forma de destino, especifique el valor X de la coordenada de desplazamiento

Point1.Y = 20 'Según la forma de destino, especifique el valor Y de la coordenada de desplazamiento

Punto1.p>

'Convertir las coordenadas de desplazamiento del comando de desplazamiento 2 en coordenadas de pantalla

'Utilizar el identificador de la ventana especificada en la aplicación real

ClientToScreen Command2.hWnd, Point1

p>

'Mueva el mouse a la coordenada del Punto1 convertida, es decir, especifique la coordenada de desplazamiento de la ventana

SetSetScreen.Y = 20 'Especifique el valor Y de la coordenada de desplazamiento, que depende de la ventana de destino

SetSetScreen.Y = 20 'Establece el valor Y de la coordenada de desplazamiento.

SetCursorPos Point1 ;, 0amp;

'Restaurar coordenadas originales del ratón

SetCursorPos Point0.X, Point0.Y

End Sub

Subcomando privado2_Clic ()

Depurar.Imprimir "Clic"

Fin Sub