Hola que tal? mi duda es la siguiente: como puedo hacer para que una vez ejecutado el programa, al hacer click derecho en cualquier lado fuera de este(sobre el escritoriopor ej) se dispare una accion...lo que necesito hacer es q el programa funcionando en segundo plano reconozca click derecho y realice una accion en base a eso(dirigir el cursor a otro lugar, clikear y volver a la posicion original)..si me pueden dar una mano estaria muy agradecido.saludos

Puedes hacer una captura para que cuando des click en cualquier parte de la pantalla, sea un click en el formulario, el click donde trates de darlos será inválido pasando a ser válido al Formulario... Déjame pensar a ver como te ayudo.

hola,aca te paso un ejemplo simple que hice para que veas como detectar el clic izquierdo o derecho en la pantalla,despues vos ponele que haga lo que vos quieras hacer,en este caso te va listando los clicks en el formulario.solo necesitas un timer en el formulario.

Código:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(1) = -32767 Then
izquierdo
End If
 
If GetAsyncKeyState(2) = -32767 Then
derecho
End If
End Sub

Private Sub derecho()
Print "clic derecho"
End Sub
Private Sub izquierdo()
Print "clic izquierdo"
End Sub

saludos.

Gracias por la ayuda, me fue muy util el codigo provisto, pero todavia no pude simularel click(es sobre un boton de otro programa). Este esel codigo que utilizo:

Código:

Option Explicit
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Type POINTAPI
 X As Long
 Y As Long
End Type

Private Sub Timer1_Timer()
 If GetAsyncKeyState(2) = -32767 Then
 Dim PosX, PosY As Long
 Dim Pos As POINTAPI
 Call GetCursorPos(Pos)
 PosX = Pos.X
 PosY = Pos.Y
 
 
 Call MouseLeftClick(636, 363)
 'SetCursorPos PosX, PosY
 End If
End Sub


Public Sub MouseLeftClick(ByVal PosX As Long, ByVal PosY As Long)
 Call SetCursorPos(PosX, PosY) 'Move cursor
 
 
 Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
 Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
end sub

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

La idea es que el click se simule sobre un botonde otro programa pero no se como hacerlo...se escuchan sugerencias..desde ya muchas gracias.

Edited by: skarioka