Windows Sockets 1.1应用实例(十)

long FAR PASCAL ClientProc(HWND hWnd, unsigned message, UINT wParam, LONG lParam);

void AlertUser(HWND hWnd, char *message);

BOOL Client(HWND hWnd);

BOOL ReceivePacket(HWND hWnd);

BOOL SetSelect(HWND hWnd, long lEvent);

BOOL SendPacket(HWND hWnd, int len);

int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)

{

       HWND hWnd;

       MSG msg;

       lstrcpy((LPSTR)server_address, lpCmdLine);

       if (!hPrevInstance)

              if (!InitApplication(hInstance))

                     return (FALSE);

       hInst = hInstance;

       hWnd = CreateW