19/05/07 18:04
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-
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
premetto che di vb6 non so moltissimo però me la cavo a fare alcune cagatine 8-
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
