|
-
Feb 13th, 2001, 12:11 PM
#1
Thread Starter
Addicted Member
I am trying to send a left mouse click to a certain position within a child window. I have the handle of the child window, but cannot get the sendmessage to work. Any ideas?
Here is some of the code:
[code]
Type POINT_TYPE
x As Long
y As Long
End Type
Public Function MAKEWORD(ByVal bLow As Byte, ByVal bHigh As Byte) As Integer
MAKEWORD = Val("&H" & Right("00" & Hex(bHigh), 2) & Right("00" & Hex(bLow), 2))
End Function
'--------------------------------------------------------------------
strWindowTitle = "Find"
AppActivate (strWindowTitle)
Call HPause(0.5)
lHwnd = FindWindow(vbNullString, strWindowTitle)
lCwnd = FindWindowEx(lHwnd, 0&, ThunderRT6ListBox", vbNullString)
lCwnd2 = FindWindowEx(lHwnd, lCwnd, "ThunderRT6ListBox", vbNullString)
packed = MAKEWORD(112, 73)
rc = PostMessage(lCwnd2, WM_LBUTTONDOWN, MK_LBUTTON, ByVal packed)
DumEvents = DoEvents
DumEvents = DoEvents
rc = PostMessage(lCwnd2, WM_LBUTTONUP, MK_LBUTTON, ByVal packed)
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|