Originariamente inviato da tuono_2000
ciao android89
per spostare il cursore del mouse e fare click, in modo visibile,
puoi utilizzare questa API di windows per VisualBasic6

codice:

Da inserire in TESTA alla FORM delle funzioni mouse, o in MODULE

Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwDate As Long, ByVal dwExtraInfo As Long)
Public Type POINT_TYPE
X As Long
Y As Long
End Type
codice:

Da inserire nella funzione che intercetta, sposta e esegue il mouse
Dim X, Y
Dim P As POINT_TYPE

X = GetCursorPos(P) 'estrae la posizione attuale del mouse
rem inserisci la nuova posizione del mouse
X = InputBox("inserire valore X del mouse; corrente:" + Str(P.X), "VALORE NUMERICO X MOUSE")
Y = InputBox("inserire valore Y del mouse; corrente:" + Str(P.Y), "VALORE NUMERICO Y MOUSE")

rem posizione il mouse nella nuova posizione
SetCursorPos X, Y 

Rem simulazione click mouse (sinistra centro destra)
mouse_event &H2 Or &H4, 0, 0, 0, 0 'vbkeylbutton
mouse_event &H20 Or &H40, 0, 0, 0, 0 'vbkeymbutton
mouse_event &H8 Or &H10, 0, 0, 0, 0  'vbkeyrbutton


Spero di esserti stato utile, per spostare il mouse e simulare il CLICK
Al posto di X,Y puoi inserire i valori, numerici, delle nuove coordinate per il mouse

Ciao tuono, ho inserito nel modulo del progetto le dichiarazioni ecc come hai detto tu,
poi ho inserito il resto dentro l'evento click di un pulsante ma mi da un erroe:

codice:
Private Sub Command3_Click()
Dim X, Y
Dim P As POINT_TYPE

X = GetCursorPos(P ) 'estrae la posizione attuale del mouse
Rem inserisci la nuova posizione del mouse
X = InputBox("inserire valore X del mouse; corrente:" + Str(P.X), "VALORE NUMERICO X MOUSE")
Y = InputBox("inserire valore Y del mouse; corrente:" + Str(P.Y), "VALORE NUMERICO Y MOUSE")

Rem posizione il mouse nella nuova posizione
SetCursorPos X, Y

Rem simulazione click mouse (sinistra centro destra)
mouse_event &H2 Or &H4, 0, 0, 0, 0 'vbkeylbutton
mouse_event &H20 Or &H40, 0, 0, 0, 0 'vbkeymbutton
mouse_event &H8 Or &H10, 0, 0, 0, 0  'vbkeyrbutton
End Sub
l'errore che da è il seguente :" tipo non corrispondente per l'argomento byref" e si posiziona sulla p che ho colorato di arancione...