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