ALT + LClick

[Gotha]

Здравствуйте дамы и господа)
хотел выспросить у вас помощи в нелегком деле генерации нажатия альта и левой кнопки мыши на форме. с шифтом и контролом все получилось, а с альтом никак (
зы. юзал сенд и постмессейдж с параметрами WM_LBUTTOMDOWN(UP) и MK_SHIFT(CONTROL). кака в том, что шифт и контрол хотят а MK_ALT не хочет

[Gotha]

неужто никто не знает? хм, нато бы эту тему в ветку не для новичков

[Nicky]

keybd_event

[Gotha]

кейбд евент не подойдет, т.к. работать придется с неактивным а возможно и свернутым окном

[Nicky]

(GetKeyState(vbKeyMenu) And &HF0000000) <> 0

[Gotha]

это проверка на нажатие альта, я не то хотел ... но хотя бы реагируешь и пытаешься помочь, на чем спасибо)

[Nicky]

WM_SYSKEYDOWN(UP)

[Gotha]

не работает (, пробовал

[Nicky]

SendMessage'ы:

WM_SYSKEYDOWN
WM_LBUTTONDOWN
WM_LBUTTONUP
WM_SYSKEYUP

не работает?

[Gotha]

нет ( ни с VK_MENU ни с прочим

[Gotha]

ап теме, ибо все еще не справился (
спай++ не показывает начальное нажатие альта, показывает нажатие мыши и отпускание а потом WM_SYSKEYUP c VK_MENU, сделал как там - нифига (
хелп!

[Gotha]

ап

[Nicky]

Я сделал В ТОЧНОСТИ, КАК В SPY++
Бэзполэзно

[EDIT] Нажатие Alt у меня показывает, идет Alt нажали + мышь нажали + мышь отпустили + Alt отпустили

[Gotha]

обьясню ситуацию: пишу программу-макрос для одной онлайн игры. прога контачит с игрой через ее окно, посылая ему клики и прочее, вот у меня как раз спай++ не показывает нажатие альта на окне клиента этой игры (графический движок клиента - HGE)
ссыль на клиент: http://80.237.207.10/files/eos.exe (35 мегабайт)

[ALX_2002]

http://www.firststeps.ru/mfc/winapi/keyb/r.php?66

Вот взгляни. Я чё то никак не въеду, но это оно самое

[GSerg]

Да? А где там про мышь?

[ALX_2002]

Ну значит на это оно самое 99%

[Gotha]

многообещающе кстати.. я это видел но из-за неучености не смог поиграться с битами lParam, может научите, или дадите мини-примерчик?

[Nicky]

Я поигрался, но толку 0
Самому уже интересно, что не так?
Module1

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

Option Explicit

Public Const VK_CONTROL = &H11
Public Const VK_MENU = &H12
Public Const VK_SHIFT = &H10

Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const MK_LBUTTON = &H1

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Form1

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

Option Explicit

Private Sub Command1_Click()
  PostMessage List1.hwnd, WM_SYSKEYDOWN, VK_MENU, ByVal &H20380001
  PostMessage List1.hwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal &H100010
  PostMessage List1.hwnd, WM_LBUTTONUP, ByVal 0&, ByVal &H100010
  PostMessage List1.hwnd, WM_SYSKEYUP, VK_MENU, ByVal &HC0380001
End Sub

Private Sub Form_Click()
  List1.AddItem Now & ": " & IIf((GetKeyState(vbKeyMenu) And &HF0000000) <> 0, "Alt-", "") & "Click"
End Sub