关于hook的问题，解决200分全给！

2004-08-16 05:30:00 319 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用Xposed对native进行hook 使用Xposed对native进行hook，Dobby框架的使用阅读详情

其实我要实现的功能也很简单，就是监控客户端电脑是否使用，如果隔一段时间不碰键盘鼠标（就跟屏保一样），就将结束时间发送给服务器，然后就可以减去开始使用时间来算得客户端实际使用电脑时间！
现在就是不知如何发送监控到的数据！（写到本地txt可以但怎么发送，不可能让用户自己发吧）

希望大家帮忙解决！
http://community.csdn.net/Expert/topic/3279/3279641.xml?temp=.9909784的分一起给了！

...全文

基于51单片机的智能花盆灌溉系统设计与实现本文详细介绍了基于51单片机的智能花盆灌溉系统设计与实现，通过DS18B20温度传感器、土壤湿度传感器和LCD1602显示屏等硬件模块，结合精确的算法控制，实现自动监测与灌溉。系统解决了传统灌溉依赖定时器、缺乏可视化界面的问题，适合上班族、园艺爱好者和植物园工作人员使用，有效提升植物养护效率。阅读详情

oioioi-090

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

fei19790920 2004-08-17

打赏
举报

昨晚有事忘记了，不好意思

现在发了，请查收

D_J 2004-08-17

打赏
举报

顶!
学习...

KevinXXXX 2004-08-17

打赏
举报

监视一下主消息循环不就行了，有必要动用hook吗？

zizzzz 2004-08-17

打赏
举报

试了一下，很不错！

capoatguitar 2004-08-17

打赏
举报

hook都写的出来，定时器却不会作了，真晕，
我纳闷…………

oioioi-090 2004-08-17

打赏
举报

已搞定，改写了一个控件，感谢fei19790920(饭桶的马甲（抵制日货）)

unit ZTimer;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

type
TZTimer = class(TTimer)
private
function GetIdleTime: Longint;
procedure SetIdleTime(const Value: Longint);
protected
{ Protected declarations }
public
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
property IdleTime: Longint read GetIdleTime write SetIdleTime;
published

end;

procedure Register;

implementation

var
Instances: integer;
ElapsedTime: Longint;
hHook: LongWord;

procedure Register;
begin
RegisterComponents('Z', [TZTimer]);
end;

Function HookProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
Begin
Result := 0;
If(peventmsg(lparam)^.message = WM_LBUTTONDOWN) Or
(peventmsg(lparam)^.message = WM_LBUTTONUP) Or
(peventmsg(lparam)^.message = WM_LBUTTONDBLCLK) Or
(peventmsg(lparam)^.message = WM_MOUSEMOVE) Or
(peventmsg(lparam)^.message = WM_RBUTTONDOWN) Or
(peventmsg(lparam)^.message = WM_RBUTTONUP) Or
(peventmsg(lparam)^.message = WM_RBUTTONDBLCLK) Or
(peventmsg(lparam)^.message = WM_MBUTTONDOWN) Or
(peventmsg(lparam)^.message = WM_MBUTTONUP) Or
(peventmsg(lparam)^.message = WM_KEYDOWN)

Then ElapsedTime := GetTickCount;
Result := CallNextHookEx(hHook, iCode, wParam, lParam);

End;

procedure Hook(En: Boolean);
begin
If En Then
hHook := SetwindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0)
Else
UnHookWindowsHookEx(hHook);

end;
{ TZTimer }

constructor TZTimer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
hook(true);
end;

destructor TZTimer.Destroy;
begin
Hook(false);
inherited;
end;

function TZTimer.GetIdleTime: Longint;
begin
Result := GetTickCount - ElapsedTime;
end;

procedure TZTimer.SetIdleTime(const Value: Integer);
begin
ElapsedTime := GetTickCount + Value;
end;

end.

oioioi-090 2004-08-16

打赏
举报

谢拉
邮箱是seaweaver@163.com

fei19790920 2004-08-16

打赏
举报

这个简单啊，等我回家发个给你

nyf1220 2004-08-16

打赏
举报

做个定时器，
把写的文件考到主机就行了呀

关于hook的问题，解决200分全给！

相关推荐