非会员进行QQ表情编辑的代码

suiyunonghen

好象Delphi版现在是越来越少的人气了啊！想个法子来提升一下人气撒！斑竹。从我开始第一贴！
  最新版的QQ出来了一个新的特性，就是可以编辑QQ表情，向其中添加一些自己要说的话语。
但是这个特性好象需要开通会员吧！想想腾讯的策划部到是会抓商机呢。下面我将说说怎样使用非会员来使用QQ表情的编辑工具呢。
  我们打开QQ表情编辑的那个对话框，可以看出，他根本不会触发任何的网络的消息出去！ 只是在最开始打开的时候会判断一下当前
用户是否为会员，如果不是的话，那么很多项目则不可用，我们可以很轻易的想到一个API函数EnableWindow函数可以解除那些Enable
为false的控件（只要知道他的消息句柄则可）。现在我们先假定一下，QQ表情编辑在编辑好了之后，用户点完成不会向腾讯服务器发送
询问的（想想他应该不会抠门到这个程度吧！搞个编辑也要发个会员验证），先用Spy++一下，可以轻易的找到那些Enable为false的消息句柄，那么现在就好办了，直接使用enableWindow(Handle)，看一下则解除禁止了。很简单。然后测试一下效果，果然可以。呵呵。那么我们只用写个代码来找句柄，然后在Enable他，则完了。
{代码中使用了Raize控件包，如果有兴趣的话，自己写一个HOOK挂到QQ进程，这样就不用每次打开都去点一下解除禁止了。}
代码如下：
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.

[ 本帖最后由 suiyunonghen 于 2008-5-4 19:40 编辑 ]

topzhp

学习了！

不知是那个版本的Delphi开发的！

Luckly

我的QQ个个是太阳...好像不有限制~

suiyunonghen

顶中国一下，这段时候一直在关注着震灾方面的，没上来了。

suiyunonghen

原帖由 Luckly 于 2008-5-10 01:01 发表
我的QQ个个是太阳...好像不有限制~

你不受限制吗？是会员吧！
我都快两个太阳了，还不能用哦

suiyunonghen

原帖由 topzhp 于 2008-5-10 00:13 发表
学习了！

不知是那个版本的Delphi开发的！

D7版本的

Luckly

原帖由 suiyunonghen 于 2008-5-19 16:30 发表


你不受限制吗？是会员吧！
我都快两个太阳了，还不能用哦

呵呵.,..这个我不知道,我用的是本地会员版QQ

Luckly

我的代码更简单

.版本 2

.子程序 _按钮1_被单击
.局部变量 hwnd, 整数型
.局部变量 edithwnd, 整数型
.局部变量 btn, 整数型
.局部变量 static, 整数型

hwnd ＝ FindWindowA (“#32770”, “编辑涂鸦表情”)
.如果真 (hwnd ＝ 0)
    信息框 (“请先打开编辑涂鸦表情窗口”, #警告图标, “提示”)
    返回 ()
.如果真结束
hwnd ＝ FindWindowExA (hwnd, 0, “#32770”, “”)
edithwnd ＝ FindWindowExA (hwnd, 0, “Edit”, “”)
.如果真 (edithwnd ≠ 0)
    EnableWindow (edithwnd, 真)
    btn ＝ FindWindowExA (hwnd, 0, “Button”, “完成”)
    EnableWindow (btn, 真)
    static ＝ FindWindowExA (hwnd, 0, “Static”, “”)
    EnableWindow (static, 真)
.如果真结束

[ 本帖最后由 Luckly 于 2008-5-21 11:31 编辑 ]

suiyunonghen

你的代码自然更简单，你直接用Spy++来查找句柄，然后直接定位，自然简单！
我的那个是通过主窗体，然后一级递归遍力下来之后，让所有的都变成可用，而非是仅仅针对那个按扭而已了

suiyunonghen

而且我向其中添加了一些作者信息而已。呵呵，其实代码是很简单的。不过是弄了一些没必要的东西进去。