Use of free SocketPro package for creating super client and server applications

/////////////////////////////////////////////////////////////////////////////
//
#include "MySocketSvr.h"
#include <tchar.h>
#include <string.h>

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nShowCmd)
{
	InitSocket();
	{
		UINT nPort=1741;
		if(lpCmdLine && _tcslen(lpCmdLine)>3)
			nPort=_ttoi(lpCmdLine);
		MSG msg;
		::PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE);
		CMySocketSvr	MySocketSvr;
		MySocketSvr.SetInstance(hInstance);
		
		//Create server socket at a port
		if(!MySocketSvr.Create(nPort))
			return 1;
		
		//enable the server to listen and to be ready for accepting the client connections
		if(!MySocketSvr.Listen())
			return 1;

		//Start main message pump
		while(::GetMessage(&msg, NULL, 0, 0))
		{
			::DispatchMessage(&msg);
		}
		MySocketSvr.Close();		
	}

	//call the following function after all of CAsySocket derived objects are destroyed
	UninitSocket();
	return 0;
}