Delphi之非QQ会员突破会员限制进行QQ表情编辑

但是这个特性好象需要开通会员吧！想想腾讯的策划部到是会抓商机呢。下面我将说说怎样使用非会员来使用QQ表情的编辑工具呢。

  我们打开QQ表情编辑的那个对话框，可以看出，他根本不会触发任何的网络的消息出去！ 只是在最开始打开的时候会判断一下当前

用户是否为会员，如果不是的话，那么很多项目则不可用，我们可以很轻易的想到一个API函数EnableWindow函数可以解除那些Enable

为false的控件（只要知道他的消息句柄则可）。现在我们先假定一下，QQ表情编辑在编辑好了之后，用户点完成不会向腾讯服务器发送

询问的（想想他应该不会抠门到这个程度吧！搞个编辑也要发个会员验证），先用Spy++一下，可以轻易的找到那些Enable为false的消息句柄，那 么现在就好办了，直接使用enableWindow(Handle)，看一下则解除禁止了。很简单。然后测试一下效果，果然可以。呵呵。那么我们只用写个 代码来找句柄，然后在Enable他，则完了。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzCommon,RzLabel, RzButton, ExtCtrls, RzPanel;

Const
  WM_DESTROYPN = WM_USER + 100;

type
  TRzPanel = Class(RzPanel.TRzPanel)
  protected
    Procedure WndProc(Var Msg: TMessage);override;
  public
    Constructor Create(AOwner: TComponent);override;
  end;
  TForm1 = class(TForm)
    RzLabel1: TRzLabel;
    btn1: TRzButton;
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    BegPos: TPoint;
    EdtHandle: THandle;
    Pn: TRzPanel;
    procedure DestroyPn(Var Msg: TMessage);message WM_DESTROYPN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  HsFree: Boolean=false;
  HsJieChu: boolean=false;
{$R *.dfm}

procedure SetControlOwner(Component: TComponent;NewOwner: TComponent);
var
  tempOwner: ^integer;
begin
   tempOwner := @(integer(Component.Owner));
   tempOwner^ := integer(NewOwner);
end;

procedure EnabledQQEdit;
  procedure BlHandle(ParentHandle: THandle);
  var
    backHwnd,tempHwnd:hWnd;
  begin
    backHwnd:=Getwindow(ParentHandle,GW_CHILD);
    while backHwnd<>0 do
    begin
      EnableWindow(backHwnd,true);
      tempHwnd := backHwnd;
      BlHandle(tempHwnd);
      backhwnd:=Getwindow(backhwnd,GW_HWNDNEXT);
    end;
  end;
var
  FrmHandle: THandle;
begin
  FrmHandle := FindWindow('#32770','编辑涂鸦表情');
  if FrmHandle <> 0 then
  begin
    SendMessage(FrmHandle,wm_settext,0,integer(Pchar('不得闲QQ表情编辑解禁！

作者：不得闲！QQ: 75492895')));
    Application.MessageBox('QQ表情编辑工具解除禁止成功！','消息',64);
    SetForegroundWindow(FrmHandle);
    BlHandle(FrmHandle);
  end
  else
    Application.MessageBox('您没有打开QQ表情编辑工具！','消息',64);
end;

procedure EnabledQQEdit1;
var
  FrmHandle,ModHandle: THandle;
  rec: TRect;
  Pn: TRzPanel;
  OldWidth: integer;
  procedure BlHandle(ParentHandle: THandle);
  var
    backHwnd,tempHwnd:hWnd;
  begin
    backHwnd:=Getwindow(ParentHandle,GW_CHILD);
    while backHwnd<>0 do
    begin
      EnableWindow(backHwnd,true);
      tempHwnd := backHwnd;
      BlHandle(tempHwnd);
      backhwnd:=Getwindow(backhwnd,GW_HWNDNEXT);
    end;
  end;
begin
  FrmHandle := FindWindow('#32770','编辑涂鸦表情');
  if (FrmHandle <> 0) and (not HsJieChu) then
  begin
    SendMessage(FrmHandle,wm_settext,0,integer(Pchar('不得闲QQ表情编辑解禁！

作者：不得闲！QQ: 75492895')));
    Form1.EdtHandle := FrmHandle;
    GetWindowRect(FrmHandle,Rec);
    Form1.BegPos.X := Rec.Right - Rec.Left;
    Form1.BegPos.Y := Rec.Bottom - Rec.Top;
    OldWidth := Rec.Right - Rec.Left + 2;
    SetWindowPos(FrmHandle,0,0,0,48 + OldWidth,rec.Bottom - rec.Top,6);
    Pn := TRzPanel.Create(nil);
    HsFree := false;
    Pn.Parent := Form1;
    Form1.Pn := Pn;
    Pn.Top :=  25;
    SetParent(Pn.Handle,FrmHandle);
    SetControlOwner(Pn,Pn.Parent);
    FrmHandle := FindWindowEx(FrmHandle,0,'#32770','');
    if FrmHandle <> 0 then
    begin
      GetWindowRect(FrmHandle,Rec);
      Pn.Left := OldWidth - 10;
      Pn.Height := rec.Bottom - rec.Top - 34;
      Pn.Width := 55;
      SetWindowPos(FrmHandle,0,0,0,OldWidth-2,rec.Bottom - rec.Top,6);

      ModHandle := FindWindowEx(FrmHandle,0,'Edit','');
      if ModHandle <> 0 then
        EnableWindow(ModHandle,true);

      ModHandle := FindWindowEx(FrmHandle,0,'Static','');
      if ModHandle <> 0 then
        EnableWindow(ModHandle,True);
      ModHandle := FindWindowEx(FrmHandle,0,'Button','完成');
      if ModHandle <> 0 then
        EnableWindow(ModHandle,true);
      ModHandle := FindWindowEx(FrmHandle,0,'Static','您还不是会员，

开通QQ会员即可使用');
      if ModHandle <> 0 then
        SetWindowText(ModHandle,'不得闲QQ表情编辑解禁工具1.0');
      Application.MessageBox('QQ表情编辑工具解除禁止成功！','消息',64);
      SetForegroundWindow(FrmHandle);
      HsJieChu := true;
    end;
  end;
end;


procedure TForm1.btn1Click(Sender: TObject);
begin
  EnabledQQEdit1
end;

procedure TForm1.DestroyPn(var Msg: TMessage);
begin
  pn := TRzPanel(Msg.WParam);
  if not HsFree then
  begin
    HsFree := true;
    HsJieChu := false;
    FreeAndNil(pn);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not HsFree then
  begin
    HsFree := true;
    Pn.Free;
    SetWindowPos(EdtHandle,0,0,0,BegPos.X,BegPos.Y,6);
  end;
end;

{ TRzPanel }

constructor TRzPanel.Create(AOwner: TComponent);
var
  Rz1,Rz2: TRzLabel;
begin
  inherited Create(AOwner);
  HsFree := false;
  Rz1 := TRzLabel.Create(self);
  Rz1.Parent := self;
  Rz1.Caption :='欢'#13#10'迎'#13#10'使'#13#10'用'#13#10'QQ'#13#10'表'

#13#10'情'#13#10'编 '#13#10'辑'#13#10'禁'#13#10'止'#13#10'解'#13#10'除'

#13#10'工'#13#10'具 '#13#10'V1';
  Rz1.Align := AlTOp;
  Rz1.AutoSize := false;
  Rz1.Alignment := taCenter;
  Rz1.TextStyle := tsRaised;
  Rz1.Height := 196;
  Rz1.Font.Name := '宋体';
  Rz1.Font.Charset := GB2312_CHARSET;
  Rz1.Font.Size := 9;
  Rz1.Transparent := true;
  Rz1.Font.Color := clMaroon;
  Rz1.Font.Style := [fsbold];

  Width := 57;
  Rz2 := TRzLabel.Create(self);
  Rz2.Parent := self;
  Rz2.Align := AlBottom;
  Rz2.AutoSize := false;
  Rz2.Caption := '作者：'#13#10' 不得闲'#13#10'QQ：'#13#10'75492895';
  Rz2.Height := 57;
  Rz2.Font.Assign(Rz1.Font);
  Rz2.TextStyle := tsRaised;
  Rz2.Transparent := true;
  VisualStyle := vsGradient;
  GradientColorStyle := gcsCustom;
  GradientColorStart := $00FFAA55;
  GradientColorStop := $00FFAA55;
  BorderOuter := fsNone;
end;

procedure TRzPanel.WndProc(var Msg: TMessage);
begin
  if Msg.Msg = WM_DESTROY then
    SendMessage(Form1.Handle,WM_DESTROYPN,integer(self),0);
  Inherited
end;

end.

• ·Delphi中使用 TWebBrowser 编辑网页
• ·Delphi中使用cxGrid对数据集进行Sort和Locate操作
• ·Delphi组件开发教程指南(五)实现类QQ的编辑框
• ·TIdInterceptThrottler限制TIdHTTP下载速度
• ·Delphi中不进行组件注册而直接调用COM对象
• ·Delphi对数据进行BASE64编码/解码单元
• ·Delphi中去掉限制窗体最小尺寸的Windows约束
• ·Delphi之QQ去广告+本地会员+显示IP外挂原理
• ·Delphi制作的HTMLEditor支持常用的HTML语法编辑
• ·Delphi编写突破系统的TCP连接数的代码
• ·Delphi中Hook API进行进程保护