Information générale
Catégorie:
Fonctions Windows API
Titre:
Using AI calls to move and click the mouse
I originally posted this to the VB section .. but nobody uses it so I'm trying here .. the question is pretty generic anyhow. How to move a Mouse around
the screen and generate clicks programatically in VB. In Foxpro, of course, you just use MOUSE AT .... etc
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 ..
This is a VB example .. my apologies ..
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&)
Suivant
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