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