Como mover el mouse? (Visual Basic)

[daniellunare]

Bueno, primero que todo soy nuevo en esto (foros del web y en visual basic), estoy utilizando el Microsoft Visual Basic 2008 Express, mi problema es que no he encontrado un codigo que haga ir al mouse (puntero) a una coordenada (escogida), ya he probado con estos codigos.

Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy _
As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_MOVE = &H1

mouse_event MOUSEEVENTF_MOVE, (x), (y), 0, 0

(Si funciona pero el cursor solo se dezplaza verticalmente y no horizontalmente, partiendo desde el punto en que esta)

y con este:

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

SetCursorPos"x", "y"

(Funciona pero solo se pezplaza horizontalmente, y me pone el cursor en arriba)

Please, necesito ayuda, tengo dañado algun archivo, o que puede ser, hay otra forma de hacer que se mueva???



Gracias por su atención.

[sam90]

Yo solia usar esto para mover de forma loca al mouse!! Espero que te sirva.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim pos As POINTAPI
a = GetCursorPos(pos)
Randomize
x = pos.x
y = pos.y
x = x + (Int(Rnd * 10) - 5)
y = y + (Int(Rnd * 10) - 5)
a = SetCursorPos(x, y)

[daniellunare]

Iniciado por sam90

Yo solia usar esto para mover de forma loca al mouse!! Espero que te sirva.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim pos As POINTAPI
a = GetCursorPos(pos)
Randomize
x = pos.x
y = pos.y
x = x + (Int(Rnd * 10) - 5)
y = y + (Int(Rnd * 10) - 5)
a = SetCursorPos(x, y)

Me pone que el tipo POINTAPI no esta definido, todo lo que intento con POINTAPI me sale asi, alguien me podria explicar???

[erbuson]

Hola:

Si compruebas este enlace, obtendrás una mayor explicacion y ejemplos que creo podrá resolver todas tus dudas. incluso la del POINTAPI

Trucos con el Mouse

Saludos