Red de conocimiento informático - Computadora portátil - 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

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

Tipo privado POINTAPI

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