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 - spostare mouse e simularne il click
Forum - Visual Basic 6 - spostare mouse e simularne il click

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
ciao a tutti, sono nuovo. innanzitutto devo fare i complimenti per questo sito che è davvero grandioso (gia da tempo scaricavo sorgenti sui quali ho imparato qualcosa)


premetto che di vb6 non so moltissimo però me la cavo a fare alcune cagatine 8-:asd:

cmq arriviamo al dunque

io vorrei creare un'applicazione-scherzo classica e semplicissima, ovvero quella che ti sposta il mouse in un punto e quando cerchi di muoverlo lo rimette sempre li

per fare questo io ho usato il timer che ogni millesimo di secondo ti sposta il mouse al centro dello schermo... funziona perfettamente

per farlo ho dichiarato in un modulo le seguenti variabili API:

Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

e come variabili POINTAPI

Type POINTAPI
    x As Long
    y As Long
End Type


poi nel timer ho scritto

Dim Posizione As POINTAPI
        Posizione.x = Screen.Width \ 2 \ Screen.TwipsPerPixelX
        Posizione.y = Screen.Height \ 2 \ Screen.TwipsPerPixelY
         SetCursorPos Posizione.x, Posizione.y

fin qui tutto ok, ma io vorrei anche simulare la pressione continua (sempre ogni millisecondo) del tasto destro del mouse, in modo da creare quel continuo e fastidioso aprire di finestrelle

per fare ciò purtroppo non riesco proprio a capire quali API devo dichiarare...

qualcuno di voi mi saprebbe aiutare?
conto su di voi, grazie mille in anticipo ! ciao ciao

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 23:11
Sabato, 19/05/2007
serve un hook di sistema.
io non ne sono in grado ma forse puoi trovare qualche ocx in rete.

PM Quote