Spostare cursore

[BlackDemon]

Salve a tutti sapete x caso il codice in VB per spostare il puntatore del mouse in una posizione predefinita???

[chipdb]

Molto semplice:

In un modulo metti

Public Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal Y As Long) As Long

e quando vuoi spostare il cursore

SetCursorPos X,Y

dove X e Y sono le coordinate del puntatore nello schermo

Bye

[steno12]

Fai un nuovo progetto vuoto

metti sul form due pulsanti e due text

---------e incolla questo codice:


'--------taglia da quì-----------------
'Funzione SetCursorPos x settare la posizione del cursore sullo skermo
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Dim a
Dim b
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'Fine SetCursorPos

Private Sub Command1_Click()
Dim prendi As pointapi 'creiamo la variabile prendi
GetCursorPos prendi 'prendiamo la posizione
Text1.Text = prendi.x 'coordinata x
Text2.Text = prendi.y 'coordinata y
End Sub

Private Sub Command2_Click()
a = Text1.Text 'a è la coordinata x specificata nella textbox (text1)
b = Text2.Text 'b è la coordinata y specificata nella textbox (text2)
retval = SetCursorPos(a, b) 'settiamo la posizione
End Sub
'-------------a quì--------------------



questo è il codice per il modulo.bas
che immetti nel progetto:

incollaci questo codice:

'-----taglia da quì---------------
'Funzione GetCursorPos x trovare la posizione del cursore
Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Type pointapi
x As Long
y As Long
End Type
'Fine GetCursorPos

'Funzione x simulare il click del mouse
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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' bottone sinistro giù
Public Const MOUSEEVENTF_LEFTUP = &H4 ' bottone sinistro su
'---------a quì-------------------



Avvii il progetto e digiti le coordinate dove deve posizionarsi il mouse nelle text.box, poi clicche sul command2









link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[BlackDemon]

Ok grazie mille funzionano entrambi i codici! Ciaooooooooooooooo