Red de conocimiento informático - Problemas con los teléfonos móviles - vb coloque el mouse y haga clic

vb coloque el mouse y haga clic

'Leer la posición del mouse

Atenuar p como POINTAPI

Llamar a GetCursorPos(p)

MsgBox "La posición actual del mouse es: " + vbCrLf + "Coordenada X: " + LTrim(Str(p.x))+ vbCrLf + "Coordenada Y: " + LTrim(Str(p.y))

'Controlar la posición del ratón

SetCursorPos X, Y 'Establecer X por separado y coordenadas Y

'Botón izquierdo abajo

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0

'Botón izquierdo arriba

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'Botón derecho abajo

mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0

'Botón derecho arriba

p>

mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0

La API utilizada es la siguiente...

Declaración pública Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Función de declaración pública SetCursorPos Lib "user32" ( ByVal x As Long. ByVal y As Long) As Long, ByVal y As Long) As Long

Declaración pública Sub Sleep Lib "kernel32" (ByVal dwMillisegundos As Long)

Función de declaración pública ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const pública MOUSEEVENTF_MOVE = &H1 'Movimiento del mouse

Const pública MOUSEEVENTF_LEFTDOWN = &H1 amp;H8 'Clic derecho hacia abajo

Const pública MOUSEEVENTF_RIGHTUP = &H10 'Clic derecho arriba

Tipo público POINTAPI

x Mientras

y Mientras

Tipo final

Tipo público POINTAPI

x siempre

y