Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: gmf_321 en 24 Septiembre 2006, 16:01 pm



Título: Guia Como hacer para mover el mouse y hacer click
Publicado por: gmf_321 en 24 Septiembre 2006, 16:01 pm
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 ..........


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: ~~ en 25 Septiembre 2006, 19:23 pm
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...   :huh: :huh: :huh:

1S4ludo


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: dPix en 25 Septiembre 2006, 20:05 pm
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


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: gmf_321 en 25 Septiembre 2006, 22:56 pm
Le tenes que sacar los parentesis  ;D


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: ~~ en 26 Septiembre 2006, 18:41 pm
Ok

Todo en orden ahora si q funciona  :P

1S4ludo


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: Topaz_34 en 4 Enero 2007, 01:04 am
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.


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: ~~ en 4 Enero 2007, 12:19 pm
Ya te contesté en el otro post  :P ponlas en un modulo

1S4ludo


Título: Re: Guia Como hacer para mover el mouse y hacer click
Publicado por: Sancho.Mazorka en 4 Enero 2007, 18:39 pm
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:  :huh:

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    :P