onlinemsg.pas

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

unit OnlineMsg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmOnlineMsg=class(TForm)
    ComboBoxMsg: TComboBox;
    MemoMsg: TMemo;
    Label1: TLabel;
    StringGrid: TStringGrid;
    ButtonAdd: TButton;
    ButtonDelete: TButton;
    ButtonSend: TButton;
    procedure ComboBoxMsgKeyPress(Sender : TObject);
    procedure ComboBoxMsgChange(Sender : TObject);
    procedure StringGridClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure StringGridDblClick(Sender : TObject);
    procedure ButtonDeleteClick(Sender : TObject);
    procedure MemoMsgChange(Sender : TObject);
    procedure ButtonSendClick(Sender : TObject);
    procedure _PROC_00553BD0(Sender : TObject);
    procedure _PROC_00553BE8(Sender : TObject);
    procedure _PROC_00553C18(Sender : TObject);
    procedure _PROC_00553C20(Sender : TObject);
    procedure _PROC_00553C33(Sender : TObject);
    procedure _PROC_00553C43(Sender : TObject);
    procedure _PROC_00553D1E(Sender : TObject);
    procedure _PROC_0055416B(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmOnlineMsg: TfrmOnlineMsg;

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

implementation

{$R *.DFM}

procedure TfrmOnlineMsg.ComboBoxMsgKeyPress(Sender : TObject);
begin
(*
00553468   55                     push    ebp
00553469   8BEC                   mov     ebp, esp
0055346B   83C4E8                 add     esp, -$18
0055346E   53                     push    ebx
0055346F   33DB                   xor     ebx, ebx
00553471   895DE8                 mov     [ebp-$18], ebx
00553474   895DEC                 mov     [ebp-$14], ebx
00553477   895DF4                 mov     [ebp-$0C], ebx
0055347A   894DF8                 mov     [ebp-$08], ecx
0055347D   8955F0                 mov     [ebp-$10], edx
00553480   8945FC                 mov     [ebp-$04], eax
00553483   33C0                   xor     eax, eax
00553485   55                     push    ebp
00553486   68C7355500             push    $005535C7

***** TRY
|
0055348B   64FF30                 push    dword ptr fs:[eax]
0055348E   648920                 mov     fs:[eax], esp
00553491   33C0                   xor     eax, eax
00553493   55                     push    ebp
00553494   689D355500             push    $0055359D

***** TRY
|
00553499   64FF30                 push    dword ptr fs:[eax]
0055349C   648920                 mov     fs:[eax], esp
0055349F   8B45F8                 mov     eax, [ebp-$08]
005534A2   8A00                   mov     al, byte ptr [eax]
005534A4   2C0D                   sub     al, $0D
005534A6   0F85E3000000           jnz     0055358F
005534AC   8D55F4                 lea     edx, [ebp-$0C]
005534AF   8B45FC                 mov     eax, [ebp-$04]
005534B2   8B80F8020000           mov     eax, [eax+$02F8]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
005534B8   E88B5BF1FF             call    00469048
005534BD   8D55EC                 lea     edx, [ebp-$14]
005534C0   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
005534C3   E8C07BEBFF             call    0040B088
005534C8   837DEC00               cmp     dword ptr [ebp-$14], +$00
005534CC   0F848A000000           jz      0055355C
005534D2   8B45FC                 mov     eax, [ebp-$04]
005534D5   8B80F8020000           mov     eax, [eax+$02F8]
005534DB   8B803C020000           mov     eax, [eax+$023C]
005534E1   8B10                   mov     edx, [eax]
005534E3   FF5214                 call    dword ptr [edx+$14]
005534E6   85C0                   test    eax, eax
005534E8   7517                   jnz     00553501
005534EA   8B45FC                 mov     eax, [ebp-$04]
005534ED   8B80F8020000           mov     eax, [eax+$02F8]
005534F3   8B803C020000           mov     eax, [eax+$023C]
005534F9   8B55F4                 mov     edx, [ebp-$0C]
005534FC   8B08                   mov     ecx, [eax]
005534FE   FF5138                 call    dword ptr [ecx+$38]
00553501   8B45FC                 mov     eax, [ebp-$04]
00553504   8B80F8020000           mov     eax, [eax+$02F8]
0055350A   8B803C020000           mov     eax, [eax+$023C]
00553510   8B4DF4                 mov     ecx, [ebp-$0C]
00553513   BA01000000             mov     edx, $00000001
00553518   8B18                   mov     ebx, [eax]
0055351A   FF5360                 call    dword ptr [ebx+$60]
0055351D   A1ACB46500             mov     eax, dword ptr [$0065B4AC]
00553522   8B00                   mov     eax, [eax]
00553524   B103                   mov     cl, $03
00553526   8B55F4                 mov     edx, [ebp-$0C]

|
00553529   E866FE0400             call    005A3394
0055352E   8B15A4B56500           mov     edx, [$0065B5A4]
00553534   8B92DF150000           mov     edx, [edx+$15DF]
0055353A   8D45E8                 lea     eax, [ebp-$18]
0055353D   8B4DF4                 mov     ecx, [ebp-$0C]

* Reference to: System.@LStrCat3;
|
00553540   E8E71DEBFF             call    0040532C
00553545   8B55E8                 mov     edx, [ebp-$18]
00553548   8B45FC                 mov     eax, [ebp-$04]
0055354B   8B80FC020000           mov     eax, [eax+$02FC]
00553551   8B8020020000           mov     eax, [eax+$0220]
00553557   8B08                   mov     ecx, [eax]
00553559   FF5138                 call    dword ptr [ecx+$38]
0055355C   8B45FC                 mov     eax, [ebp-$04]
0055355F   8B80F8020000           mov     eax, [eax+$02F8]
00553565   33D2                   xor     edx, edx
00553567   8B08                   mov     ecx, [eax]
00553569   FF91D0000000           call    dword ptr [ecx+$00D0]
0055356F   8B45FC                 mov     eax, [ebp-$04]
00553572   8B80F8020000           mov     eax, [eax+$02F8]
00553578   33D2                   xor     edx, edx

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0055357A   E8F95AF1FF             call    00469078
0055357F   8B45FC                 mov     eax, [ebp-$04]
00553582   8B8008030000           mov     eax, [eax+$0308]
00553588   33D2                   xor     edx, edx
0055358A   8B08                   mov     ecx, [eax]
0055358C   FF5164                 call    dword ptr [ecx+$64]
0055358F   33C0                   xor     eax, eax
00553591   5A                     pop     edx
00553592   59                     pop     ecx
00553593   59                     pop     ecx
00553594   648910                 mov     fs:[eax], edx

****** FINALLY
|
00553597   68A4355500             push    $005535A4
0055359C   C3                     ret


* Reference to: System.@HandleFinally;
|
0055359D   E9D613EBFF             jmp     00404978
005535A2   EBF8                   jmp     0055359C

****** END
|
005535A4   33C0                   xor     eax, eax
005535A6   5A                     pop     edx
005535A7   59                     pop     ecx
005535A8   59                     pop     ecx
005535A9   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[嬪]脨U嬱兡