vb coloque el mouse y haga clic
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) p>
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