📄 svmain.pas
字号:
unit svMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmMain=class(TForm)
MemoLog: TMemo;
Timer1: TTimer;
RunTimer: TTimer;
DBSocket: TClientSocket;
ConnectTimer: TTimer;
StartTimer: TTimer;
SaveVariableTimer: TTimer;
CloseTimer: TTimer;
MainMenu: TMainMenu;
MENU_CONTROL: TMenuItem;
MENU_CONTROL_START: TMenuItem;
MENU_CONTROL_STOP: TMenuItem;
MENU_CONTROL_EXIT: TMenuItem;
MENU_CONTROL_RELOAD_CONF: TMenuItem;
MENU_CONTROL_CLEARLOGMSG: TMenuItem;
MENU_HELP: TMenuItem;
MENU_HELP_ABOUT: TMenuItem;
MENU_MANAGE: TMenuItem;
MENU_CONTROL_RELOAD: TMenuItem;
MENU_CONTROL_RELOAD_ITEMDB: TMenuItem;
MENU_CONTROL_RELOAD_MAGICDB: TMenuItem;
MENU_CONTROL_RELOAD_MONSTERDB: TMenuItem;
MENU_MANAGE_PLUG: TMenuItem;
MENU_OPTION: TMenuItem;
MENU_OPTION_GENERAL: TMenuItem;
MENU_OPTION_SERVERCONFIG: TMenuItem;
MENU_OPTION_GAME: TMenuItem;
MENU_OPTION_FUNCTION: TMenuItem;
MENU_CONTROL_RELOAD_MONSTERSAY: TMenuItem;
MENU_CONTROL_RELOAD_DISABLEMAKE: TMenuItem;
MENU_CONTROL_GATE: TMenuItem;
MENU_CONTROL_GATE_OPEN: TMenuItem;
MENU_CONTROL_GATE_CLOSE: TMenuItem;
MENU_VIEW: TMenuItem;
MENU_VIEW_GATE: TMenuItem;
MENU_VIEW_SESSION: TMenuItem;
MENU_VIEW_ONLINEHUMAN: TMenuItem;
MENU_VIEW_LEVEL: TMenuItem;
MENU_VIEW_LIST: TMenuItem;
MENU_MANAGE_ONLINEMSG: TMenuItem;
MENU_VIEW_KERNELINFO: TMenuItem;
MENU_TOOLS: TMenuItem;
MENU_TOOLS_MERCHANT: TMenuItem;
MENU_TOOLS_NPC: TMenuItem;
MENU_OPTION_ITEMFUNC: TMenuItem;
MENU_TOOLS_MONGEN: TMenuItem;
MENU_TOOLS_TEST: TMenuItem;
DECODESCRIPT: TMenuItem;
MENU_CONTROL_RELOAD_STARTPOINT: TMenuItem;
G1: TMenuItem;
MenuStackTest: TMenuItem;
MENU_OPTION_MONSTER: TMenuItem;
MENU_TOOLS_IPSEARCH: TMenuItem;
MENU_MANAGE_CASTLE: TMenuItem;
MENU_CONTROL_RELOAD_SABAK: TMenuItem;
N1: TMenuItem;
Panel1: TPanel;
LbRunTime: TLabel;
LbUserCount: TLabel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
LbRunSocketTime: TLabel;
Label20: TLabel;
MemStatus: TLabel;
GridGate: TStringGrid;
MENU_VIEW_HIGHRANK: TMenuItem;
MENU_CONTROL_RELOAD_QFUNCTIONSCRIPT: TMenuItem;
MENU_HELP_REGKEY: TMenuItem;
LogUDP: TNMUDP;
N3: TMenuItem;
MENU_CONTROL_RELOAD_QMagegeScriptClick: TMenuItem;
Splitter: TSplitter;
C1: TMenuItem;
MENU_CONTROL_RELOAD_BOXITEM: TMenuItem;
procedure FormCloseQuery(Sender : TObject);
procedure MemoLogChange(Sender : TObject);
procedure MemoLogDblClick(Sender : TObject);
procedure MENU_CONTROL_EXITClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_CONFClick(Sender : TObject);
procedure MENU_CONTROL_CLEARLOGMSGClick(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure MENU_CONTROL_RELOAD_ITEMDBClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_MAGICDBClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_MONSTERDBClick(Sender : TObject);
procedure MENU_CONTROL_STARTClick(Sender : TObject);
procedure MENU_CONTROL_STOPClick(Sender : TObject);
procedure MENU_HELP_ABOUTClick(Sender : TObject);
procedure MENU_OPTION_SERVERCONFIGClick(Sender : TObject);
procedure MENU_OPTION_GENERALClick(Sender : TObject);
procedure MENU_OPTION_GAMEClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure MENU_OPTION_FUNCTIONClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_MONSTERSAYClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_DISABLEMAKEClick(Sender : TObject);
procedure MENU_CONTROL_GATE_OPENClick(Sender : TObject);
procedure MENU_CONTROL_GATE_CLOSEClick(Sender : TObject);
procedure MENU_CONTROLClick(Sender : TObject);
procedure MENU_VIEW_GATEClick(Sender : TObject);
procedure MENU_VIEW_SESSIONClick(Sender : TObject);
procedure MENU_VIEW_ONLINEHUMANClick(Sender : TObject);
procedure MENU_VIEW_LEVELClick(Sender : TObject);
procedure MENU_VIEW_LISTClick(Sender : TObject);
procedure MENU_MANAGE_ONLINEMSGClick(Sender : TObject);
procedure MENU_VIEW_KERNELINFOClick(Sender : TObject);
procedure MENU_TOOLS_MERCHANTClick(Sender : TObject);
procedure MENU_OPTION_ITEMFUNCClick(Sender : TObject);
procedure MENU_TOOLS_MONGENClick(Sender : TObject);
procedure DECODESCRIPTClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_STARTPOINTClick(Sender : TObject);
procedure G1Click(Sender : TObject);
procedure MENU_OPTION_MONSTERClick(Sender : TObject);
procedure MENU_TOOLS_IPSEARCHClick(Sender : TObject);
procedure MENU_MANAGE_CASTLEClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_SABAKClick(Sender : TObject);
procedure MENU_TOOLS_NPCClick(Sender : TObject);
procedure MENU_VIEW_HIGHRANKClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_QFUNCTIONSCRIPTClick(Sender : TObject);
procedure MENU_HELP_REGKEYClick(Sender : TObject);
procedure MENU_MANAGE_PLUGClick(Sender : TObject);
procedure MENU_CONTROL_RELOAD_QMagegeScriptClickClick(Sender : TObject);
procedure MemStatusClick(Sender : TObject);
procedure MENU_TOOLS_TESTClick(Sender : TObject);
procedure C1Click(Sender : TObject);
procedure MENU_CONTROL_RELOAD_BOXITEMClick(Sender : TObject);
procedure _PROC_0058158D(Sender : TObject);
procedure _PROC_005815FC(Sender : TObject);
procedure _PROC_00581614(Sender : TObject);
procedure _PROC_00581670(Sender : TObject);
procedure _PROC_005816CD(Sender : TObject);
procedure _PROC_0058178C(Sender : TObject);
procedure _PROC_00581864(Sender : TObject);
procedure _PROC_00581B25(Sender : TObject);
procedure _PROC_00581DE9(Sender : TObject);
procedure _PROC_00581E98(Sender : TObject);
procedure _PROC_005821C5(Sender : TObject);
procedure _PROC_00582321(Sender : TObject);
procedure _PROC_00582334(Sender : TObject);
procedure _PROC_00582354(Sender : TObject);
procedure _PROC_00582378(Sender : TObject);
procedure _PROC_00582438(Sender : TObject);
procedure _PROC_00583313(Sender : TObject);
procedure _PROC_00583E44(Sender : TObject);
procedure _PROC_005844B1(Sender : TObject);
procedure _PROC_00584AC1(Sender : TObject);
procedure _PROC_00584B90(Sender : TObject);
procedure _PROC_005850C8(Sender : TObject);
procedure _PROC_005851C4(Sender : TObject);
procedure _PROC_005851CC(Sender : TObject);
procedure _PROC_005852C4(Sender : TObject);
procedure _PROC_005852E5(Sender : TObject);
procedure _PROC_00585768(Sender : TObject);
procedure _PROC_0058577D(Sender : TObject);
procedure _PROC_00585798(Sender : TObject);
procedure _PROC_005857C0(Sender : TObject);
procedure _PROC_005857E4(Sender : TObject);
procedure _PROC_00585808(Sender : TObject);
procedure _PROC_0058582C(Sender : TObject);
procedure _PROC_00585964(Sender : TObject);
procedure _PROC_00585994(Sender : TObject);
procedure _PROC_00585BD1(Sender : TObject);
procedure _PROC_005867B3(Sender : TObject);
procedure _PROC_0058681D(Sender : TObject);
procedure _PROC_00586EE0(Sender : TObject);
procedure _PROC_0058728E(Sender : TObject);
procedure _PROC_005874C8(Sender : TObject);
procedure _PROC_00587761(Sender : TObject);
procedure _PROC_00587830(Sender : TObject);
procedure _PROC_00587838(Sender : TObject);
procedure _PROC_005879A0(Sender : TObject);
procedure _PROC_00587E74(Sender : TObject);
procedure _PROC_00587EAC(Sender : TObject);
procedure _PROC_00587F3C(Sender : TObject);
procedure _PROC_00588749(Sender : TObject);
procedure _PROC_005887A0(Sender : TObject);
procedure _PROC_005888FA(Sender : TObject);
procedure _PROC_0058895D(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmMain: TFrmMain;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmMain.FormCloseQuery(Sender : TObject);
begin
(*
005850D8 55 push ebp
005850D9 8BEC mov ebp, esp
005850DB 83C4EC add esp, -$14
005850DE 53 push ebx
005850DF 33DB xor ebx, ebx
005850E1 895DF0 mov [ebp-$10], ebx
005850E4 895DEC mov [ebp-$14], ebx
005850E7 894DF8 mov [ebp-$08], ecx
005850EA 8955F4 mov [ebp-$0C], edx
005850ED 8945FC mov [ebp-$04], eax
005850F0 33C0 xor eax, eax
005850F2 55 push ebp
* Possible String Reference to: '榛麋⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -