SetCursorPos che fa i capricci..

[ranza!!!123]

sto facendo un programmino per poter stracciare il record di un mio amico in un videogioco

devo semplicemente combinare una serie di SetCursorPos e mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0

per spostarmi da un punto all'altro e cliccare..il problema è che ogni tanto "salta" la SetCursorPos e clicca nel punto in cui il mouse è attualmente..

qualche idea della motivazione?

[oregon]

Originariamente inviato da ranza!!!123
qualche idea della motivazione?

E come si potrebbe averne se non mostri il codice ?

[ranza!!!123]

Private Sub Command1_Click()

SetCursorPos 275 , 652 
Sleep (1000)
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0
Sleep (200)
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0

SetCursorPos 655 , 652 
Sleep (1000)
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0
Sleep (200)
mouse_event &H2, 0, 0, 0, 0
mouse_event &H4, 0, 0, 0, 0

a volte clicca nei punti giusti ma il cursore rimane dov'è..a volte proprio non si muove..

[oregon]

Suppongo sia in VB6 (va SEMPRE indicato ...) ... dovresti mostrare anche le dichiarazioni delle API che hai usato, per escludere errori ...

[ranza!!!123]

si scusami..è tanto che non posto qua e l'ho scordato..

Private Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long

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)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

la cosa che non comprendo è il non determinismo del programma..a volte funziona..a volte no..

[MItaly]

Credo che il problema sia che le due funzioni operano ad un livello differente, forse ti conviene usare la mouse_event anche per il movimento del mouse, come spiegato qui.

[ranza!!!123]

grazie..adesso pare proprio funzionare

[MItaly]

Di niente; ciao!