Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Simulare click sx del mouse attraverso ytastiera
Forum - Visual Basic 6 - Simulare click sx del mouse attraverso ytastiera

Avatar
-marco- (Normal User)
Newbie


Messaggi: 2
Iscritto: 30/07/2008

Segnala al moderatore
Postato alle 1:13
Mercoledė, 30/07/2008
Intanto un saluto a tutti :)

avrei bisogno di poter simulare attraverso un tasto predeterminato, un click del mouse con delle coordinate prestabilite, indipendentemente dal programma in uso. non ne capisco molto di programmazione, ma penso che sia possibile farlo con VB.

se mi indirizzate sono sufficientemente tesdtardo per provarci.

grazie per l'aiuto.

ciao :)

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 8:29
Mercoledė, 30/07/2008
In un modulo:
Codice sorgente - presumibilmente VB.NET

  1. Public Const MOUSEEVENTF_LEFTDOWN = &H2
  2. Public Const MOUSEEVENTF_LEFTUP = &H4
  3.  
  4. Public 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)



nel form:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub LeftDown() 'quando il tasto del mouse viene premuto
  2. mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  3. End Sub
  4. Public Sub LeftUp() 'quando il tasto del mouse viene rilasciato
  5. mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  6. End Sub
  7.  
  8. 'Poi in una qualunque sub basta richiamare le 2 sub scrivendo:
  9. LeftDown
  10. LeftUp



l'unica cosa č che il click lo fa dove sta il cursore del mouse, ma potresti spostare il cursore da vb per pochi secondi avviare il codice di simulazione click e rimettere il cursore dove si trovava per dare l'effetto che desideri ;)

p.s. se metti il codice in un commandbutton stai attento perchč se clicchi sul command poi si risimula il click sul command all'infinito impallando tuto...

PM Quote
Avatar
-marco- (Normal User)
Newbie


Messaggi: 2
Iscritto: 30/07/2008

Segnala al moderatore
Postato alle 10:56
Mercoledė, 30/07/2008
grazie, e come faccio a far si che il cursore sia spostato alla posizione prestabilita e poi ritorni al punto di partenza?


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 11:11
Mercoledė, 30/07/2008
cosė:
Codice sorgente - presumibilmente VB.NET

  1. Private Declare Function SetCursorPos _
  2. Lib "user32" _
  3. (ByVal X As Long, ByVal Y As Long) As Long
  4.  
  5. poi in una sub mettici
  6. SetCursorPos coordinataX, coordinataY




PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 10:57
Sabato, 02/08/2008
Public 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)

Prova questa!

PM Quote