// Include
#include "loginsrv.h"
#include <conio.h>

#include <dbghelp.h>
#pragma comment(lib, "dbghelp.lib")

// Local definitions
#define SafeDelete(P)       if (P!=NULL) { delete(P);      (P)=NULL; } // memory 安全释放
#define SafeCloseHandle(P)  if (P!=NULL) { CloseHandle(P); (P)=NULL; } // handle 安全关闭

#define ODBC_DSN_WEB		"WEB_MEMBERDB"
#define ODBC_DSN_ACCOUNT	"IRIS_MEMBERDB"

#define ODBC_UID_WEB		"iris"			// local test
#define ODBC_PWD_WEB		"vedsa239HPJam8Y"		// local test

#define ODBC_UID			"iris"				// IDC test
#define ODBC_PWD			"vedsa239HPJam8Y"		// IDC test

// Global data
cLoginSrv* g_loginSrv = NULL;
bool       g_verbose    = false;
bool       g_fps        = false;
bool       g_packet     = false;
bool       g_udp        = false;
bool       g_udpPacket  = false;
bool       g_udpFrom    = false;

u_short    g_loginPort  = 15002;
u_short    g_gamePort   = 15004;
u_short    g_logPort    = 15000;

// 设置服务名称和显示名称 - 默认.
TCHAR g_serviceName[MAX_PATH] = TEXT( "LoginServer" );
TCHAR g_description[MAX_PATH] = TEXT( "Copyright(c) 2009 EYA INTERACTIVE Corporation All rights reserved" );
TCHAR g_displayFmt[]          = TEXT( "IRIS ON LINE - %s" );

// GetLogicalAddress Prototype
BOOL __stdcall GetLogicalAddress(PVOID addr, PTSTR szModule, DWORD len, DWORD &section, DWORD &offset)
{
	#pragma warning( disable: 4311 )
	#pragma warning( disable: 4312 )

	MEMORY_BASIC_INFORMATION mbi;

	if ( !VirtualQuery( addr, &mbi, sizeof(mbi) ) )
		return FALSE;

	DWORD hMod = (DWORD)mbi.AllocationBase;

	if ( !GetModuleFileName( (HMODULE)hMod, szModule, len ) )
		return FALSE;

	PIMAGE_DOS_HEADER     pDosHdr  = (PIMAGE_DOS_HEADER)hMod;
	PIMAGE_NT_HEADERS     pNtHdr   = (PIMAGE_NT_HEADERS)(hMod + pDosHdr->e_lfanew);
	PIMAGE_SECTION_HEADER pSection = IMAGE_FIRST_SECTION(pNtHdr);
	DWORD                 rva      = (DWORD)addr - hMod; // RVA is offset from module load address

	for ( unsigned i = 0; i < pNtHdr->FileHeader.NumberOfSections; i++, pSection++ )
	{
		DWORD sectionStart = pSection->VirtualAddress;
		DWORD sectionEnd   = sectionStart + max( pSection->SizeOfRawData, pSection->Misc.VirtualSize );

		if ( (rva >= sectionStart) && (rva <= sectionEnd) )
		{
			section = i + 1;
			offset  = rva - sectionStart;
			return TRUE;
		}
	}
	return FALSE;
}

// WriteStackDetails Prototype
void WriteStackDetails(PCONTEXT context)
{
	char       fileName[MAX_PATH];
	SYSTEMTIME st;
	char       buffer[MAX_PATH];

	GetLocalTime( &st );
	sprintf_s( fileName
			  ,MAX_PATH
			  ,"LoginServer_%4d%02d%02d_%02d%02d.StackWalk"
			  ,st.wYear
			  ,st.wMonth
			  ,st.wDay
			  ,st.wHour
			  ,st.wMinute );

	FILE* stream = fopen( fileName, "wt" );
	if ( stream != NULL )
	{
		fputs( "#Fields: Address Frame Function SourceFile\n", stream );

		STACKFRAME sf;
		memset( &sf, 0, sizeof(sf) );

		// Initialize the STACKFRAME structure for the first call. This is only   
		//  necessary for Intel CPUs, and isn't mentioned in the documentation.   
		sf.AddrPC.Offset    = context->Eip;   
		sf.AddrPC.Mode      = AddrModeFlat;   
		sf.AddrStack.Offset = context->Esp;   
		sf.AddrStack.Mode   = AddrModeFlat;   
		sf.AddrFrame.Offset = context->Ebp;   
		sf.AddrFrame.Mode   = AddrModeFlat;   

		while ( 1 )   
		{
			// Get the next stack frame
			// Could use SymSetOptions here to add the SYMOPT_DEFERRED_LOADS flag
			if ( !StackWalk( IMAGE_FILE_MACHINE_I386
							,GetCurrentProcess( )
							,GetCurrentThread( )
							,&sf
							,context
							,0
							,SymFunctionTableAccess
							,SymGetModuleBase
							,0 ) )
				break;

			if ( 0 == sf.AddrFrame.Offset ) // Basic sanity check to make sure the frame is OK. Bail if not.
				break;

			sprintf( buffer, "%08X %08X ", sf.AddrPC.Offset, sf.AddrFrame.Offset );
			fputs( buffer, stream );

			// Get the name of the function for this stack frame entry
			BYTE         symbolBuffer[ sizeof(SYMBOL_INFO) + 1024 ];
			PSYMBOL_INFO pSymbol  = (PSYMBOL_INFO)symbolBuffer;
			pSymbol->SizeOfStruct = sizeof(symbolBuffer);
			pSymbol->MaxNameLen   = 1024;

			DWORD64 symDisplacement = 0; // Displacement of the input address,

			// relative to the start of the symbol
			{
				TCHAR szModule[MAX_PATH]  =  "";
				DWORD section = 0, offset = 0;

				GetLogicalAddress( (PVOID)sf.AddrPC.Offset, szModule, sizeof(szModule), section, offset );

				sprintf( buffer, "%04X:%08X %s", section, offset, szModule );
				fputs( buffer, stream );
			}

			// Get the source line for this stack frame entry
			IMAGEHLP_LINE lineInfo = { sizeof(IMAGEHLP_LINE) };
			DWORD         dwLineDisplacement;

			if ( SymGetLineFromAddr( GetCurrentProcess( )
									,sf.AddrPC.Offset
									,&dwLineDisplacement
									,&lineInfo ) )
			{
				sprintf( buffer, "%s line %u", lineInfo.FileName, lineInfo.LineNumber );
				fputs( buffer, stream );
			}
			
			fputs( "\n", stream );
		}
		fclose( stream );
	}
}

// GenerateDump Prototype
//  1. 加己 < C/C++ < 老馆 < 叼滚彪 沥焊 屈侥 = 橇肺弊伐 单捞磐海捞胶(/Zi)
//  2. SetUnhandledExceptionFilter( Exception_Minidump );
//  3. exceptionPointers->ExceptionRecord->ExceptionCode绰 winbase.h and winnt.h 颇老曼炼
//     (EXCEPTION_ACCESS_VIOLATION ... CONTROL_C_EXIT 殿)
//
//  林狼: DBGHELP.DLL 颇老狼 滚傈篮 弥家 5.1.2600.0 捞惑捞绢具 茄促.
//        (MiniDumpWriteDump 窃荐啊 DBGHELP.DLL俊 甸绢 乐澜)

LONG __stdcall GenerateDump(EXCEPTION_POINTERS* exceptionPointers)
{
	char       fileName[MAX_PATH];
	SYSTEMTIME st;

	GetLocalTime( &st );
	sprintf_s( fileName
			  ,MAX_PATH
			  ,"LoginServer_%4d%02d%02d_%02d%02d%02d(0x%08X 0x%08p 0x%02X 0x%04X 0x%08X).dmp"
			  ,st.wYear
			  ,st.wMonth
			  ,st.wDay
			  ,st.wHour
			  ,st.wMinute
			  ,st.wSecond
			  ,exceptionPointers->ExceptionRecord->ExceptionCode
			  ,exceptionPointers->ExceptionRecord->ExceptionAddress
			  ,exceptionPointers->ExceptionRecord->NumberParameters
			  ,exceptionPointers->ExceptionRecord->ExceptionInformation[0]
			  ,exceptionPointers->ExceptionRecord->ExceptionInformation[1] );

	HANDLE process   = GetCurrentProcess( );
	DWORD  processID = GetCurrentProcessId( );
	HANDLE file      = CreateFile( fileName, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );

	MINIDUMP_EXCEPTION_INFORMATION expParam;

	expParam.ThreadId          = GetCurrentThreadId( );
	expParam.ExceptionPointers = exceptionPointers;
	expParam.ClientPointers    = TRUE;

	MiniDumpWriteDump( process, processID, file, MiniDumpWithDataSegs, &expParam, NULL, NULL );

	SymSetOptions( SYMOPT_DEFERRED_LOADS );

	if ( SymInitialize( GetCurrentProcess( ), 0, TRUE ) )
	{
		WriteStackDetails( exceptionPointers->ContextRecord );
	}

	return EXCEPTION_EXECUTE_HANDLER;
}

// ErrorCode2String Method
//
//	错误代码转换为消息.
//
//	msgBuf    :错误信息 (荤侩饶 LocalFree 窍咯 霖促.)
//	lastError :错误代码
//	priLangId :primary language identifier
//	subLangId :sublanguage identifier
//
//	巩磊皋矫瘤 攫绢绰 酒贰客 鞍捞 汲沥茄促.
//
//	Primary language identifier : Sublanguage identifier : Meaning 
//	LANG_NEUTRAL                  SUBLANG_NEUTRAL          Language neutral  
//	LANG_NEUTRAL                  SUBLANG_DEFAULT          User default language
//	LANG_NEUTRAL                  SUBLANG_SYS_DEFAULT      System default language 
DWORD ErrorCode2String(VOID** msgBuf, DWORD lastError, WORD priLangId, WORD subLangId)
{
	// default to system source
	HMODULE module = NULL;

	DWORD   bufferLength;
	DWORD   flags;

	flags = FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM;

	// If lastError is in the network range, load the message source.
	// 父距 lastError啊 NERR_BASE 俊辑 MAX_NERR 老版快, netmsg.dll 狼
	// 皋矫瘤甫 荤侩茄促. (NERR_BASE, MAX_NERR绰 lmerr.h 颇老俊 沥狼)
	if ( lastError >= NERR_BASE && lastError <= MAX_NERR )
	{
		module = LoadLibraryEx( "netmsg.dll", NULL, LOAD_LIBRARY_AS_DATAFILE );
		if ( module != NULL )
		{
			flags |= FORMAT_MESSAGE_FROM_HMODULE;
		}
	}

	// If lastError is in the Exception Code range, load the message source.
	// 父距 lastError啊 0xC0000000L 焊促 努版快, ntdll.dll狼 皋矫瘤甫 荤侩茄促.
	// (winbase.h, winnt.h 颇老俊 沥狼)
	if ( lastError > 0xC0000000L )
	{
		module = LoadLibraryEx( "ntdll.dll", NULL, LOAD_LIBRARY_AS_DATAFILE );
		if ( module != NULL )
		{
			flags |= FORMAT_MESSAGE_FROM_HMODULE;
		}
	}

	// Call FormatMessage() to allow for message text to be acquired
	// from the system or from the supplied module handle. module to
	// get message from (NULL == system)
	bufferLength = FormatMessage( flags, module, lastError, MAKELANGID(priLangId, subLangId), (LPTSTR)msgBuf, 0, NULL );

	// If we loaded a message source, unload it.
	if ( module != NULL )
	{
		FreeLibrary( module );
	}
	return bufferLength;
}

// ConsolCtrlHandler Prototype - Windows Command Processor Control Functions.
BOOL WINAPI ConsolCtrlHandler(DWORD opcode)
{
	if ( g_loginSrv )
		return g_loginSrv->ConsolCtrlHandler( opcode );
	else
		return FALSE;
}

// main Prototype (This method is the standard Windows program entry point.)
int main(int argc, char* argv[])
{
	LPTOP_LEVEL_EXCEPTION_FILTER previousFilter = NULL;
	previousFilter = SetUnhandledExceptionFilter( GenerateDump );

	cLoginSrv* loginSrv = NULL;

	loginSrv = new cLoginSrv( );
	loginSrv->ConsoleRun( argc, argv );

	SafeDelete( loginSrv );

	SetUnhandledExceptionFilter( previousFilter );
	return 0L;
}

// ServiceCtrlHandler Prototype - Windows Service Control Functions.
void WINAPI ServiceCtrlHandler(DWORD opcode)
{
	if ( g_loginSrv )
		g_loginSrv->ServiceCtrlHandler( opcode );
}

// ServiceMain Prototype (This method is the entry point for a service.)
void WINAPI ServiceMain(DWORD argc, LPTSTR* argv)
{
	cLoginSrv* loginSrv = NULL;

	loginSrv = new cLoginSrv( );
	loginSrv->ServiceRun( argc, argv );

	SafeDelete( loginSrv );
}

// cLoginSrv Constructor.
cLoginSrv::cLoginSrv(void) : mSender(NULL), mSqlWeb(NULL), mSqlAccount(NULL), mLoginProcess(NULL), mRecver(NULL)
{
	// 创建一个全局类对象.
	g_loginSrv  = this;

	// 初始环境变量.
	mUserName   = NULL;
	mRunService = false;
	mEndService = false;
	mClose      = false;
	mVersion    = MAKEWORD(1, 0);

	memset( mServerAddr,          0, sizeof(mServerAddr)          );
	memset( mServerBroadcastRecv, 0, sizeof(mServerBroadcastRecv) );
	memset( mServerBroadcastSend, 0, sizeof(mServerBroadcastSend) );
}

// ~cLoginSrv Destructor.
cLoginSrv::~cLoginSrv(void)
{
	// cRecver 类释放.
	SafeDelete( mRecver );

	// cLoginProcess 类释放.
	SafeDelete( mLoginProcess );

	// cSQLAccount 类释放.
	SafeDelete( mSqlAccount );

	// cSQLWeb 类释放.
	SafeDelete( mSqlWeb );

	// cRecver 类释放.
	SafeDelete( mSender );

	// 全局类释放.
	g_loginSrv = NULL;
}

// InstallService Method - 服务安装函数.
bool cLoginSrv::InstallService(LPCTSTR binaryPathName, DWORD startType)
{
	SC_HANDLE           hManager(NULL);
	SC_HANDLE           hService(NULL);
	bool                retValue(false);

	TCHAR displayName[MAX_PATH];
	sprintf( displayName, g_displayFmt, g_serviceName );

	// Open a handle to the SC Manager database.
	hManager = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS );
	if ( hManager != NULL )
	{
		// The function creates a service object and adds it to the specified service control manager database.
		hService = CreateService( hManager,                  // handle to SCM database
								  g_serviceName,             // name of service to start
								  displayName,               // display name
								  SERVICE_ALL_ACCESS,        // type of access to service
								  SERVICE_WIN32_OWN_PROCESS, // type of service
								  startType,                 // when to start service
								  SERVICE_ERROR_NORMAL,      // severity of service failure
								  binaryPathName,            // name of binary file
								  NULL,                      // name of load ordering group
								  NULL,                      // tag identifier
								  NULL,                      // array of dependency names
								  NULL,                      // account name
								  NULL );                    // account password
		if ( hService != NULL )
		{
			// Success CreateService
			retValue = true;

			// The function changes the optional configuration parameters of a service.
			SERVICE_DESCRIPTION scDesc;
			scDesc.lpDescription = g_description;
			ChangeServiceConfig2( hService, SERVICE_CONFIG_DESCRIPTION, &scDesc );

			// Close the handle to the service.
			CloseServiceHandle( hService );
		}
		else
		{
			// 坷幅皋矫瘤 免仿 - CreateService.
			VOID* msgBuf;
			if ( ErrorCode2String( &msgBuf ) )
			{
				printf( "\nCreateService (%d): %s\n", GetLastError( ), (char*)msgBuf );
				LocalFree( msgBuf );
			}
		}
	}
	return retValue;
}

// UninstallService Method - 服务卸载函数.
bool cLoginSrv::UninstallService()
{
	SC_HANDLE hManager(NULL);
	SC_HANDLE hService(NULL);
	bool      retValue(false);

	// Open a handle to the SC Manager database.
	hManager = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACCESS );
	if ( hManager != NULL )
	{
		// Open a handle to the service.
		hService = OpenService( hManager, g_serviceName, SERVICE_ALL_ACCESS );
		if ( hService != NULL )
		{
			// The function marks the specified service for deletion from the service control manager database.
			if ( DeleteService( hService ) != 0 )
			{
				// Success DeleteService
				retValue = true;
			}
			else
			{
				// 坷幅皋矫瘤 免仿 - DeleteService
				VOID* msgBuf;
				if ( ErrorCode2String( &msgBuf ) )
				{
					printf( "\nDeleteService (%d): %s\n", GetLastError( ), (char*)msgBuf );
					LocalFree( msgBuf );
				}
			}

			// Close the handle to the service.
			CloseServiceHandle( hService );
		}
		else
		{
			// 坷幅皋矫瘤 免仿 - OpenService
			VOID* msgBuf;
			if ( ErrorCode2String( &msgBuf ) )
			{
				printf( "\nOpenService (%d): %s\n", GetLastError( ), (char*)msgBuf );
				LocalFree( msgBuf );
			}
		}
	}
	return retValue;
}

// ConsolCtrlHandler Method
BOOL cLoginSrv::ConsolCtrlHandler(DWORD opcode)
{
    switch ( opcode ) 
	{
	case CTRL_C_EVENT:
	case CTRL_BREAK_EVENT:
	case CTRL_CLOSE_EVENT:
	case CTRL_LOGOFF_EVENT:
	case CTRL_SHUTDOWN_EVENT:
		Destroy( );
		return TRUE;

	default:
		// unknown type--better pass it on.
		return FALSE;
	}
}

// ConsoleRun Method
void cLoginSrv::ConsoleRun(DWORD argc, LPTSTR* argv)
{
	char moduleName[MAX_PATH];
	GetModuleFileName( NULL, moduleName, sizeof(moduleName) );

	char drive[_MAX_DRIVE];
	char directory[_MAX_DIR];
	char fileName[_MAX_FNAME];
	char ext[_MAX_EXT];
	_splitpath( moduleName, drive, directory, fileName, ext );

	if ( argc < 2 )
	{
		// 荤侩汲疙.
		printf( "USAGE:\n" );
		printf( "%s [/INSTALL | /UNINSTALL | /INSERT | /TEST]\n\n", fileName );

		printf( "    /INSTALL   Creates a service object and adds it to the specified service\n" );
		printf( "               control manager database.\n" );
		printf( "    /UNINSTALL Marks the specified service for deletion from the service\n" );
		printf( "               control manager database.\n" );
		printf( "    /INSERT    Upload script files to MSSQL Database.\n" );
		printf( "    /TEST      Running the Server Program in Console mode.\n" );
		printf( "    OPTIONS    -VERBOSE  Display Debug Information.\n" );
		printf( "               -PACKET   Display Network Information.\n" );

		// 1. 辑厚胶 橇肺技胶狼 皋牢 静饭靛甫 SCM(Service Control Manager)肺 逞扁绰 窃荐促.
		//    捞 窃荐甫 何弗 静饭靛绰 Service Control Dispatcher 静饭靛啊 等促.
		//
		//	 2. 辑厚胶 橇肺弊伐捞 矫累登搁, SCM篮 StartServiceCtrlDispatcher甫 阂府辨 扁促府霸 等促.
		//     StartServiceCtrlDispatcher啊 己傍窍搁, 静饭靛绰 SCM 捞 包府窍哥, 辑厚胶啊 场朝锭鳖瘤 府畔登瘤 臼绰促.
		//     角力 辑厚胶狼 矫累瘤痢篮 捞 窃荐啊 逞扁绰 牢磊蔼牢 ServiceMain 捞扼绊 杭荐 乐促.
		//
		//	 !. SERVICE_TABLE_ENTRY甫 殿废秦具父 ServiceMain捞 龋免 等促.
		SERVICE_TABLE_ENTRY DispatchTable[]=
		{
			{ g_serviceName, (LPSERVICE_MAIN_FUNCTION)ServiceMain },
			{ NULL,          (LPSERVICE_MAIN_FUNCTION)NULL        }
		};

		printf( "\n" );
		printf( "StartServiceCtrlDispatcher being called.\n" );
		printf( "This may take several seconds.  Please wait.\n" );

 		if ( !StartServiceCtrlDispatcher( DispatchTable ) )
		{
			VOID* msgBuf;
			if ( ErrorCode2String( &msgBuf ) )
			{
				printf( "\nStartServiceCtrlDispatcher (%d): %s\n", GetLastError( ), (char*)msgBuf );
				LocalFree( msgBuf );
			}
		}
	}
	else if ( !_stricmp( argv[1], "/INSTALL" ) )
	{
		// 辑厚胶肺 汲摹甫 矫档钦聪促.
		printf( "\nInstallation to your service is initiated.\n" );

		if ( InstallService( moduleName ) )
		{
			// 辑厚胶肺 汲摹甫 肯丰 窍看嚼聪促.
			printf( "\nInstallation to your service is completed.\n" );
		}
		else
		{
			// 辑厚胶肺 汲摹甫 肯丰窍瘤 给 窍看嚼聪促.
			printf( "\nInstallation to your service is not completed.\n" );
		}
	}
	else if ( !_stricmp( argv[1], "/UNINSTALL" ) )
	{
		// 辑厚胶肺 昏力甫 矫档钦聪促.
		printf( "\nDeleting your service is initiated.\n" );

		if ( UninstallService( ) )
		{
			// 辑厚胶肺 昏力甫 肯丰 窍看嚼聪促.
			printf( "\nDeleting your service is completed.\n" );
		}
		else
		{
			// 辑厚胶肺 昏力甫 肯丰窍瘤 给 窍看嚼聪促.
			printf( "\nDeleting our service is not completed.\n" );
		}
	}
	else if ( !_stricmp( argv[1], "/INSERT" ) )
	{
		cSQLAccount* sqlAccount = new cSQLAccount( );
		int          errorCount = 0;

		printf( "\n=============== INSERT START ===============\n" );

		if ( sqlAccount->InsertCaptcha( ODBC_DSN_ACCOUNT, ODBC_UID, ODBC_PWD ) )
		{
			printf( "\nTB_CAPTCHA table has been completed.\n" );
		}
		else
		{
			printf( "TB_CAPTCHA table was not complete!!!\n" );
			printf( "Press Any Key to Continue...\n" );
			_getch( );
			errorCount += 1;
		}

		printf( "\n=============== Completed ===============\n" );
		printf( "\nINSERT - ERROR(=%d)\n", errorCount );
		printf( "\nPress Any Key to Continue." );
		_getch( );

		SafeDelete( sqlAccount );
	}
	else if ( !_stricmp( argv[1], "/TEST" ) )
	{
		DWORD status;
		DWORD error;

		if ( SetConsoleCtrlHandler( ::ConsolCtrlHandler, TRUE ) != 0 )
		{
			// 抛胶飘 可记 八荤.
			for ( DWORD i = 2; i < argc; i++ )
			{
				if ( !_stricmp( argv[ i ], "-VERBOSE" ) )
				{
					g_verbose = true;
				}
				else if ( !_stricmp( argv[ i ], "-FPS" ) )
				{
					g_fps = true;
				}
				else if ( !_stricmp( argv[ i ], "-PACKET" ) )
				{
					g_packet = true;
				}
				else if ( !_stricmp( argv[ i ], "-UDP" ) )
				{
					g_udp = true;
				}
				else if ( !_stricmp( argv[ i ], "-UDPPACKET" ) )
				{
					g_udpPacket = true;
				}
				else if ( !_stricmp( argv[ i ], "-UDPFROM" ) )
				{
					g_udpFrom = true;
				}
			}

			// 控制台测试.
			status = Initialization( argc, argv, &error );
			if ( status == NO_ERROR )
			{
				printf( "\nRunning the Server in Console mode.\n" );
				Run( );
				printf( "\nStopping the Server in Console mode.\n" );
			}
			else
			{
				printf( "\nInitialize fail.\n" );
			}
			SetConsoleCtrlHandler( ::ConsolCtrlHandler, FALSE );
		}
	}
}

// ServiceCtrlHandler Method
void cLoginSrv::ServiceCtrlHandler(DWORD opcode)
{
	switch ( opcode )
	{
	case SERVICE_CONTROL_STOP:
		// 辆丰且 内靛绰 Destroy 窃荐甫 荤侩.
		Destroy( );

		// Notifies a service that it should stop.
		mServiceStatus.dwWin32ExitCode = 0;
		mServiceStatus.dwCurrentState  = SERVICE_STOPPED;
		mServiceStatus.dwCheckPoint    = 0;
		mServiceStatus.dwWaitHint      = 0;
		// Updates the service control manager's status information for the calling service.
		SetServiceStatus( mServiceStatusHandle, &mServiceStatus );
		return;
	case SERVICE_CONTROL_PAUSE:
		// Notifies a service that it should pause.
		mServiceStatus.dwCurrentState = SERVICE_PAUSED;
		break;
	case SERVICE_CONTROL_CONTINUE:
		// Notifies a paused service that it should resume.
		mServiceStatus.dwCurrentState = SERVICE_RUNNING;
		break;
	case SERVICE_CONTROL_INTERROGATE:
		// Notifies a service that it should report its current status information to the service control manager.
		break;
	case SERVICE_CONTROL_SHUTDOWN:
		// Notifies a service that the system is shutting down so the service can perform cleanup tasks.
		break;
	case SERVICE_CONTROL_PARAMCHANGE:
		// Notifies a service that its startup parameters have changed. The service should reread its startup parameters.
		break;
	case SERVICE_CONTROL_NETBINDADD:
		// Notifies a network service that there is a new component for binding. The service should bind to the new component.
		break;
	case SERVICE_CONTROL_NETBINDREMOVE:
		// Notifies a network service that a component for binding has been removed.
		// The service should reread its binding information and unbind from the removed component.
		break;
	case SERVICE_CONTROL_NETBINDENABLE:
		// Notifies a network service that a disabled binding has been enabled.
		// The service should reread its binding information and add the new binding.
		break;
	case SERVICE_CONTROL_NETBINDDISABLE:
		// Notifies a network service that one of its bindings has been disabled.
		// The service should reread its binding information and remove the binding.
		break;
	}
	// Updates the service control manager's status information for the calling service.
	SetServiceStatus( mServiceStatusHandle, &mServiceStatus );
}

// ServiceRun Method
void cLoginSrv::ServiceRun(DWORD argc, LPTSTR* argv)
{
	DWORD status;
	DWORD error;

	mServiceStatus.dwServiceType             = SERVICE_WIN32;
	mServiceStatus.dwCurrentState            = SERVICE_START_PENDING;
	mServiceStatus.dwControlsAccepted        = SERVICE_ACCEPT_STOP;
	mServiceStatus.dwWin32ExitCode           = 0;
	mServiceStatus.dwServiceSpecificExitCode = 0;
	mServiceStatus.dwCheckPoint              = 0;
	mServiceStatus.dwWaitHint                = 0;

	// 辑厚胶 力绢 贸府磊甫 殿废茄促. - 角菩矫 0甫 馆券 茄促.
	mServiceStatusHandle = RegisterServiceCtrlHandler( g_serviceName, ::ServiceCtrlHandler );
	if ( mServiceStatusHandle == (SERVICE_STATUS_HANDLE)0 )
		return;

	// Initialization code goes here.
	// - 檬扁拳 且 内靛绰 ServiceInitialization 窃荐甫 荤侩
	// - 角菩矫 NO_ERROR(0)啊 酒囱 蔼甫 馆券.
	status = Initialization( argc, argv, &error );	

	// Handle error condition - 檬扁拳 角菩 且 版快 辆丰内靛(status)甫 钎矫秦 霖促.
	if ( status != NO_ERROR )
	{
		mServiceStatus.dwCurrentState            = SERVICE_STOPPED;
		mServiceStatus.dwCheckPoint              = 0;
		mServiceStatus.dwWaitHint                = 0;
		mServiceStatus.dwWin32ExitCode           = status;
		mServiceStatus.dwServiceSpecificExitCode = error;

		// Updates the service control manager's status information for the calling service.
		if ( SetServiceStatus( mServiceStatusHandle, &mServiceStatus ) == FALSE )
			return;
	}

	// Initialization complete - report running status.
	// - 檬扁拳 肯丰 - 辑厚胶 惑怕甫 悼累(RUNNING)栏肺 汲沥.
	mServiceStatus.dwCurrentState = SERVICE_RUNNING;
	mServiceStatus.dwCheckPoint   = 0;
	mServiceStatus.dwWaitHint     = 0;

	// Updates the service control manager's status information for the calling service.
	if ( SetServiceStatus( mServiceStatusHandle, &mServiceStatus ) == FALSE )
		return;

	// Run - 辑厚胶 矫累.
	Run( );
}

// Initialization Method (Stub initialization function.)
// 林困: 檬扁拳 棺 积己 鉴辑甫 函版且 荐 绝澜.
DWORD cLoginSrv::Initialization(DWORD argc, LPTSTR* argv, DWORD* error)
{
	// WINSOCK2 檬扁拳 (滚傈 2.2).
	if ( LOBYTE( m_wsaData.wVersion ) != 2 || HIBYTE( m_wsaData.wVersion ) != 2 )
		return 1L;

	// 荤侩磊 沥焊.
	DWORD userNameSize   = 0;
	DWORD userNameRetVal = 0;

	userNameRetVal = GetUserName( mUserName, &userNameSize );

	if ( userNameRetVal == 0 && GetLastError( ) == ERROR_INSUFFICIENT_BUFFER )
	{
		mUserName      = (TCHAR*)GlobalAlloc( GPTR, userNameSize );
		userNameRetVal = GetUserName( mUserName, &userNameSize );
	}
	if ( userNameRetVal == 0 && GetLastError( ) == ERROR_INSUFFICIENT_BUFFER )
	{
		if ( g_verbose == true )
		{
			VOID* msgBuf;
			if ( ErrorCode2String( &msgBuf ) )
			{
				printf( "\nGetUserName (%d): %s\n", GetLastError( ), (char*)msgBuf );
				LocalFree( msgBuf );
			}
		}
		return 1L;
	}

	// 龋胶飘 沥焊.
	if ( GetLocalHostInfo( ) == false )
	{
		if ( g_verbose == true )
		{
			VOID* msgBuf;
			if ( ErrorCode2String( &msgBuf ) )
			{
				printf( "\nGetNetworkParams (%d): %s\n", GetLastError( ), (char*)msgBuf );
				LocalFree( msgBuf );
			}
		}
		return 1L;
	}

	// 荤侩磊 & 龋胶飘 沥焊免仿.
	if ( g_verbose == true )
	{
		printf( "\n" );
		printf( "User Name............: %s \n", mUserName );
		printf( "Host Name............: %s \n", mFixedInfo->HostName );
		printf( "NetBIOS Scope ID.....: %s \n", mFixedInfo->ScopeId );
		printf( "IP Routing Enabled...: %s \n", (mFixedInfo->EnableRouting ? "YES" : "NO") );
		printf( "WINS Proxy Enabled...: %s \n", (mFixedInfo->EnableProxy ? "YES" : "NO") );
		printf( "\n" );
	}

	// 角青券版 汲沥.
	char  drive[_MAX_DRIVE];
	char  dir[_MAX_DIR];
	char  fname[_MAX_FNAME];
	char  ext[_MAX_EXT];

	TCHAR filename[MAX_PATH]="\0";
	TCHAR directory[MAX_PATH]="\0";

	GetModuleFileName( NULL, filename, sizeof(filename) );
	_splitpath( filename, drive, dir, fname, ext );

	char* _ext = strrchr( filename, '.' );
	strcpy( _ext ? _ext : filename+strlen( filename ), ".cfg" );

	sprintf( directory, "%s%s", drive, dir );

	// 辑厚胶 & 能贾 & 叼滚弊 葛靛 龋券己 利侩.
	if ( GetFileAttributes( filename ) == INVALID_FILE_ATTRIBUTES )
	{
		GetCurrentDirectory( sizeof(directory), directory );
		sprintf( filename, "%s\\%s.cfg", directory, fname );
	}

	// 角青颇老版肺 免仿.
	if ( g_verbose == true )
	{
		printf( "Binary Path Name.....: %s%s%s%s \n", drive, dir, fname, ext );
		printf( "Working Directory....: %s \n", directory );
		printf( "Module Path Name.....: %s \n", filename );
		printf( "\n" );
	}

	FILE* stream = fopen( filename, "rt" );
	char  buffer[MAX_PATH];

	char  seps[] = " \t\n";			// 颇教备巩 Parsing.
	char *token;

	if ( stream != NULL )
	{
		try {
			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw false;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "LOGIN_SERVER_ADDRESS(IPv4):" ) != 0 ) throw false;
			sprintf( mServerAddr, "%s", strtok( NULL, seps ) );

			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw false;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "LOGIN_BROADCAST_RECV(IPv4):" ) != 0 ) throw false;
			sprintf( mServerBroadcastRecv, "%s", strtok( NULL, seps ) );

			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw false;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "LOGIN_BROADCAST_SEND(IPv4):" ) != 0 ) throw false;
			sprintf( mServerBroadcastSend, "%s", strtok( NULL, seps ) );

			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw true;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "LOGIN_PORT:" ) != 0 ) throw true;
			g_loginPort = (u_short)atoi( strtok( NULL, seps ) );

			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw true;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "GAME_PORT:" ) != 0 ) throw true;
			g_gamePort = (u_short)atoi( strtok( NULL, seps ) );

			if ( fgets( buffer, MAX_PATH, stream ) == NULL ) throw true;

			token = strtok( buffer, seps );
			if ( token && stricmp( token, "LOG_PORT:" ) != 0 ) throw true;
			g_logPort = (u_short)atoi( strtok( NULL, seps ) );

			throw true;
		}
		catch ( bool success ) {
			fclose( stream );
			if ( success == false )
				return 1L;
		}
	}
	else
		return 1L;

	if ( g_verbose == true )
	{
		printf( "\nLogin Server Address..: %s", mServerAddr );
		printf( "\nLogin Broadcast Recv..: %s", mServerBroadcastRecv );
		printf( "\nLogin Broadcast Send..: %s", mServerBroadcastSend );
		printf( "\nLogin Port............: %d", g_loginPort );
		printf( "\nGame Port.............: %d", g_gamePort );
		printf( "\nLog Port..............: %d", g_logPort );
		printf( "\n" );
	}

	/*-- ODBC-DNS & WINSOCK2 初始化 --*/

	// 设置工作目录.
	if ( SetCurrentDirectory( directory ) == false )
		return 1L;

	// cSender 创建.
	mSender = new cSender( );
	if ( mSender->Initialize( mServerBroadcastSend, mServerBroadcastSend, 2, 32768 ) == false )
		return 1L;

	// cSQLWeb 创建.
	mSqlWeb = new cSQLWeb( );
	if ( mSqlWeb->Initialize( ODBC_DSN_WEB, ODBC_UID_WEB, ODBC_PWD_WEB ) == false )
		return 1L;

	// cSQLAccount 创建.
	mSqlAccount = new cSQLAccount( );
	if ( mSqlAccount->Initialize( ODBC_DSN_ACCOUNT, ODBC_UID, ODBC_PWD ) == false )
		return 1L;

	// cLoginProcess 创建.
	mLoginProcess = new cLoginProcess( );
	if ( mLoginProcess->Initialize( mServerAddr, T_LOGIN_CPORT ) == false )
		return 1L;

	// cSender 创建.
	mRecver = new cRecver( );
	if ( mRecver->Initialize( mServerBroadcastRecv, g_loginPort, 2, 32768 ) == false )
		return 1L;

	return 0L;
}

// Destroy Method
// 林困: 辆丰 鉴辑甫 函版 且 荐 绝澜.
void cLoginSrv::Destroy(void)
{
	if ( mEndService == false )
	{
		mEndService = true;				// 辑厚胶 辆丰.

		if ( mRecver != NULL )
		{
			mRecver->Shutdown( );		// cRecver 辆丰.
		}
		if ( mLoginProcess != NULL )
		{
			mLoginProcess->Shutdown( );	// cLoginProcess 辆丰.
		}
		if ( mSqlAccount != NULL )
		{
			mSqlAccount->Shutdown( );	// cSQLAccount 辆丰.
		}
		if ( mSqlWeb != NULL )
		{
			mSqlWeb->Shutdown( );		// cSQLWeb 辆丰.
		}
		if ( mSender != NULL )
		{
			mSender->Shutdown( );		// cSender 辆丰.
		}
		if ( mUserName != NULL )
		{
			GlobalFree( mUserName );	// 皋葛府 秦力.
			mUserName = NULL;
		}
		mRunService = false;			// 角青辆丰.
	}
}

// Close Method
void cLoginSrv::Close( )
{
	mClose = true;
}

// Run Method
void cLoginSrv::Run(void)
{
	DWORD currentTick = 0;
	DWORD elapsedTick = 0;

	// 辑厚胶啊 矫累 凳.
	mRunService = true;
	while ( mRunService )
	{
		currentTick = GetTickCount( );

		if ( mClose == true )
			Destroy( );

		// 瘤楷矫埃 距100(ms) - CPU 苞何拳 规瘤 & 郴何 悼扁拳.
		elapsedTick = GetTickCount( ) - currentTick;
		if ( elapsedTick < 100 )
		{
			Sleep( (100 - elapsedTick) );
		}
	}
}