Information générale
Catégorie:
Fonctions API de Windows
Titre:
Generating a mouse click using SendMessage
I am trying to programmatically move a mouse around and generate mouse clicks in a app containing a WebBrowser (ie4) Active X control.
I tried using SendMessage to move the cursor around but had no luck.
I can move the mouse around OK with SetCursorPos but you need (I believe) SendMessage to generate the mouse click.
Any help would be much appreciated ..
EG,
Public Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Public Type POINT
x As Long
y As Long
End Type
Moving the cursor around .. this will move to the center of the window .. works fine
Dim CurPosition as POINT
Dim Client as RECT
get the client area
GetClientRect Me.hwnd, Client
CurPosition.x = Client.Bottom/2
CurPosition.y = Client.right/2
ClientToScreen Me.hwnd, CurPosition
t = SetCursorPos(CurPosition.x, CurPosition.y)
But trying to generate a mouse click at this (or any) point doesn't work
ScreenToClient Me.hwnd, CurPosition
Dim lParameter as long
lParameter = (CurPosition.y) * 65535 + CurPosition.x
t=SendMessage(me.hWnd,WM_LBUTTONDOWN,0&,lParameter&)
or for that matter ..
t=SendMessage(me.hWnd,WM_MOUSEMOVE,0&,lParameter&)
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement