| Pregunta: | 17527 - SIMULAR EL CLICK DEL MOUSE POR TECLADO |
| Autor: | Ariel F. |
| Buenas, escribo aqui como la ultima chance de consequir una respuesta, ya que la he buscado por varios lados. Se trata de lo siguiente : Lo que necesitaria es simular el click (Izq. o der.) del mouse, pero no para una aplicacion creada por mi, sino para otra aplicacion que ya esta corriendo y necesito enviarle una especie de SENDMOUSECLICK, ya que no tengo acceso al codigo. Es sobre Windows 98, lo que intente es con las teclas del NumPad, con accesibilidad para mouse, pero no se como enviarlas, ya que no son ASCII no encuentro la forma de llamarlas...
Sin mas y agradeciendo desde ya | |
| Respuesta: | Pedro J. Marín |
| Lo que tu buscas es esto:
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 ' left button down Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up Public Sub ClickMouse() mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub Private Sub Command1_Click() ClickMouse End Sub | |
| Respuesta: | Jose A. |
| Hola. Por lo que dices puede que te sirva la función SENDKEYS. | |