how do i send/post a click inside another program?

[cd2oo1]

how do i send/post a click inside another program?
if it's minmized? i know it's handle and the pos i want to click in the program
how should i do?

thanks for answering questions like these over and over again


thanks in advance, and as always help is appreciated.

[Rh0ads]

Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal 
wMsg As Long, ByVal wParam As Long, lParam As Any)
Const VK_SPACE = &H20
Const WM_KEYUP = &H101
Const WM_KEYDOWN = &H100
Sub Click_Button(Handle As Long)
Call SendMessage(Handle&, WM_KEYDOWN, VK_SPACE, vbNullString)
Call SendMessage(Handle&, WM_KEYUP, VK_SPACE, vbNullString)
End Sub

Just call that sub and it'll click the button. I'm pretty sure it'll work if it's minimized

[Megatron]

No, that wont work, since SendMessage will always wait for a return value rather than return immediately. In this case, you need to use PostMessage instead.

[cd2oo1]

but how does it know where to click?

dont i need to declare the coords for the click inside the prog.?

[Megatron]

The LoWord of lParam specfies the X-coordinates, and the HiWord of lParam specfies the Y-coordinates.

[cd2oo1]

k

[Megatron]

Since VB, doesn't come with any sort of MakeDWORD function, here it is:

Public Function MakeWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
   MakeWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function

Usage

Dword = MakeWord ( LoWord, HiWord )

[cd2oo1]

thx for clearing that.. (for like 1 min ago i searched www.freevbcode.com) trying to find something like that but i wasn't sure what i was looking for, so thx for clearing it up!

[cd2oo1]

i tried:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Private Sub Command1_Click

Dword = MakeWord (54, 456)

PostMessage hWndOfwindow, WM_LBUTTONDOWN, MK_LBUTTON, Dword
PostMessage hWndOfwindow, WM_LBUTTONUP, MK_LBUTTON, Dword
End Sub

****

i couldn't get that to work, it just doesn't click, recenlty i found:
Public Function IntegersToLong(LoWord As Integer, _
HiWord As Integer) As Long

IntegersToLong = (HiWord * &H10000) + (LoWord And &HFFFF&)

End Function

but i haven't tested it, maybe that's the solution?

[Megatron]

Yes, that is the correct method (mine used Or instead of "+" ).

[Megatron]

Actually, Or and + are the same so this should work

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Public Function MakeWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
   MakeWord = (HiWord * &H10000) + (LoWord And &HFFFF&)
End Function

Private Sub Command1_Click()
    dword = MakeWord(4, 4)
    PostMessage hwnd, WM_LBUTTONDOWN, 1, dword
    PostMessage hwnd, WM_LBUTTONUP, 1, dword
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Print X / Screen.TwipsPerPixelX & "-" & Y / Screen.TwipsPerPixelY
End Sub