программно нажать мышкой

[mitr]

нужно программно нажать мышкой, фича в том, что в собственном приложении работает, а в других нет(

Dim a As Long
Dim mousepos As Long
Dim hWnd As Long
hWnd = FindWindow(CLng(0), "Microsoft Internet Explorer")

AppActivate ("Microsoft Internet Explorer")

Call SetCursorPos(10, 10)
Sleep (100)
Let mousepos = MakeDWord(100, 100)
Call SendMessage(hWnd, WM_LBUTTONDOWN, MK_LBUTTON, mousepos)
Call SetCursorPos(200, 200)

Sleep (100)
Call SendMessage(hWnd, WM_LBUTTOnup, MK_LBUTTON, mousepos)

[alibek]

API mouse_event для этих целей гораздо удобнее

[mark+]

Хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи-хи. Поищи на форуме тему: Клик мышки.