西西软件园多重安全检测下载网站、值得信赖的软件下载站!
软件
软件
文章
搜索

首页西西教程软件使用 → Delphi版 关于QQ输入控件无法Spy到句柄的实现方案可行性研究

Delphi版 关于QQ输入控件无法Spy到句柄的实现方案可行性研究

前往专题相关软件相关文章发表评论 来源:DxSoft时间:2010/2/25 23:09:55字体大小:A-A+

作者:得闲笔记点击:539次评论:3次标签: Delphi

Borland Delphi8.0光盘版
  • 类型:编程工具大小:83.1M语言:中文 评分:4.0
  • 标签:
立即下载

QQ2009版本的界面,和以前的版本有个显著的不同,就是无法通过Spy++抓到界面上某些元素的句柄了,对于这个技术的实现方案,相信好多人都有一些揣度,实现方法怎样,有人说是应用的DirectUI技术,也有人说是用反Hook,等等一些列的说道!在这,我也说说我的一点看法!我说的一种方法不属于以上的任何一种方法。至于如何,且听我慢慢道来!此思路,来源于一个偶然,在聊天窗口失去焦点与获得焦点时的一个偶然。

  聊天的时候,我们要输入信息,首先要让窗口获得焦点!然后输入框也要获得焦点,才能输入。那么我们可以想象一下,在Delphi中什么情况下的控件时没有句柄的,用Delphi的同僚都知道,TGraphicControl继承下来的控件都没有焦点,既然如此,那么咱们就可以有一个混淆视听的方式,写的控件都从TGraphicControl继承来写,那么肯定就没句柄的,这个Button,ScrollBar等不必体现输入的,我相信没有争议,那么我实现一个编辑框Edit,也从TGraphicControl继承来写!这样,别人不就无法找到这个编辑框的句柄了么?嘿嘿,此时一定会有很多人大惑不解,那么输入呢,从TGraphicControl继承的Edit,如何实现输入?难道全部自己模拟消息来实现输入?当然不是,如果这样,那将让工作量增大N倍而不尽然能成功!重点就在这里,这是,我们可以在内部放一个TEdit,本Edit是活动的,在鼠标点下,或者模拟获得焦点的时候,我们将内置的Edit的Parent设置成我们从TGraphicControl继承的Edit的Parent,也就是Edt.parent := self.parent;并且设置内置Edit的区域,然后在内置Edit.setFocus,这样就能够输入了,然后当这个内置Edit失去焦点的时候,我们将内置Edit的显示文字抓成图片,之后,将内置edit的parent设置为nil,然后在在这个GrphicControl的Edit的对应区域绘制上我们抓取出来的那个真实Edit的图片,这样,内置的Edit已经不再本界面上了,从而当外部Spy++在Spy的时候,就无法找到那个Edit进而进行信息的获取等操作了!这便是我的实现思路。那么就可以想象,QQ聊天窗口在我们要输入信息的时候,获得焦点了,RichEdit的parent为QQ聊天窗口,然后我们输入信息,当信息输入完成,我们离开了之后,将内部的RichEdit的parent设置为nil,然后再将RichEdit的画面获得到绘制到原来的位置上去。这样 ,我们就无法Spy到RichEdit的句柄了。

下面给出俺的模拟代码:

这个代码中的DxEdit就是了,大家可用Spy查一下,肯定是查不到句柄的说!呵呵!

不过这个只是实现了一个简单的模拟而已,如果要完全达到QQ的那个效果,还有许多其他工作要做,这里仅提供一个实现的思路参考

下载

 

{不得闲2010-2-25}
unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TDxEdit = class(TGraphicControl)
private
edt: TEdit;
edtbndrect: TRect;
bmp: TBitmap;
OldEdtwndproc: TWndMethod;
protected
procedure Paint;override;
procedure HookedtWndProc(var msg: TMessage);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure SetParent(AParent: TWinControl);override;
public
constructor Create(AOwner: TComponent);
procedure BeforeDestruction;override;
destructor Destroy;override;
end;
TForm4 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
medt,edt2: TDxEdit;
end;

var
Form4: TForm4;
implementation

var
edt: TEdit;
type
TWControl = class(TWinControl) end;

procedure GetControlBitmap(Control: TWinControl;bmp: TBitmap);
var
ControlWidth,ControlHeight: integer;
ControlDc,hCaptureDC: HDC;
begin
ControlWidth := Control.ClientWidth;
ControlHeight := Control.ClientHeight;
ControlDc := GetDC(Control.Handle);
hCaptureDC := CreateCompatibleDC(ControlDc);
bmp.Handle :=CreateCompatibleBitmap(ControlDc,ControlWidth,ControlHeight);
SelectObject(hCaptureDC,bmp.Handle);

BitBlt(hCaptureDC,0,0,ControlWidth,ControlHeight,ControlDc,0,0,SRCCOPY);
ReleaseDC(GetDesktopWindow,ControlDc);
DeleteDC(hCaptureDC);
end;
{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
medt := TDxEdit.Create(self);
medt.Parent := self;

edt2 := TDxEdit.Create(self);
edt2.Parent := self;
edt2.Left := 150;
edt2.Top := 10;
end;

{ TDxEdit }

procedure TDxEdit.BeforeDestruction;
begin

inherited;
end;

constructor TDxEdit.Create(AOwner: TComponent);
begin
inherited;
edtbndrect := Rect(0,0,0,0);
bmp := TBitmap.Create;
Cursor := crIBeam;
Height := 21;
Width := 121;
end;

destructor TDxEdit.Destroy;
begin
inherited;
bmp.Free;
end;

procedure TDxEdit.HookedtWndProc(var msg: TMessage);
begin
OldEdtwndproc(msg);
case msg.Msg of
WM_KILLFOCUS:
begin
GetControlBitmap(edt,bmp);
//bmp.SaveToFile('C:\1.bmp');
edtbndrect.Left := 2;
edtbndrect.Top := (Height - edt.Height) div 2;
edtbndrect.Right := edtbndrect.Left + edt.Width;
edtbndrect.Bottom := edtbndrect.Top + edt.Height;
edt.Parent := nil;
end;
end;

end;

procedure TDxEdit.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
inherited;
if Button = mbLeft then
begin
if edt = nil then
begin
edt := TEdit.Create(nil);
OldEdtwndproc := edt.WindowProc;
edt.WindowProc := HookedtWndProc;
edt.BorderStyle := bsNone;
edt.Height := 14;
end;
edt.Left := Left + 2;
edt.Top := top + (Height - edt.Height) div 2;
edt.Width := Width - 4;
edt.Parent := self.Parent;
edt.SetFocus;
//edt.SelLength := 0;
end;
end;

procedure TDxEdit.Paint;
begin
Canvas.Brush.Color := clWhite;
Canvas.FillRect(ClientRect);
Canvas.Brush.Color := clBlue;
Canvas.FrameRect(ClientRect);
//然后开始绘制文字
if (edt <> nil) and (edt.Parent = nil) then
begin
//bmp := TBitmap.Create;
//GetControlBitmap(edt);
if edtbndrect.Left <> edtbndrect.Right then

Canvas.CopyRect(edtbndrect,bmp.Canvas,bmp.Canvas.ClipRect);
end;
end;


procedure TDxEdit.SetParent(AParent: TWinControl);
begin
inherited;

end;

initialization

finalization

end.

    相关评论

    阅读本文后您有什么感想? 已有人给出评价!

    • 8 喜欢喜欢
    • 3 顶
    • 1 难过难过
    • 5 囧
    • 3 围观围观
    • 2 无聊无聊

    热门评论

    最新评论

    发表评论 查看所有评论(3)

    昵称:
    表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
    字数: 0/500 (您的评论需要经过审核才能显示)