Visual Basic - Mover Puntero del mouse por programa

Life is soft - evento anual de software empresarial
 
Vista:

Mover Puntero del mouse por programa

Publicado por José Luis (1 intervención) el 09/02/2005 02:42:18
Hola a todos. Agradecere a quien me pueda orientar o aconsejar para lograr lo siguiente:
¿como puedo mover por programa el puntero del mouse?
es decir que el programa tome el control del puntero y lo mueva segun las condiciones del programa o datos que reciba, de igual manera haga click y doble click. Lo anterior para una aplicacion que estoy desarrollando para controlar remotamente una computadora.
Ya existen programas que hacen algo como lo que quiero (VNC o tipo PCanywhere) pero quiero desarrollarlo con algunas ideas propias.
saludos y nuevamente gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mover Puntero del mouse por programa

Publicado por Benjo (679 intervenciones) el 09/02/2005 03:21:09

'La API es mouse_event
'Acá va un ejemplo.
'Colocá un commandbutton en un Form y luego pegá el código

Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare 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)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Private Sub Command1_Click()
'Posiciona el Mouse en la coordenada 0,0
Call SetCursorPos(0, 0)
'Libera un evento Click con el botón Derecho
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar