MOUSE HOOK(200分)

CJ · 1999-08-24

MOUSE HOOK 例子 想了解当前其SHIFT STATUS，是否为RIGHT CLICK 那个STRUCT我晕了，懒得研究

Jams · 1999-08-24

监测左、右Shift借鉴Dos下的中断(Int 16H),其每个Bit位都有说明。

SeaSky · 1999-08-24

好象CJ 要的是鼠标的状态, 不是键盘状态. 正在研究中, 希望能在睡觉前搞懂.

Another_eYes · 1999-08-25

别研究了, MOUSEHOOKSTURCT里没有这个信息. 可以调用getkeystate(VK_RBUTTON), 根据返回值判断, 如果返回值最高位为1表示Right button按下了. 否则没有按下

Jams · 1999-08-25

Dos下的Int 33H是控制鼠标的,它能监测按钮状态。

SeaSky · 1999-08-25

同意eyes, 我找了三圈也没发现MOUSEHOOKSTURCT中有键态的信息. 在MSG中判断MSG类别, WM_LBUTTONDOWN, WM_RBUTTONDOWN中你看着办 试试吧.

Another_eYes · 1999-08-25

看清题目, 是在hook里. win32程序没法调16位实模式下的软中断.

SeaSky · 1999-08-25

我说的意思是指: 在截获的一些鼠标消息中本来就有SHIFT STATUS的状态, WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_RBUTTONDOWN 等消息可以用下列方法. Message.WParam 就代表了SHIFT STATUS的状态 MK_LBUTTON   1 Set if the left mouse button is down. MK_RBUTTON   2 Set if the right mouse button is down. MK_SHIFT     4 Set if the SHIFT key is down. MK_CONTROL   8 Set if the CTRL key is down. MK_MBUTTON   16 Set if the middle mouse button is down. 如上所述, 判断右键可以通过判断第2位是否是1,    if (WParam and 2)=2 then //判读右键是否按下.

Another_eYes · 1999-08-25

seasky, mousehook不提供msg结构给回调程序的(只提供message号-比如WM_MOUSEMOVE, 坐标, hittest返回值...). 根据message号判断吧: if WM_RBUTTONDOWN then 变量置位 else if WM_RBUTTONUP then 变量复位&rightclick了.

SeaSky · 1999-08-25

咦, 我在win32 hlp 中查看 WM_MOUSEMOVE, WM_MOUSEMOVE   fwKeys = wParam;        // key flags xPos = LOWORD(lParam);  // horizontal position of cursor yPos = HIWORD(lParam);  // vertical position of cursor Parameters fwKeys Value of wParam. Indicates whether various virtual keys are down. This parameter can be any combination of the following values: Value Description MK_CONTROL Set if the CTRL key is down. MK_LBUTTON Set if the left mouse button is down. MK_MBUTTON Set if the middle mouse button is down. MK_RBUTTON Set if the right mouse button is down. MK_SHIFT         Set if the SHIFT key is down. 并且, 我也在Delphi中取出了各个键的状态. 鼓捣这玩意, 没经验的说, 希望能多学习学习. 例子如下,   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   YourHook: HHOOK; function YourHookProc(Code: Integer; WParam: Longint; var Msg: TMsg): Longint; stdcall; implementation {$R *.DFM} function YourHookProc(Code: Integer; WParam: Longint; var Msg: TMsg): Longint; stdcall; begin    if Msg.Message = WM_MOUSEMOVE then  begin       form1.Edit1.text := inttostr(msg.wParam);  //msg.wParam 就是鼠标键和Shift/ctrl的各个状态值.    end;    Result := CallNextHookEx(YourHook, Code, WParam, Longint(@Msg)); end; procedure TForm1.FormCreate(Sender: TObject); begin    YourHook := SetWindowsHookEx(WH_GETMESSAGE, @YourHookProc, 0, GetCurrentThreadID); end;

Another_eYes · 1999-08-25

你取到的是msg.wparam吗? 好象不是吧, 根据win32.hlp, 你程序中的Msg指向的是 MOUSEHOOKSTRUCT, 在其中相当于Msg结构中wparam位置的值是hwnd吧? MOUSEHOOKSTRUCT:  <-->       MSG:   pt.x            <-->        hwnd       (4 bytes)   pt.y            <-->        messageId  (4 bytes)   hwnd            <-->        wparam     (4 bytes)   hittestcode     <-->        lparam     (4 bytes)   extraInfo       <-->        time       (4 bytes)   <超界>           <-->        point.x    (4 bytes)   <超界>           <-->        point.y    (4 bytes)

SeaSky · 1999-08-25

可是我的程序完全试成功了,  试验情况如下:                         Edit1.text值     --------------------------------------- 当左键按下时拖动鼠标,                 1 当右键按下时拖动鼠标,                 2 当中键按下时拖动鼠标,                 16 当左、右键按下时拖动鼠标,              3 当Shift按下时拖动鼠标,                4 当Ctrl按下时拖动鼠标,                 8 当左中右键，shift,ctrl全按下脱动鼠标， 31 另外我看的是Win32 中关于WM_MOUSEMOVE的解释。

Another_eYes · 1999-08-25

哦? 关于mousehook的win32 hlp是错误的? 还是我理解上有问题? Parameters nCode Specifies a code the hook procedure uses to determine how to process the message. This parameter can be one of the following values: Value Meaning HC_ACTION The wParam and lParam parameters contain information about a mouse message. HC_NOREMOVE The wParam and lParam parameters contain information about a mouse message, and the mouse message has not been removed from the message queue. (An application called the PeekMessage function, specifying the PM_NOREMOVE flag.)   If nCode is less than zero, the hook procedure must pass the message to the CallNextHookEx function without further processing and should return the value returned by CallNextHookEx. wParam Specifies the identifier of the mouse message. lParam Points to a MOUSEHOOKSTRUCT structure. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ??????????

SeaSky · 1999-08-25

To eyes: 先谢谢，没有这个题目，我也不会捣鼓这东西，多试验多涨经验值。 我截取的消息是WM_MOUSEMOVE，你取的肯定不是这个消息（没看出来你取的是什么 消息，还要请教〕。 好象我们说的不是一码事，自然对不到一块。

Another_eYes · 1999-08-25

哦, 明白了. 你是message hook(WH_GETMESSAGE), 我是mouse hook(WH_MOUSE), 两码事.

pegasus · 1999-08-25

About how to know mouse button status: 一个例子如下： Var   bLKDown: boolean; Begin   if (GetSystemMetrics(SM_SWAPBUTTON)>0) then     bLKDown := (GetAsyncKeyState(VK_RBUTTON)>0);   else     bLKDown := (GetAsyncKeyState(VK_LBUTTON)>0);

SeaSky · 1999-08-25

he he, 前三名大抢第四名的分;    Pega :2171  seasky: 1972  anothereyes :1925   CJ :1580 wuwu, 正好差200分的说,

(   Pega: 照片冲好了吗? 如果冲好我上你那儿瞧瞧去.

CJ · 1999-08-25

key and mouse status are both needed

shift+right click?

)) Seasky：你用 Message Hook? 看来我呀回去试试； eYes：您老具体点好吗？那个Msg哪里来的？你们怎么一搞我脑子都乱了，Mouse Hook 的帮助和概念好象都没什么错，我试过了； Pegasus 您的例子倒不错，我没来得及试，这东西我不熟，怎么理解你的程序？为什么是 if...else ? 运行以后　bLKDown　里是什么？如果是 true 我怎么知道是左还是右？key status 的有没有？ Jams：如果在　ＤＯＳ　下，这玩意我熟的很。 大家抢我的分是好事，就怕没人抢的说：-） MOUSE HOOK具体是如下定义： LRESULT CALLBACK MouseProc(     int nCode, // hook code     WPARAM wParam, // message identifier  // 触发者？     LPARAM lParam // mouse coordinates   //指向那么个结构 ); typedef struct tagMOUSEHOOKSTRUCT { // ms       POINT pt;                          //point类，返回鼠标位置     HWND  hwnd;       //窗口句柄     UINT  wHitTestCode;                //测试码     DWORD dwExtraInfo;                 //不懂，这里面有花头？ }

CJ · 1999-08-26

犯了低级错误，sorry

视窗王子 · 1999-08-27

1) Use low level hook (WH_MOUSE_LL) under NT will help you solve the problem easily. See MSDN for more detailed information 2) WH_MOUSE will tell you the mouse action (not status),wParam will be WM_LBUTTONDOWN, WM_LBUTTONUp...etc. Record the data in your program, and read the data later as mouse "status". 3) Hook message and handle the WM_MOUSEMOVE is a solution also. Problem: how about the the user use keyboard and did not move the mouse? You will never get the status because no WM_MOUSEMOVE sent out. And the HOOK never get the action notify also. (If there is a "remote control mouse", this issue will happened) As Another_eYes said before, getkeystate() is a good choice Problem: The system never "tell" you the status is changed. You should check the status by yourself. You can use the two solutions at same time, or use one of them, depend on your project. Hope it helps.

MOUSE HOOK(200分)

CJ

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

视窗王子

Unregistered / Unconfirmed

Similar threads