testselgate.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit TestSelGate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmTestSelGate=class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    EditSelGate: TEdit;
    Label2: TLabel;
    EditGameGate: TEdit;
    ButtonTest: TButton;
    Button1: TButton;
    Label3: TLabel;
    EditServerIdx: TEdit;
    Label4: TLabel;
    procedure ButtonTestClick(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure _PROC_004D9435(Sender : TObject);
    procedure _PROC_004D9464(Sender : TObject);
    procedure _PROC_004D946C(Sender : TObject);
    procedure _PROC_004D95C9(Sender : TObject);
    procedure _PROC_004D9620(Sender : TObject);
    procedure _PROC_004D9650(Sender : TObject);
    procedure _PROC_004D9670(Sender : TObject);
    procedure _PROC_004D96A0(Sender : TObject);
    procedure _PROC_004D96A8(Sender : TObject);
    procedure _PROC_004D96D8(Sender : TObject);
    procedure _PROC_004D96E0(Sender : TObject);
    procedure _PROC_004D9710(Sender : TObject);
    procedure _PROC_004D9718(Sender : TObject);
    procedure _PROC_004D9748(Sender : TObject);
    procedure _PROC_004D9750(Sender : TObject);
    procedure _PROC_004D9780(Sender : TObject);
    procedure _PROC_004D9788(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmTestSelGate: TfrmTestSelGate;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmTestSelGate.ButtonTestClick(Sender : TObject);
begin
(*
004D92EC   55                     push    ebp
004D92ED   8BEC                   mov     ebp, esp
004D92EF   B905000000             mov     ecx, $00000005
004D92F4   6A00                   push    $00
004D92F6   6A00                   push    $00
004D92F8   49                     dec     ecx
004D92F9   75F9                   jnz     004D92F4
004D92FB   51                     push    ecx
004D92FC   53                     push    ebx
004D92FD   56                     push    esi
004D92FE   8BD8                   mov     ebx, eax
004D9300   33C0                   xor     eax, eax
004D9302   55                     push    ebp

* Possible String Reference to: '閊