Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: dimitrix en 2 Agosto 2008, 02:51 AM

Título: Sendkeys ratón
Publicado por: dimitrix en 2 Agosto 2008, 02:51 AM
Bueno, me gustaría saber si hay algo parecido al sendkeys pero con el ratón, que aparte del click principal, se pudiese mover dandole valores.

Lo busqué por Google pero no lo encontré, un saludo.
Título: Re: Sendkeys ratón
Publicado por: seba123neo en 2 Agosto 2008, 03:06 AM
Hola si la hay, digamos vos queres mandar click del mouse...aca te dejo un ejemplo...

Código (vb) [Seleccionar]
Option Explicit
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
Private 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)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Public Sub MouseLeftClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub

Private Sub Form_Load()
SetCursorPos 50, 800
Call MouseLeftClick(50, 800)
End Sub


con eso posicionas el mouse con la api SetCursorPos y despues generas un clic derecho...si tenes una resolucion de 1024x768 este ejemplo generaria un click en el boton inicio de windows....

saludos.