Mover Cursor

[cadrogui]

Hola gente, estoy tratando de hacer que a un evento determinado el mouse se mueva, lo estoy tratando sin exito de la siguiente forma.

Dim TamX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim TamY As Integer = Screen.PrimaryScreen.Bounds.Height

de esta manera obtengo la resolucion de la pantalla

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

de esta forma muevo el mouse!!

para movero hacia la derecha "Eje X", creo que se deberia hacer un bucle que disminuya los valores en el eje X, el tema con esta idea es que tiene 2 problemas

1.- no se como obtener la posicion actual del mouse para poder manejar los valores.
2.- trate de hacer un bucle y me consume muchos recursos del CPU.

alguien me puede dar una ayudita?

gracias.

[eperedo]

Hola, usa la clase Point para indicar la posición.

Código vb.net:

Dim p As New Point(16, 20) 'Establece Posición
Windows.Forms.Cursor.Position = p 'Asignarle la posición
 

Eso en el evento que desees, espero te ayude

[cadrogui]

hola, lo pruebo, pero y como puedo obtener la posicion actual del raton???

gracias.

[eperedo]

Código vb.net:

Dim posX, posY As Int32
posx = Windows.Forms.Cursor.Position.X
posy = Windows.Forms.Cursor.Position.Y
 

[cadrogui]

gracias, funciona pero con un detalle, el movimiento del cursos es muy rapido como puedo manejar la volocidad del desplazamiento, dejo el code:

Dim posX, posY As Int32
posX = Windows.Forms.Cursor.Position.X
posY = Windows.Forms.Cursor.Position.Y

Dim TamX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim TamY As Integer = Screen.PrimaryScreen.Bounds.Height

For i = posX To TamX
Dim p As New Point(i + 1, posY)
Windows.Forms.Cursor.Position = p
Next

[eperedo]

e...e..... pues no, hasta acá quedé yo, no sé como cambiar la "velocidad".
Lo que podrías hacer es detener el proceso por un tiempo, algo asi:

Código vb.net:

For i = posX To TamX
Dim p As New Point(i + 1, posY)
Windows.Forms.Cursor.Position = p
Threading.Thread.Sleep(1) 'Esto le dará el efecto de que va más lento.
Next
 

Quizá te pueda servir, saludos.

[cadrogui]

gracias por tu ayuda, funciona relativamente bien. solo que se queda pegado a veces, debe ser por que espera a que se termine el bucle TamX

gracias.

[cadrogui]

hola gente, he tratado de hacerlo de la siguiente manera.

While Debug = "Raton en Area Inferior"
Dim i As Integer
Dim p As New Point(posX, i - 1)
Windows.Forms.Cursor.Position = p
'Threading.Thread.Sleep(1)
End While

pero se queda pegado tambien y a veces mueve el cursor.

alguna sugerencia???

gracias