200分求解！怎么实现游戏外挂弹出窗口！(200分)

lygzx · 2003-04-26

请教高手象传奇外挂那样的在游戏中按f12弹出外挂窗口(不影响游戏的进行)的技术怎么实现! 除hook以外还要用到什么技术. 请高手赐教,最好附源码! 问题解决保证加分！

我不怕你 · 2003-05-01

我在这个论坛看到有人发过这一类的东西你找找再改一下就可以了~

yayx · 2003-05-01

不用HOOK，注册一个系统热键就行了 先RegisterHotKey(Handle, WM_USER+$C000, 0, VK_F12)  //注册热键F12 然后在public中加入procedure DoHotKey(var Msg: TMessage); message WM_HotKey; 实现过程： procedure TMainForm.DoHotKey(var Msg: TMessage);  begin    if (Msg.LParamHi=VK_F12) and (Msg.LParamLo = 0) then    begin      Self.Show;      Msg.Result := 1;    end; onclose中加入    UnRegisterHotKey(Handle, WM_USER+$C000);    DeleteAtom(WM_USER+$C000);

我不怕你 · 2003-05-04

谁试过真的可以吗？

tt.t · 2003-05-04

那样没戏的

Tianbing2008 · 2003-05-04

好象不行

yayx · 2003-05-04

没注意到是传奇 那么得在屏幕上绘图 找找，以前论坛有的

我不怕你 · 2003-05-06

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1297418 你可以到这个里面看看跟你的要求有点类似

兼职人物 · 2003-05-06

不知道怎么办！

楚非帆 · 2003-11-14

关键是要现实的窗体的parnet必须要设成 游戏的窗体。这样就可以弹出自己的窗体，而游戏的窗体也不会最小化了。 我写了一个，w2k+delphi6+q3a测试通过。 代码比较乱，注意看注释。 热键是左边的win建加小键盘上得*建 ps,别忘了给分。[

] //--------------App part start---------------- //form上放两个button. //Copyright by tt.t(ttui) @2k+3.1.19@bit unit test; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} function sethook:bool;external 'ptdll.dll'; function endhook:bool;external 'ptdll.dll'; procedure TForm1.Button1Click(Sender: TObject); begin //if sethook; // then showmessage('Hook Successful'); end; procedure TForm1.Button2Click(Sender: TObject); begin //if endhook; // then showmessage('Unhook Successful!!'); end; procedure TForm1.FormDestroy(Sender: TObject); begin //endhook; end; procedure TForm1.FormCreate(Sender: TObject); begin //sethook; end; end. //--------------App part end------------------ //--------------DLL part start------------------ //--------------library project------------------ library ptdll; uses  SysUtils,  Classes,  Windows,  Messages,  dll_vol in 'dll_vol.pas',  dia in 'dia.pas' {Form1}; {$R *.RES} exports sethook,endhook; begin hNextHookProc := 0; procSaveExit := ExitProc; ExitProc := @HotKeyHookExit; end. //-------------------dll_vol unit----------------------- unit dll_vol; interface uses Windows,Messages,Dialogs,Sysutils,dia; var  hNextHookProc: HHook;  procSaveExit: Pointer;  function sethook:bool;export;  function hookproc(iCode:Integer;wParam: WPARAM;lParam: LPARAM): LRESULT; stdcall;  function endhook:bool;export;  procedure HotKeyHookExit;far; implementation function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall; var  hwnd:dword;  AppRect:TRect;  title

char; //  dc:hdc; begin  result:=0;    if iCode<0 then    begin      CallNextHookEx(hnexthookproc,iCode,wParam,lParam);      result:=0;      Exit;    end; {    dc:=getdc(0);    textout(dc,20,20,pchar(inttohex(wparam,3)),3);    releasedc(0,dc); }  if ((lParam and $80000000)=0) and     (GetKeyState(VK_LWIN)<0) and (wParam=$6a) then  begin    Messagebeep(0);    hwnd:=getforegroundwindow;    try      GetMem(title,255);      getwindowtext(hwnd,title,255);      if title<>'_Msg_Dx_' then      begin        try          form1:=TForm1.CreateParented(hwnd);          GetWindowRect(hwnd,AppRect);          form1.Left:=(AppRect.Right-AppRect.Left) div 2;          form1.Top:=(AppRect.Bottom-AppRect.Top) div 2;          form1.Caption:='_Msg_Dx_';          form1.ShowModal;        finally          form1.Free;        end;      end;    finally      FreeMem(title);    end;    result:=1;  end; end; function sethook:bool;export; begin  result:=false;  if hnexthookproc<>0 then exit;  hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,hookproc,HInstance,0);  Result := hNextHookProc <> 0; end; procedure hotkeyhookexit; begin  if hNextHookProc <> 0 then endHook;  ExitProc := procSaveExit; end; function endhook:bool;export; begin  if hNextHookProc <> 0 then  begin    UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook    hNextHookProc := 0;  end;  Result := hNextHookProc = 0; end; end. //----------------dia unit------------------- //注意！！form的borderstyle必须设成bsdialog！！ unit dia; interface uses  Windows, Messages, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} end. //--------------DLL part end------------------

楚非帆 · 2003-11-14

hehe,差点变成我自己的功劳了! 原文解答也在dfw里面 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1578788

tt.t · 2003-11-14

建议你看看: http://www.delphibbs.com/delphibbs/dispq.asp?lid=2135796 不过弹出非模态窗口的代码你只能自己写了

hellfish · 2004-03-13

贴贴偶这的源码,想做个A3机器人，弄了个头就没时间做了，自己看看把，游戏里按小键盘的 * 呼出 改成别的你可以换 if ((lParam and $80000000) = 0) and (wParam = $6A) then 这一行 A3Main.pas ----------------- unit A3Main; interface uses   Windows, Forms, StdCtrls, ComCtrls, shellApi, ExtCtrls, Menus,   Controls, Classes, Graphics; type   TFrmMain = class(TForm)     BtnLogin: TButton;     procedure BtnLoginClick(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormHide(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   FrmMain: TFrmMain; implementation {$R *.dfm} function sethook: bool; external 'a3bot.dll'; function endhook: bool; external 'a3bot.dll'; function Gowindow: bool; external 'a3bot.dll'; procedure TFrmMain.BtnLoginClick(Sender: TObject); begin   sethook; //  if frmmain.gotoWindowMode.Checked then Gowindow;   BtnLogin.Enabled := False; end; procedure TFrmMain.FormDestroy(Sender: TObject); begin   endhook; end; procedure TFrmMain.FormCreate(Sender: TObject); begin   //cbAccountType.ItemIndex := 0;   //edUserName.Text := Encode(cbAccountType.Text); end; end. ----------------- A3BOT.DPR ----------------- library A3BOT; uses   SysUtils,   Classes,   Windows,   PopWin in 'PopWin.pas' {FrmPopWin},   Hook in 'Hook.pas'; {$R *.res} exports sethook, endhook, Encode, Decode,Gowindow; begin   hNextHookProc := 0;   procSaveExit := ExitProc;   ExitProc := @HotKeyHookExit; end. ----------------- HOOK.PAS ----------------- unit Hook; interface uses Windows, Messages, Dialogs, Sysutils, PopWin; var   hNextHookProc: HHook;   procSaveExit: Pointer;   OldHook: HHOOK;   WinFind: Integer;   MuProcId: DWORD;   OldProc: FARPROC;   Style: Longint;   swl: longint;   gowin: boolean; function sethook: bool; export; function Gowindow: bool; export; function WinA3(hwnd:HWND):bool;export; function MyProc(Hwnd:HWND;iCode:UINT;wParam:WPARAM;lParam:LPARAM):integer; stdcall; function hookproc(iCode: Integer; wParam: WPARAM; lParam: LPARAM):LRESULT; stdcall; function endhook: bool; export; procedure HotKeyHookExit; far; implementation function WinA3(hwnd:HWND):bool;export; begin style:=getwindowlong(hwnd,GWL_STYLE); style:=WS_CAPTION; setwindowlong(hwnd,GWL_STYLE,style); showwindow(hwnd,SW_SHOWNORMAL); oldproc:=FARPROC(getwindowlong(hwnd,GWL_WNDPROC)); swl:=setwindowlong(hwnd,GWL_WNDPROC,longint(@MyProc)); result:=true; end; function MyProc(Hwnd:HWND;iCode:UINT;wParam:WPARAM;lParam:LPARAM):integer; stdcall; begin if (iCode=WM_ACTIVATEAPP) or (iCode=WM_ACTIVATE) OR (iCode=WM_KILLFOCUS) or (iCode=WM_SETFOCUS) then exit; result:=CallWindowProc(oldproc,hwnd,iCode,wparam,lparam); end; function HookProc(iCode: integer; wParam: wParam; lParam: lParam):LResult; stdcall; var   hwnd: dword;   AppRect: TRect;   title: pchar; begin   result := 0;   title := '';   if iCode < 0 then   begin     CallNextHookEx(hnexthookproc, iCode, wParam, lParam);     result := 0;     Exit;   end;   if ((lParam and $80000000) = 0) and (wParam = $6A) then   begin     hwnd := getforegroundwindow;     try       GetMem(title, 255);       getwindowtext(hwnd, title, 255);       if (title = 'pRoJeCtAaA') or (title = 'ProjectA3') or (title = 'Project A3') then       begin       if gowin then WinA3(hwnd);         try           Messagebeep(0);           FrmPopWin := TFrmPopWin.CreateParented(hwnd);           GetWindowRect(hwnd, AppRect);           FrmPopWin.Caption := title + ' A3 机器人';           FrmPopWin.Show;         finally           //FrmPopWin.Free;         end;       end;     finally       FreeMem(title);     end;     result := 1;   end; end; function sethook: bool; export; begin   result := false;   if hnexthookproc <> 0 then     exit;   hNextHookProc := SetWindowsHookEx(WH_KEYBOARD, hookproc, HInstance, 0);   Result := hNextHookProc <> 0; end; procedure hotkeyhookexit; begin   if hNextHookProc <> 0 then     endHook;   ExitProc := procSaveExit; end; function endhook: bool; export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook     hNextHookProc := 0;   end;   Result := hNextHookProc = 0; end; function Gowindow: bool; export; begin gowin:=true; Result:= true; end; end. ----------------- POPWIN.PAS ----------------- unit PopWin; interface uses   Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,   Dialogs, ExtCtrls, ComCtrls, Buttons, StdCtrls, Classes; type   TFrmPopWin = class(TForm)     PageControl1: TPageControl;     SheetInfo: TTabSheet;     ListViewInfo: TListView;     Check62: TCheckBox;     Check63: TCheckBox;     Check64: TCheckBox;     SheetChat: TTabSheet;     Label2: TLabel;     Label3: TLabel;     Label11: TLabel;     Label13: TLabel;     SpeedButton1: TSpeedButton;     SpeedButton2: TSpeedButton;     SpeedButton3: TSpeedButton;     SpeedButton4: TSpeedButton;     SpeedButton5: TSpeedButton;     SpeedButton6: TSpeedButton;     Label4: TLabel;     SpeedButton10: TSpeedButton;     SpeedButton11: TSpeedButton;     SpeedButton12: TSpeedButton;     eAutoReply: TComboBox;     AutoSayMemo: TMemo;     edAutoSay: TEdit;     UpDown1: TUpDown;     GroupBox7: TGroupBox;     Check72: TCheckBox;     Check73: TCheckBox;     Check74: TCheckBox;     Check75: TCheckBox;     Check76: TCheckBox;     Check77: TCheckBox;     cmFriends: TComboBox;     cmBlacks: TComboBox;     cmEnemy: TComboBox;     Check65: TCheckBox;     Check67: TCheckBox;     Check66: TCheckBox;     Check68: TCheckBox;     Check69: TCheckBox;     Check70: TCheckBox;     Check71: TCheckBox;     Check78: TCheckBox;     Check79: TCheckBox;     SheetChatHistory: TTabSheet;     Bevel1: TBevel;     BtnClearChatHistory: TSpeedButton;     ChatHistory: TListBox;     Check80: TCheckBox;     Check81: TCheckBox;     Check82: TCheckBox;     SheetNoteBook: TTabSheet;     Label14: TLabel;     MemoNoteBook: TMemo;     Check83: TCheckBox;     SheetMaps: TTabSheet;     PnMaps3: TPanel;     pbPoint: TPaintBox;     PaintBox1: TPaintBox;     ImgMap: TImage;     PnMaps2: TPanel;     Label15: TLabel;     edSelectMap: TEdit;     BitBtn1: TBitBtn;     rbOrgin: TRadioButton;     rbZoom: TRadioButton;     tvMaps: TTreeView;     SheetTask: TTabSheet;     Splitter1: TSplitter;     TaskTreeView: TTreeView;     TaskMemo: TMemo;     SheetObject: TTabSheet;     BtnResetObj: TSpeedButton;     BtnAddObj: TSpeedButton;     BtnDelObj: TSpeedButton;     ObjListView: TListView;     EditAddObj: TEdit;     SheetOthers: TTabSheet;     Label19: TLabel;     SpeedButton8: TSpeedButton;     Label5: TLabel;     GroupBox13: TGroupBox;     MagicListView: TListView;     GroupBox14: TGroupBox;     BtnAddBoss: TSpeedButton;     BtnDelBoss: TSpeedButton;     EditAddBoss: TEdit;     BossListView: TListView;     CmbCommand: TComboBox;     SheetGuaJi: TTabSheet;     GroupBox1: TGroupBox;     GroupBox3: TGroupBox;     Check86: TCheckBox;     GroupBox6: TGroupBox;     ComboBox1: TComboBox;     ComboBox2: TComboBox;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     Check84: TCheckBox;     Check85: TCheckBox;     GroupBox2: TGroupBox;     Label1: TLabel;     ComboBox4: TComboBox;     GroupBox4: TGroupBox;     BtnGuaJi: TButton;     GroupBox5: TGroupBox;     Check10: TCheckBox;     procedure Check10Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   FrmPopWin: TFrmPopWin; implementation {$R *.dfm} procedure TFrmPopWin.Check10Click(Sender: TObject); begin   if Check10.Checked = True then     mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);   if Check10.Checked = False then     mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); end; end. ----------------- POPWIN.DFM ----------------- object FrmPopWin: TFrmPopWin   Left = 193   Top = 103   BorderStyle = bsDialog   Caption = 'A3'#26426#22120#20154   ClientHeight = 301   ClientWidth = 385   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   Position = poDefault   Visible = True   PixelsPerInch = 96   TextHeight = 13   object PageControl1: TPageControl     Left = 0     Top = 0     Width = 385     Height = 301     ActivePage = SheetGuaJi     Align = alClient     Font.Charset = ANSI_CHARSET     Font.Color = clWindowText     Font.Height = -12     Font.Name = #23435#20307     Font.Style = []     HotTrack = True     ParentFont = False     TabIndex = 8     TabOrder = 0     TabStop = False     TabWidth = 29     object SheetInfo: TTabSheet       Caption = #20449#24687       ImageIndex = 11       object ListViewInfo: TListView         Left = 0         Top = 0         Width = 377         Height = 256         Align = alTop         Columns = <           item             Caption = #21517#31216             Width = 150           end           item             Alignment = taCenter             Caption = #26041#20301             Width = 40           end           item             Alignment = taCenter             Caption = #22352#26631             Width = 80           end           item             Alignment = taCenter             Caption = #31867#22411           end>         ColumnClick = False         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         FlatScrollBars = True         GridLines = True         OwnerDraw = True         ReadOnly = True         ParentFont = False         TabOrder = 0         ViewStyle = vsReport       end       object Check62: TCheckBox         Left = 74         Top = 257         Width = 73         Height = 17         Caption = #26174#31034#29609#23478         Checked = True         State = cbChecked         TabOrder = 1       end       object Check63: TCheckBox         Left = 162         Top = 257         Width = 71         Height = 17         Caption = #26174#31034#24618#29289         Checked = True         State = cbChecked         TabOrder = 2       end       object Check64: TCheckBox         Left = 250         Top = 257         Width = 73         Height = 17         Caption = #26174#31034'NPC'         Checked = True         State = cbChecked         TabOrder = 3       end     end     object SheetChat: TTabSheet       Caption = #32842#22825       ImageIndex = 2       object Label2: TLabel         Left = 146         Top = 47         Width = 12         Height = 12         Caption = #31186       end       object Label3: TLabel         Left = 79         Top = 47         Width = 24         Height = 12         Caption = #38388#38548       end       object Label11: TLabel         Left = 8         Top = 193         Width = 36         Height = 12         Caption = #22909'  '#21451         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object Label13: TLabel         Left = 8         Top = 246         Width = 36         Height = 12         Caption = #40657#21517#21333         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton1: TSpeedButton         Tag = -1         Left = 206         Top = 187         Width = 33         Height = 19         Caption = #32842#22825         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton2: TSpeedButton         Tag = -1         Left = 243         Top = 187         Width = 33         Height = 19         Caption = #28155#21152         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton3: TSpeedButton         Tag = -1         Left = 279         Top = 187         Width = 33         Height = 19         Caption = #21024#38500         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton4: TSpeedButton         Tag = -1         Left = 206         Top = 242         Width = 33         Height = 19         Caption = #32842#22825         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton5: TSpeedButton         Tag = -1         Left = 243         Top = 242         Width = 33         Height = 19         Caption = #28155#21152         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton6: TSpeedButton         Tag = -1         Left = 279         Top = 242         Width = 33         Height = 19         Caption = #21024#38500         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object Label4: TLabel         Left = 8         Top = 219         Width = 36         Height = 12         Caption = #20167'  '#25932         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton10: TSpeedButton         Tag = -1         Left = 206         Top = 215         Width = 33         Height = 19         Caption = #32842#22825         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton11: TSpeedButton         Tag = -1         Left = 243         Top = 215         Width = 33         Height = 19         Caption = #28155#21152         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object SpeedButton12: TSpeedButton         Tag = -1         Left = 279         Top = 215         Width = 33         Height = 19         Caption = #21024#38500         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False       end       object eAutoReply: TComboBox         Tag = -1         Left = 80         Top = 9         Width = 201         Height = 20         ItemHeight = 12         MaxLength = 190         TabOrder = 0         Items.Strings = (           #24744#22909#65292#25105#26377#20107#19981#22312           #25105#21435#21507#39277#20102'....'           #25346#26426#20013'....'           #25346#26426#32451#21151' '#35831#21247#25171#25200)       end       object AutoSayMemo: TMemo         Tag = -1         Left = 8         Top = 65         Width = 361         Height = 51         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         MaxLength = 190         ParentFont = False         ScrollBars = ssVertical         TabOrder = 1       end       object edAutoSay: TEdit         Tag = -1         Left = 105         Top = 43         Width = 21         Height = 20         MaxLength = 2         TabOrder = 2         Text = '14'       end       object UpDown1: TUpDown         Tag = -1         Left = 126         Top = 43         Width = 15         Height = 20         Associate = edAutoSay         Min = 2         Max = 99         Position = 14         TabOrder = 3         Wrap = False       end       object GroupBox7: TGroupBox         Left = 8         Top = 130         Width = 361         Height = 44         Caption = #32842#22825#20869#23481#36807#28388         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ParentFont = False         TabOrder = 4         object Check72: TCheckBox           Left = 8           Top = 17           Width = 49           Height = 17           Caption = #20844#20849           TabOrder = 0         end         object Check73: TCheckBox           Left = 62           Top = 17           Width = 49           Height = 17           Caption = #21898#35805           TabOrder = 1         end         object Check74: TCheckBox           Left = 115           Top = 17           Width = 73           Height = 17           Caption = #36229#32423#21898#35805           TabOrder = 2         end         object Check75: TCheckBox           Left = 190           Top = 17           Width = 49           Height = 17           Caption = #34892#20250           TabOrder = 3         end         object Check76: TCheckBox           Left = 244           Top = 17           Width = 49           Height = 17           Caption = #31169#32842           TabOrder = 4         end         object Check77: TCheckBox           Left = 298           Top = 17           Width = 57           Height = 17           Caption = #40657#21517#21333           TabOrder = 5         end       end       object cmFriends: TComboBox         Tag = -1         Left = 48         Top = 187         Width = 156         Height = 20         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ItemHeight = 0         MaxLength = 32         ParentFont = False         TabOrder = 5       end       object cmBlacks: TComboBox         Tag = -1         Left = 48         Top = 241         Width = 156         Height = 20         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ItemHeight = 0         MaxLength = 32         ParentFont = False         TabOrder = 6       end       object cmEnemy: TComboBox         Tag = -1         Left = 48         Top = 214         Width = 156         Height = 20         Font.Charset = ANSI_CHARSET         Font.Color = clWindowText         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ItemHeight = 0         MaxLength = 32         ParentFont = False         TabOrder = 7       end       object Check65: TCheckBox         Left = 8         Top = 11         Width = 73         Height = 17         Caption = #33258#21160#22238#22797         TabOrder = 8       end       object Check67: TCheckBox         Left = 8         Top = 45         Width = 65         Height = 17         Caption = #33258#21160#21457#35328         TabOrder = 9       end       object Check66: TCheckBox         Left = 296         Top = 11         Width = 73         Height = 17         Caption = #26469#35328#21457#22768         TabOrder = 10       end       object Check68: TCheckBox         Left = 180         Top = 45         Width = 46         Height = 17         Caption = #26222#36890         Checked = True         State = cbChecked         TabOrder = 11       end       object Check69: TCheckBox         Left = 229         Top = 45         Width = 46         Height = 17         Caption = #21898#35805         TabOrder = 12       end       object Check70: TCheckBox         Left = 278         Top = 45         Width = 46         Height = 17         Caption = #23567#32452         TabOrder = 13       end       object Check71: TCheckBox         Left = 328         Top = 45         Width = 46         Height = 17         Caption = #34892#20250         TabOrder = 14       end       object Check78: TCheckBox         Left = 322         Top = 188         Width = 49         Height = 17         Caption = #25552#37266         TabOrder = 15       end       object Check79: TCheckBox         Left = 322         Top = 215         Width = 49         Height = 17         Caption = #25552#37266         TabOrder = 16       end     end     object SheetChatHistory: TTabSheet       Caption = #35760#24405       ImageIndex = 8       object Bevel1: TBevel         Left = 0         Top = 0         Width = 377         Height = 249         Align = alTop         Style = bsRaised       end       object BtnClearChatHistory: TSpeedButton         Tag = -1         Left = 334         Top = 251         Width = 41         Height = 20         Caption = #28165#31354       end       object ChatHistory: TListBox         Left = 7         Top = 8         Width = 364         Height = 233         TabStop = False         Style = lbOwnerDrawVariable         BevelInner = bvLowered         BevelOuter = bvRaised         Color = clBlack         ExtendedSelect = False         Font.Charset = GB2312_CHARSET         Font.Color = clWhite         Font.Height = -12         Font.Name = #23435#20307         Font.Style = []         ItemHeight = 56         ParentFont = False         TabOrder = 0       end       object Check80: TCheckBox         Left = 8         Top = 253         Width = 97         Height = 17         Caption = #21551#29992#26469#35328#35760#24405         Checked = True         State = cbChecked         TabOrder = 1       end       object Check81: TCheckBox         Left = 112         Top = 253         Width = 49         Height = 17         Caption = #28378#23631         Checked = True         State = cbChecked         TabOrder = 2       end       object Check82: TCheckBox         Left = 168         Top = 253         Width = 97         Height = 17         Caption = #36807#28388#30456#21516#30340#35805         Checked = True         State = cbChecked         TabOrder = 3       end     end     object SheetNoteBook: TTabSheet       Caption = #20415#31546       ImageIndex = 9       object Label14: TLabel         Left = 5         Top = 257         Width = 228         Height = 12         Caption = #25552#37266': '#35831#19981#35201#25226'"'#23494#30721'"'#31561#37325#35201#20449#24687#20889#22312#36825#37324       end       object MemoNoteBook: TMemo         Left = 0         Top = 0         Width = 377         Height = 249         Align = alTop         Lines.Strings = (           '')         ScrollBars = ssBoth         TabOrder = 0       end       object Check83: TCheckBox         Left = 301         Top = 254         Width = 73         Height = 17         Caption = #33258#21160#20445#23384         TabOrder = 1       end     end     object SheetMaps: TTabSheet       Caption = #22320#22270       ImageIndex = 10       object PnMaps3: TPanel         Left = 0         Top = 22         Width = 377         Height = 252         Align = alClient         BevelOuter = bvLowered         TabOrder = 0         object pbPoint: TPaintBox           Left = 216           Top = 128           Width = 65           Height = 65         end         object PaintBox1: TPaintBox           Left = 0           Top = 0           Width = 249           Height = 169           Visible = False         end         object ImgMap: TImage           Left = 0           Top = 0           Width = 233           Height = 145         end       end       object PnMaps2: TPanel         Left = 0         Top = 0         Width = 377         Height = 22         Align = alTop         BevelOuter = bvNone         TabOrder = 1         object Label15: TLabel           Left = 2           Top = 4           Width = 24           Height = 12           Caption = #36873#25321         end         object edSelectMap: TEdit           Left = 30           Top = 0           Width = 187           Height = 20           Font.Charset = GB2312_CHARSET           Font.Color = clWindowText           Font.Height = -12           Font.Name = #23435#20307           Font.Style = [fsBold]           ParentFont = False           ReadOnly = True           TabOrder = 0         end         object BitBtn1: TBitBtn           Left = 199           Top = 2           Width = 16           Height = 14           TabOrder = 1           TabStop = False           Glyph.Data = {             D6080000424DD60800000000000036080000280000000A000000080000000100             100003000000A000000000000000000000000001000000000000007C0000E003             00001F0000000000000000008000008000000080800080000000800080008080             0000C0C0C000C0DCC000F0CAA6000020400000206000002080000020A0000020             C0000020E00000400000004020000040400000406000004080000040A0000040             C0000040E00000600000006020000060400000606000006080000060A0000060             C0000060E00000800000008020000080400000806000008080000080A0000080             C0000080E00000A0000000A0200000A0400000A0600000A0800000A0A00000A0             C00000A0E00000C0000000C0200000C0400000C0600000C0800000C0A00000C0             C00000C0E00000E0000000E0200000E0400000E0600000E0800000E0A00000E0             C00000E0E00040000000400020004000400040006000400080004000A0004000             C0004000E00040200000402020004020400040206000402080004020A0004020             C0004020E00040400000404020004040400040406000404080004040A0004040             C0004040E00040600000406020004060400040606000406080004060A0004060             C0004060E00040800000408020004080400040806000408080004080A0004080             C0004080E00040A0000040A0200040A0400040A0600040A0800040A0A00040A0             C00040A0E00040C0000040C0200040C0400040C0600040C0800040C0A00040C0             C00040C0E00040E0000040E0200040E0400040E0600040E0800040E0A00040E0             C00040E0E00080000000800020008000400080006000800080008000A0008000             C0008000E00080200000802020008020400080206000802080008020A0008020             C0008020E00080400000804020008040400080406000804080008040A0008040             C0008040E00080600000806020008060400080606000806080008060A0008060             C0008060E00080800000808020008080400080806000808080008080A0008080             C0008080E00080A0000080A0200080A0400080A0600080A0800080A0A00080A0             C00080A0E00080C0000080C0200080C0400080C0600080C0800080C0A00080C0             C00080C0E00080E0000080E0200080E0400080E0600080E0800080E0A00080E0             C00080E0E000C0000000C0002000C0004000C0006000C0008000C000A000C000             C000C000E000C0200000C0202000C0204000C0206000C0208000C020A000C020             C000C020E000C0400000C0402000C0404000C0406000C0408000C040A000C040             C000C040E000C0600000C0602000C0604000C0606000C0608000C060A000C060             C000C060E000C0800000C0802000C0804000C0806000C0808000C080A000C080             C000C080E000C0A00000C0A02000C0A04000C0A06000C0A08000C0A0A000C0A0             C000C0A0E000C0C00000C0C02000C0C04000C0C06000C0C08000C0C0A000F0FB             FF00A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF             0000FFFFFF00FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F             FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000FF7FFF7FFF7F             FF7FFF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7FFF7F000000000000             000000000000FF7FFF7FFF7F00000000000000000000000000000000FF7FFF7F             FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F             FF7FFF7FFF7F}         end         object rbOrgin: TRadioButton           Left = 304           Top = 2           Width = 68           Height = 17           Caption = #21407#22987#22823#23567           TabOrder = 2         end         object rbZoom: TRadioButton           Left = 232           Top = 2           Width = 68           Height = 17           Caption = #33258#21160#36866#24212           Checked = True           TabOrder = 3           TabStop = True         end       end       object tvMaps: TTreeView         Left = 30         Top = 21         Width = 187         Height = 125         Ctl3D = False         Indent = 19         ParentCtl3D = False         ReadOnly = True         TabOrder = 2         Visible = False       end     end     object SheetTask: TTabSheet       Caption = #20219#21153       ImageIndex = 5       object Splitter1: TSplitter         Left = 0         Top = -28         Width = 377         Height = 257         Cursor = crVSplit         Align = alBottom       end       object TaskTreeView: TTreeView         Left = 0         Top = 0         Width = 377         Height = 229         Align = alClient         Indent = 19         ReadOnly = True         RightClickSelect = True         TabOrder = 1       end       object TaskMemo: TMemo         Left = 0         Top = 229         Width = 377         Height = 45         Align = alBottom         ReadOnly = True         TabOrder = 0       end     end     object SheetObject: TTabSheet       Caption = #29289#21697       ImageIndex = 6       object BtnResetObj: TSpeedButton         Left = 309         Top = 247         Width = 59         Height = 21         Caption = #24674#22797#40664#35748       end       object BtnAddObj: TSpeedButton         Left = 137         Top = 247         Width = 21         Height = 19         Caption = #65291       end       object BtnDelObj: TSpeedButton         Left = 161         Top = 247         Width = 21         Height = 19         Caption = #65293       end       object ObjListView: TListView         Left = 8         Top = 8         Width = 361         Height = 228         BevelWidth = 0         Columns = <           item             Caption = #29289#21697#21517#31216             Width = 180           end           item             Alignment = taCenter             Caption = #25552#37266             Width = 36           end           item             Alignment = taCenter             Caption = #39068#33394             Width = 36           end           item             Alignment = taCenter             Caption = #25441#21462             Width = 36           end           item             Alignment = taCenter             Caption = #26174#31034             Width = 36           end>         ColumnClick = False         FlatScrollBars = True         GridLines = True         HotTrack = True         ReadOnly = True         RowSelect = True         TabOrder = 0         ViewStyle = vsReport       end       object EditAddObj: TEdit         Left = 8         Top = 247         Width = 121         Height = 20         MaxLength = 40         TabOrder = 1       end     end     object SheetOthers: TTabSheet       Caption = #20854#23427       ImageIndex = 7       object Label19: TLabel         Left = 229         Top = 253         Width = 84         Height = 12         Caption = #38647#36798#20013#24618#29289#39068#33394       end       object SpeedButton8: TSpeedButton         Left = 161         Top = 250         Width = 35         Height = 20         Caption = #25191#34892       end       object Label5: TLabel         Left = 5         Top = 255         Width = 48         Height = 12         Caption = #29305#27530#21629#20196       end       object GroupBox13: TGroupBox         Left = 4         Top = 4         Width = 192         Height = 237         Caption = #39764#27861#38145#23450         TabOrder = 0         object MagicListView: TListView           Left = 8           Top = 16           Width = 176           Height = 215           BevelWidth = 0           Columns = <             item               Caption = #39764#27861#21517#31216               Width = 80             end             item               Alignment = taCenter               Caption = #38145#23450               Width = 36             end>           ColumnClick = False           FlatScrollBars = True           GridLines = True           HotTrack = True           ReadOnly = True           RowSelect = True           TabOrder = 0           ViewStyle = vsReport         end       end       object GroupBox14: TGroupBox         Left = 201         Top = 4         Width = 176         Height = 237         Caption = 'Boss'#21015#34920         TabOrder = 1         object BtnAddBoss: TSpeedButton           Left = 121           Top = 211           Width = 21           Height = 19           Caption = #65291         end         object BtnDelBoss: TSpeedButton           Left = 145           Top = 211           Width = 21           Height = 19           Caption = #65293         end         object EditAddBoss: TEdit           Left = 8           Top = 211           Width = 105           Height = 20           MaxLength = 40           TabOrder = 1         end         object BossListView: TListView           Left = 8           Top = 16           Width = 159           Height = 189           BevelWidth = 0           Columns = <             item               Caption = #24618#29289#21517#31216               Width = 100             end             item               Alignment = taCenter               Caption = #25552#37266               Width = 36             end>           ColumnClick = False           FlatScrollBars = True           GridLines = True           HotTrack = True           ReadOnly = True           RowSelect = True           TabOrder = 0           ViewStyle = vsReport         end       end       object CmbCommand: TComboBox         Left = 56         Top = 250         Width = 102         Height = 20         Style = csDropDownList         ItemHeight = 12         TabOrder = 2         Items.Strings = (           '@'#21152#20837#34892#20250           '@'#36864#20986#34892#20250           '@'#20801#35768#22238#29983#26415           '@'#20801#35768#22825#22320#21512#19968           '@'#22825#22320#21512#19968           '@'#28155#21152#25104#21592           '@'#20801#35768#32467#30431           '@'#32467#30431)       end     end     object SheetGuaJi: TTabSheet       Caption = #25346#26426       ImageIndex = 12       object GroupBox1: TGroupBox         Left = 253         Top = 146         Width = 109         Height = 79         Caption = #20667#65314#24335#23547#24618         TabOrder = 0         Visible = False       end       object GroupBox3: TGroupBox         Left = 196         Top = 71         Width = 165         Height = 66         Caption = #25441#29289         TabOrder = 1         object Check86: TCheckBox           Left = 12           Top = 21           Width = 133           Height = 17           Caption = #20351#29992#29289#21697#25441#21462#35268#21017           TabOrder = 0         end       end       object GroupBox6: TGroupBox         Left = 12         Top = 18         Width = 173         Height = 119         Caption = #25112#26007         TabOrder = 2         object ComboBox1: TComboBox           Left = 70           Top = 84           Width = 84           Height = 20           Style = csDropDownList           ItemHeight = 12           TabOrder = 0           Items.Strings = (             #22238#22478             #21453#20987)         end         object ComboBox2: TComboBox           Left = 86           Top = 36           Width = 54           Height = 20           Style = csDropDownList           ItemHeight = 12           TabOrder = 1           Items.Strings = (             'F1'             'F2'             'F3'             'F4'             'F5'             'F6'             'F7'             'F8'             'F9'             'F10'             'F11'             'F12')         end         object RadioButton1: TRadioButton           Left = 12           Top = 22           Width = 70           Height = 17           Caption = #29289#29702#25915#20987           TabOrder = 2         end         object RadioButton2: TRadioButton           Left = 12           Top = 38           Width = 70           Height = 17           Caption = #39764#27861#25915#20987           TabOrder = 3         end         object Check84: TCheckBox           Left = 12           Top = 66           Width = 57           Height = 17           Caption = #19981#25250#24618           TabOrder = 4         end         object Check85: TCheckBox           Left = 12           Top = 85           Width = 57           Height = 17           Caption = #34987'PK'           TabOrder = 5         end       end       object GroupBox2: TGroupBox         Left = 196         Top = 18         Width = 165         Height = 47         Caption = #23547#24618         TabOrder = 3         object Label1: TLabel           Left = 12           Top = 22           Width = 24           Height = 12           Caption = #35268#21017         end         object ComboBox4: TComboBox           Left = 43           Top = 17           Width = 110           Height = 20           Style = csDropDownList           ItemHeight = 12           TabOrder = 0           Items.Strings = (             #20667#65314#24335#23547#24618)         end       end       object GroupBox4: TGroupBox         Left = 12         Top = 146         Width = 117         Height = 109         Caption = #20667#65314#24335#23547#24618         TabOrder = 4         object Check10: TCheckBox           Left = 8           Top = 16           Width = 97           Height = 17           Caption = #27979#35797           TabOrder = 0           OnClick = Check10Click         end       end       object BtnGuaJi: TButton         Tag = -1         Left = 286         Top = 239         Width = 78         Height = 21         Caption = #24320#22987#25346#26426         TabOrder = 5       end       object GroupBox5: TGroupBox         Left = 137         Top = 146         Width = 108         Height = 109         Caption = #20667#65314#24335#23547#24618         TabOrder = 6         Visible = False       end     end   end end ==================== 应该够清楚了，呵呵，在网络游戏 A3,MIR3,MU 下弹出和窗口化游戏主窗口没任何问题,别的没试 注意把 if (title = 'pRoJeCtAaA') or (title = 'ProjectA3') or (title = 'Project A3') title里的内容改成你想钩上去的的窗口的caption 下面这个是处理游戏失焦时自动关闭的 function MyProc(Hwnd:HWND;iCode:UINT;wParam:WPARAM;lParam:LPARAM):integer; stdcall; begin if (iCode=WM_ACTIVATEAPP) or (iCode=WM_ACTIVATE) OR (iCode=WM_KILLFOCUS) or (iCode=WM_SETFOCUS) then exit; result:=CallWindowProc(oldproc,hwnd,iCode,wparam,lparam); end;

刘麻子 · 2004-03-13

[?] 为什么大家都不爱加注释？加点注释，一方面我这样的菜鸟好看懂，一方面自己维护的时候也方便啊？

dyzgd · 2004-03-16

上面的代码在魔兽争霸3中没有用啊

tt.t · 2004-03-16

把这部分删掉就应该行了 if (title = 'pRoJeCtAaA') or (title = 'ProjectA3') or (title = 'Project A3') then      if gowin then WinA3(hwnd); 不过效果肯定不怎么样。因为我想wc3应该使用了d3d的present进行翻页的，谈出的非模态窗口会闪个不停的

dyzgd · 2004-03-18

不是无法呼出，是没法显示

刘麻子 · 2004-04-23

这里有答案： http://ultratools.icpcn.com/tech_article/youxixiugaiqi.htm

jianguobu · 2004-04-23

晕,针对每种游戏的写法不同.

刘麻子 · 2004-04-26

这里有完整解决方案： http://ultratools.icpcn.com/tech_article/youxixiugaiqi.htm

200分求解！怎么实现游戏外挂弹出窗口！(200分)

lygzx

Unregistered / Unconfirmed

我不怕你

Unregistered / Unconfirmed

yayx

Unregistered / Unconfirmed

我不怕你

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

Tianbing2008

Unregistered / Unconfirmed

yayx

Unregistered / Unconfirmed

我不怕你

Unregistered / Unconfirmed

兼职人物

Unregistered / Unconfirmed

楚非帆

Unregistered / Unconfirmed

楚非帆

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

hellfish

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

dyzgd

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

dyzgd

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads