易语言全局键盘钩子失效

易语言全局键盘钩子失效可能是由于几种原因造成的：

1. 系统未正确安装易语言，可能存在.dll文件缺失，或者安装过程出现错误等问题导致钩子安装失败；

2. 易语言运行环境有损坏，可能是病毒、木马等破坏或者系统更新等原因损坏了运行环境的易语言安装；

3. 易语言程序可能存在BUG，当程序运行到一定位置时，导致易语言钩子失效；

4. 当前 *** 作系统中有其他程序对易语言的钩子进行了拦截或者修改，导致易语言的钩子失效；

因此，要解决易语言全局键盘钩子失效问题，首先需要将系统中的易语言重新安装或恢复到正确的配置，然后检查系统 *** 作环境及程序本身，最后再检查系统中是否有其他程序对易语言钩子进行拦截或修改。

全局键盘钩子是需要放到dll中去实现的

我估计你还不会写什么是dll

但有好消息告诉你

日志钩子可以做到在一个程序中实现全局键盘捕获：

VC代码：

#include<windows.h>

HHOOK LogHook=NULL

LRESULT CALLBACK LogProc(int code,WPARAM wParam,LPARAM lParam)

{

EVENTMSG *pEventMsg=(EVENTMSG*)lParam

if(code==HC_ACTION)

{

switch(pEventMsg->message)

{

case (WM_KEYDOWN):

BYTE bKeyState[256]

unsigned short uAscii[4]

UINT uScanCode

int iRet

GetKeyboardState(bKeyState)

bKeyState[VK_SHIFT]=GetKeyState(VK_SHIFT)

uScanCode=(pEventMsg->paramH>>16)

iRet=ToAscii(pEventMsg->paramL,uScanCode,bKeyState,uAscii,0)

switch(iRet)

{

case 0:

break

case 1:

if((char)uAscii[0]=='t' || (char)uAscii[0]=='T')//t键按下

{

MessageBox(NULL,"按下了T","按键提示",MB_OK)

/**************自己实现播放音乐的功能*****************/

}

else if((char)uAscii[0]=='y' || (char)uAscii[0]=='Y')//Y键按下

{

MessageBox(NULL,"按下了Y","按键提示",MB_OK)

/***************自己在这里实现停止播放音乐的功能****************/

}

break

default:

break

}

default:

break

}

}

return CallNextHookEx(LogHook,code,wParam,lParam)

}

int WINAPI WinMain( HINSTANCE hInstance,

HINSTANCE hPrevInstance,

LPSTR lpCmdLine,

int nCmdShow

)

{

LogHook=SetWindowsHookEx(WH_JOURNALRECORD,LogProc,hInstance,NULL)

while(1)Sleep(100)

return 0

}

日志钩子工作不稳定的。

WH_KEYBOARD 对于全局的效果不好用， 换用 WH_KEYBOARD_LL 钩子吧。

示例代码：

//全局键盘钩子消息处理函数

function KeyHookProc(nCode:IntegerwP:WPARAMlP:LPARAM):LRESULTstdcall

var

pEvt: TEventMsg

vKey: Cardinal

begin

if (nCode = HC_ACTION) then begin

vKey := 0

case wP of

WM_SYSKEYDOWN, WM_KEYDOWN:

begin

pEvt := PEventMsg(LP)^

vKey := LOBYTE(pEvt.message)

case vKey of

......

end

end

end

WM_SYSKEYUP, WM_KEYUP:

end

end

result := CallNextHookEx(hKeyHook, nCode, wP, lP)

end

安装钩子：

hKeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyHookProc, hInstance, 0)

---