Programación General > Visual Basic 6.0 e inferiores

 Forzar Clic, Posicion Del Mouse, Y Teclas

(1/1)

Chinta Nemoto:
Existen programas que fuerzan esas cosas, tales como el "piringulete" del argentum online. tengo un ejemplo para pasarles su funcionamiento (ver adjunto).

Necesito:

1) Forzar clic del mouse en la posicion en q se encuentre.

2) Forzar las posiciones del mouse, tomando los valores val(text1) y val(text2) para coordenadas.

3) Forzar la presion de una tecla.


Me gustaría que me respondan eso por favor... lo necesito

Brroz:
Hola Chinta Nemoto.

Puedes sencillamente invocar el método que controle el evento en cuestión.

Por Ejemplo imagina un formulario llamado Form1 con este código:


--- Código: Text --- Public Sub Form_Click()       MsgBox "Has hecho click"End Sub  
Desde el proyecto, cuando quieras simular un click sobre Form1, solamente has de hacer: Form1.Form_Click y ejecutarás el código asociado al evento. Eso sí, debes tener en cuenta el declarar el método como Public (o Friend si lo vas a invocar desde el mismo proyecto).

La única posible complicación sería identificar sobre que control u objeto se encuentra el puntero del ratón... lo podrías solventar declarando una variable pública de objeto que se inicializaría desde el evento MouseMove de los distintos controles...  


--- Código: Text ---  Public MiObjeto as Object Private Sub Text1_MouseMove( _Button As Integer, Shift As Integer, X As Single, Y As Single)      Set MiObjeto = Text1End Sub Public Sub Text1_Click()        MsgBox "Click sobre Text1"End Sub   
Y luego cuando quieras simular el evento...


--- Código: Text ---  Private Sub ForzarClick       CallByName MiObjeto  _       , MiObjeto.Name & "_Click" , vbMethod       End Sub   
Espero que te sirva, Suerte.

Cyclop:
Revisa esto espero que te ayude


--- Código: Text ---'Before you start this program, I suggest you save everything that wasn't saved yet.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 = &H2Const MOUSEEVENTF_LEFTUP = &H4Const MOUSEEVENTF_MIDDLEDOWN = &H20Const MOUSEEVENTF_MIDDLEUP = &H40Const MOUSEEVENTF_MOVE = &H1Const MOUSEEVENTF_ABSOLUTE = &H8000Const MOUSEEVENTF_RIGHTDOWN = &H8Const MOUSEEVENTF_RIGHTUP = &H10Private Sub Form_Activate()    'KPD-Team 1998    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    Do        'Simulate a mouseclick on the cursor's position        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI        DoEvents    LoopEnd Sub  

Salu2

Cyclop

 :D

Chinta Nemoto:
Que son los parametros cButtons y dwExtraInfo ?

Navegación

[0] Índice de Mensajes