Registrarse

[gmf_321]

Para cambiar de posicion el mouse van a usar la siguiente api:

Código:

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

Para hacer click con el mouse van a usar la siguiente api:

Código:

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)

Constantes del mouse_event

Código:

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Para hacer click pone este code (boton izquierdo del mouse):

Código:

mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Despues para mover el mouse :

Código:

SetCursorPos"x", "y"

                                Saludos FMG ..........

[~~]

Hola:

Me salta error de compilacion aki:

Código:

SetCursorPos("x", "y")

La cosa es q no entiendo por q, porque la api parece q esta bien usada...   

1S4ludo

[dPix]

Wenas EON, creo que tu problema se crea al poner los paréntesis, dejalo así:

Código:

SetCursorPos "x", "y"

Imagino que será cómo un InputBox, que al poner paréntesis te pide que lo iguales a una variable en la que almacenará lo datos que eliges. Cuéntame a ver si te funciona,

Un saludo,

dPix

[gmf_321]

Le tenes que sacar los parentesis 

[~~]

Ok

Todo en orden ahora si q funciona 

1S4ludo

[Topaz_34]

Para cambiar de posicion el mouse van a usar la siguiente api:

Código:
Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Para hacer click con el mouse van a usar la siguiente api:

Código:
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)




me marca error en esos dos pedasos de codigo dice error de compilacion que de se permiten constantes, cadena de longitud fija.

[~~]

Ya te contesté en el otro post  ponlas en un modulo

1S4ludo

[Sancho.Mazorka]

El error fue provocado xq los parentesis se usan solo cuando se usa una variable de verificacion Ej:

Código:

Ret = SetCursorPos(X, Y)

Si no iria asi Ej:

Código:

SetCursorPos X, Y

Pero tambien hay otro error ahi, una variable no va dentro de comillas, y no pueden ser letras en el SetCursorPos.
[ Talvez que uds le pusieron las comillas en modo de demostracion ]

Topaz_34 mira cuando pones:
 Public delante de una Variable, Api o Constante debe ir en un Modulo si o si y lo puede utilizar cualquier Form o Modulo u otro Objeto.
 Private solo el Modulo o Form u otro Objeto que contenga esa Variable, Api o Constante podra utilizarlas
 Si no le pones Public o Private osea que queda directamente Declare, tiene que ir en un Modulo y funciona igual que si fuese Public.

Las unicas constantes que no conozco son estas, las otras si xq ya he utilizado el SetCursorPos y el Mouse_Event: 

Código:

Const WHEEL_DELTA = 120 ' Cuando se suelta la rueda ?
Const XBUTTON1 = &H1 ' ... ?
Const XBUTTON2 = &H2 ' ... ?
Const MOUSEEVENTF_WHEEL = &H80 ' Cuando se apreta la rueda ? 

Alguien me diria que evento harian.... X favor!

Muchas gracias y Salu2


Sancho.Mazorka