viewsession.pas

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

unit ViewSession;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmViewSession=class(TForm)
    ButtonRefGrid: TButton;
    PanelStatus: TPanel;
    GridSession: TStringGrid;
    procedure FormCreate(Sender : TObject);
    procedure ButtonRefGridClick(Sender : TObject);
    procedure _PROC_0053EED1(Sender : TObject);
    procedure _PROC_0053EEF0(Sender : TObject);
    procedure _PROC_0053F20C(Sender : TObject);
    procedure _PROC_0053F23C(Sender : TObject);
    procedure _PROC_0053F245(Sender : TObject);
    procedure _PROC_0053F2CE(Sender : TObject);
    procedure _PROC_0053F342(Sender : TObject);
    procedure _PROC_0053F608(Sender : TObject);
    procedure _PROC_0053F714(Sender : TObject);
    procedure _PROC_0053F91B(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmViewSession: TfrmViewSession;

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

implementation

{$R *.DFM}

procedure TfrmViewSession.FormCreate(Sender : TObject);
begin
(*
0053EDB4   55                     push    ebp
0053EDB5   8BEC                   mov     ebp, esp
0053EDB7   83C4F8                 add     esp, -$08
0053EDBA   8955F8                 mov     [ebp-$08], edx
0053EDBD   8945FC                 mov     [ebp-$04], eax

* Possible String Reference to: '序号'
|
0053EDC0   6868EE5300             push    $0053EE68
0053EDC5   33C9                   xor     ecx, ecx
0053EDC7   33D2                   xor     edx, edx
0053EDC9   8B45FC                 mov     eax, [ebp-$04]
0053EDCC   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EDD2   E89180FDFF             call    00516E68

* Possible String Reference to: '登录帐号'
|
0053EDD7   6878EE5300             push    $0053EE78
0053EDDC   33C9                   xor     ecx, ecx
0053EDDE   BA01000000             mov     edx, $00000001
0053EDE3   8B45FC                 mov     eax, [ebp-$04]
0053EDE6   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EDEC   E87780FDFF             call    00516E68

* Possible String Reference to: '登录地址'
|
0053EDF1   688CEE5300             push    $0053EE8C
0053EDF6   33C9                   xor     ecx, ecx
0053EDF8   BA02000000             mov     edx, $00000002
0053EDFD   8B45FC                 mov     eax, [ebp-$04]
0053EE00   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE06   E85D80FDFF             call    00516E68

* Possible String Reference to: '会话ID号'
|
0053EE0B   68A0EE5300             push    $0053EEA0
0053EE10   33C9                   xor     ecx, ecx
0053EE12   BA03000000             mov     edx, $00000003
0053EE17   8B45FC                 mov     eax, [ebp-$04]
0053EE1A   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE20   E84380FDFF             call    00516E68

* Possible String Reference to: '充值'
|
0053EE25   68B4EE5300             push    $0053EEB4
0053EE2A   33C9                   xor     ecx, ecx
0053EE2C   BA04000000             mov     edx, $00000004
0053EE31   8B45FC                 mov     eax, [ebp-$04]
0053EE34   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE3A   E82980FDFF             call    00516E68

* Possible String Reference to: '充值模式'
|
0053EE3F   68C4EE5300             push    $0053EEC4
0053EE44   33C9                   xor     ecx, ecx
0053EE46   BA05000000             mov     edx, $00000005
0053EE4B   8B45FC                 mov     eax, [ebp-$04]
0053EE4E   8B8000030000           mov     eax, [eax+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE54   E80F80FDFF             call    00516E68
0053EE59   59                     pop     ecx
0053EE5A   59                     pop     ecx
0053EE5B   5D                     pop     ebp
0053EE5C   C3                     ret

*)
end;

procedure TfrmViewSession.ButtonRefGridClick(Sender : TObject);
begin
(*
0053F1F4   55                     push    ebp
0053F1F5   8BEC                   mov     ebp, esp
0053F1F7   83C4F8                 add     esp, -$08
0053F1FA   8955F8                 mov     [ebp-$08], edx
0053F1FD   8945FC                 mov     [ebp-$04], eax
0053F200   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TfrmViewSession._PROC_0053EEF0()
|
0053F203   E8E8FCFFFF             call    0053EEF0
0053F208   59                     pop     ecx
0053F209   59                     pop     ecx
0053F20A   5D                     pop     ebp
0053F20B   C3                     ret

*)
end;

procedure TfrmViewSession._PROC_0053EED1(Sender : TObject);
begin
(*
0053EED1   8BEC                   mov     ebp, esp
0053EED3   51                     push    ecx
0053EED4   8945FC                 mov     [ebp-$04], eax
0053EED7   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TfrmViewSession._PROC_0053EEF0()
|
0053EEDA   E811000000             call    0053EEF0
0053EEDF   8B45FC                 mov     eax, [ebp-$04]
0053EEE2   8B10                   mov     edx, [eax]
0053EEE4   FF92EC000000           call    dword ptr [edx+$00EC]
0053EEEA   59                     pop     ecx
0053EEEB   5D                     pop     ebp
0053EEEC   C3                     ret

*)
end;

procedure TfrmViewSession._PROC_0053EEF0(Sender : TObject);
begin
(*
0053EEF0   55                     push    ebp
0053EEF1   8BEC                   mov     ebp, esp
0053EEF3   B905000000             mov     ecx, $00000005
0053EEF8   6A00                   push    $00
0053EEFA   6A00                   push    $00
0053EEFC   49                     dec     ecx
0053EEFD   75F9                   jnz     0053EEF8
0053EEFF   8945FC                 mov     [ebp-$04], eax
0053EF02   33C0                   xor     eax, eax
0053EF04   55                     push    ebp

* Possible String Reference to: '椁W