Drag & Drop в чужом окне?

[Oberon]

Можно ли выполнять движения мышкой в чужом окне и притом ещё так чтобы после одного раза действие выполнялось без участия мыши?
Вопрос по меньшей мере странный ,но может у кого и появится идея .

[tyomitch]

Можно, через журнальные хуки. При первом разе записать движения мыши, при всех остальных - проигрывать.

[Oberon]

А можно поподробнее?
А то я в VB еще не работал с хуками.
Кстати этот вариант не будет дёргать мышку при каждом исполнении?

[tyomitch]

Дёргать - будет.
Поищи гуглом по слову WH_JOURNALPLAYBACK, мне лень

[Oberon]

Не, если дёргает ,то не надо я могу использовать ActMaker или ещё чтото вроде.

[Oberon]

Я тут подумал что если посылать изменённую структуру cp, в функциях с buttondown и buttonup , то у меня как раз и получится драгить что-либо, но програмка не выполняет даже элементарный клик.В чём может быть проблема ?

Код: Выделить всё

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
   
    Dim cp As POINTAPI, MsgRs As Long
    GetCursorPos cp
    myhwnd = WindowFromPoint(cp.x, cp.y)
    GetWindowThreadProcessId myhwnd, procId
    MsgRs = PostMessage(WHnd, WM_LBUTTONDOWN, vbNull, cp)
    MsgRs = PostMessage(WHnd, WM_LBUTTONUP, vbNull, cp)
    'MsgBox CStr(MsgRs)
       
End Sub

[tyomitch]

vbNull, ха-ха-ха...
Попробуй:

Код: Выделить всё

Dim cp As POINTAPI, MsgRs As Long
    GetCursorPos cp
    myhwnd = WindowFromPoint(cp.x, cp.y)
    MsgRs = PostMessage(myhwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal cp.x + 65536 * cp.y)
    MsgRs = PostMessage(myhwnd, WM_LBUTTONUP, ByVal 0&, ByVal cp.x + 65536 * cp.y)