how to do autoit's "ControlClick" in vb6

**Sonicxtacy02** · 02-07-2008, 11:42 AM

I'm determined to get this working in vb6 instead of writing a seperate app in autoit and i cant find any info on the net so i need you guys help. I'm trying to send mouse clicks to a external apps control in vb6. i do not want to physically move the mouse. In this case i have the window handle and the names for the controls, i simply need the function to send the clicks. Thanks

**Arrow** · 02-07-2008, 03:06 PM

You can use AutoIt's com object

**Sonicxtacy02** · 02-07-2008, 03:15 PM

Originally Posted by Arrow

You can use AutoIt's com object

i never even knew autoit hadda com object. Cheap and dirty way to do it.. i like!

**Arrow** · 02-07-2008, 06:07 PM

Yeah, check it out. It's included with the AutoIt download. It includes just about all the functionality of autoit.

**Arrow** · 02-07-2008, 06:32 PM

I just posted the question on experts-exchange. Maybe someone will have a more direct way of doing this, as I am also curious. I've used the AutoIt COM object before, but if that extra dll can be eliminated, that would help make a smaller easier to handle package.

**Enforcer** · 02-07-2008, 06:57 PM

Have a look here

http://www.vbforums.com/showthread.p...ouse+click+app

**Arrow** · 02-08-2008, 07:47 PM

See this helps

**pjofx** · 02-22-2008, 04:37 AM

Hi! I am trying to do almost the same using PowerShell via AutoItX COM interface.

Does anybody know how to do ControlClick ?

pjo

-----------
PS
How do I find ControlID of a button of a window application ?

**ClockWorK** · 07-18-2008, 12:47 PM

Here's how I click on a control in another app through code. All you need is the handle.

Code:

'''''''
Private Declare Function SendMessage_Long Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef LParam As Long) As Long
Private Const WM_LBUTTONDOWN  As Long = &H201
Private Const WM_LBUTTONUP    As Long = &H202
Private Const WM_KEYUP        As Long = &H101
Private Const WM_KEYDOWN      As Long = &H100
Private Const VK_SPACE    As Long = &H20
''''''''

Public Sub WindowAPI_Click(ByVal hwnd As Long)

Dim retVal As Long

retVal = SendMessage_Long(hwnd, WM_LBUTTONDOWN, 0&, ByVal 0&)
retVal = SendMessage_Long(hwnd, WM_LBUTTONDOWN, 0&, ByVal 0&)
retVal = SendMessage_Long(hwnd, WM_KEYUP, VK_SPACE, ByVal 0&)
retVal = SendMessage_Long(hwnd, WM_LBUTTONUP, 0&, ByVal 0&)

End Sub