ï¿½ï¿½Ê½23-1  NETTIME
NETTIME.C
/*----------------------------------------------------------------------------
   	NETTIME.C -- 	Sets System Clock from Internet Services
                						(c) Charles Petzold, 1998
-----------------------------------------------------------------------------*/

#include <windows.h>
#include "resource.h"

#define 	WM_SOCKET_NOTIFY (WM_USER + 1)
#define 	ID_TIMER         1

LRESULT 	CALLBACK WndProc   (HWND, UINT, WPARAM, LPARAM) ;
BOOL    		CALLBACK MainDlg   (HWND, UINT, WPARAM, LPARAM) ;
BOOL    		CALLBACK ServerDlg 		(HWND, UINT, WPARAM, LPARAM) ;

void 	ChangeSystemTime		(HWND hwndEdit, ULONG ulTime) ;
void 	FormatUpdatedTime		(HWND hwndEdit, SYSTEMTIME * pstOld, 
                                SYSTEMTIME * pstNew) ;
void EditPrintf (HWND hwndEdit, TCHAR * szFormat, ...) ;
HINSTANCE hInst ;
HWND      		hwndModeless ;

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    PSTR szCmdLine, int iCmdShow)
{
     	static TCHAR 	szAppName[] = TEXT ("NetTime") ;
     	HWND         			hwnd ;
     	MSG          			msg ;
     	RECT         			rect ;
     	WNDCLASS     			wndclass ;

     	hInst = hInstance ;
     	wndclass.style         			= 0 ;
     	wndclass.lpfnWndProc   			= WndProc ;
     	wndclass.cbClsExtra    			= 0 ;
     	wndclass.cbWndExtra    			= 0 ;
     	wndclass.hInstance     			= hInstance ;
     	wndclass.hIcon         			= LoadIcon (NULL, IDI_APPLICATION) ;
     	wndclass.hCursor       			= NULL ;
     	wndclass.hbrBackground 		= NULL ;
     	wndclass.lpszMenuName  		= NULL ;
     	wndclass.lpszClassName 		= szAppName ;

     	if (!RegisterClass (&wndclass))
     	{
         MessageBox (NULL, TEXT ("This program requires Windows NT!"), 
                     szAppName, MB_ICONERROR) ;
          		return 0 ;
     }
     
     	hwnd = CreateWindow (szAppName, TEXT ("Set System Clock from Internet"),
                          	WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU |
                            WS_BORDER | WS_MINIMIZEBOX,
           					CW_USEDEFAULT, CW_USEDEFAULT,
                          	CW_USEDEFAULT, CW_USEDEFAULT,
                          	NULL, NULL, hInstance, NULL) ;

         	// Create the modeless dialog box to go on top of the window
     	hwndModeless = CreateDialog (hInstance, szAppName, hwnd, MainDlg) ;
          	// Size the main parent window to the size of the dialog box.  
          	//   Show both windows.

     	GetWindowRect (hwndModeless, &rect) ;
     	AdjustWindowRect (&rect, WS_CAPTION | WS_BORDER, FALSE) ;

     	SetWindowPos (	hwnd, NULL, 0, 0, rect.right - rect.left,
                   		rect.bottom - rect.top, SWP_NOMOVE) ;

     	ShowWindow (hwndModeless, SW_SHOW) ;     
     	ShowWindow (hwnd, iCmdShow) ;
     	UpdateWindow (hwnd) ;

      	// Normal message loop when a modeless dialog box is used.
     	while (GetMessage (&msg, NULL, 0, 0))
     	{
          		if (hwndModeless == 0 || !IsDialogMessage (hwndModeless, &msg))
          		{
               			TranslateMessage (&msg) ;
               			DispatchMessage (&msg) ;
          		}
     	}
     	return msg.wParam ;
}

LRESULT CALLBACK WndProc (	HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
     	switch (message)
     {
     	case 	WM_SETFOCUS:
          			SetFocus (hwndModeless) ;
          			return 0 ;

     	case 	WM_DESTROY:
          			PostQuitMessage (0) ;
          			return 0 ;
     }
     	return DefWindowProc (hwnd, message, wParam, lParam) ;
}

BOOL CALLBACK MainDlg (	HWND hwnd, UINT message, WPARAM wParam, 
									LPARAM lParam)
{
     	static char   		szIPAddr[32] = { "132.163.135.130" } ;
     	static HWND   		hwndButton, hwndEdit ;
     	static SOCKET 		sock ;
     	static struct 		sockaddr_in sa ;
     	static TCHAR  		szOKLabel[32] ;
     	int           					iError, iSize ;
     	unsigned long 		ulTime ;
     	WORD          					wEvent, wError ;
     	WSADATA       				WSAData ;     
 
     	switch (message)
     	{
     	case 	WM_INITDIALOG:
          			hwndButton = GetDlgItem (hwnd, IDOK) ;
          			hwndEdit = GetDlgItem (hwnd, IDC_TEXTOUT) ;
          			return TRUE ;

     	case 	WM_COMMAND:
          			switch (LOWORD (wParam))
          		{
          			case 	IDC_SERVER:
               		DialogBoxParam (hInst, TEXT ("Servers"), hwnd, ServerDlg, (LPARAM) szIPAddr) ;
               		return TRUE ;

          			case 	IDOK:
                    // Call "WSAStartup" and display description text

               		if (iError = WSAStartup (MAKEWORD(2,0), &WSAData))
               		{
                    EditPrintf (hwndEdit, TEXT ("Startup error #%i.\r\n"), iError) ;
                    return TRUE ;
               			}
               		EditPrintf (hwndEdit, TEXT ("Started up %hs\r\n"), 
                                WSAData.szDescription);

                    // Call "socket"

               					sock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP) ;

               					if (sock == INVALID_SOCKET)
               					{
                    EditPrintf (hwndEdit, TEXT ("Socket creation error #%i.\r\n"), WSAGetLastError ()) ;
                 WSACleanup () ;
                 return TRUE ;
               	}
               EditPrintf (hwndEdit, TEXT ("Socket %i created.\r\n"), sock) ;

              // Call "WSAAsyncSelect" 

              if (SOCKET_ERROR == WSAAsyncSelect (sock, hwnd, WM_SOCKET_NOTIFY, FD_CONNECT | FD_READ))
               					{
              EditPrintf (	hwndEdit, TEXT ("WSAAsyncSelect error #%i.\r\n"), WSAGetLastError ()) ;
                 closesocket (sock) ;
                 WSACleanup () ;
                 return TRUE ;
               	}

                 // Call "connect" with IP address and time-server port

               	sa.sin_family           = AF_INET ;
               	sa.sin_port             = htons (IPPORT_TIMESERVER) ; 
               	sa.sin_addr.S_un.S_addr = inet_addr (szIPAddr) ;

               	connect(sock, (SOCKADDR *) &sa, sizeof (sa)) ;

               // "connect" will return SOCKET_ERROR because even if it
               // succeeds, it will require blocking. The following only
               // reports unexpected errors.

               if (WSAEWOULDBLOCK != (iError = WSAGetLastError ()))
               	{
               EditPrintf (hwndEdit, TEXT ("Connect error #%i.\r\n"), iError) ;
                    		closesocket (sock) ;
                    		WSACleanup () ;
                    		return TRUE ;
               }
               EditPrintf (hwndEdit, TEXT ("Connecting to %hs..."), szIPAddr) ;
     
               // The result of the "connect" call will be reported 
               // through the WM_SOCKET_NOTIFY message.
               // Set timer and change the button to "Cancel"

              SetTimer (hwnd, ID_TIMER, 1000, NULL) ;
              GetWindowText (hwndButton, szOKLabel, sizeof (szOKLabel) /sizeof (TCHAR)) ;
              SetWindowText (hwndButton, TEXT ("Cancel")) ;
              SetWindowLong (hwndButton, GWL_ID, IDCANCEL) ;
             return TRUE ;

       			case 	IDCANCEL:
               					closesocket (sock) ;
               					sock = 0 ;
               					WSACleanup () ;
               					SetWindowText (hwndButton, szOKLabel) ;
               					SetWindowLong (hwndButton, GWL_ID, IDOK) ;

               					KillTimer (hwnd, ID_TIMER) ;
               					EditPrintf (hwndEdit, TEXT ("\r\nSocket closed.\r\n")) ;
               					return TRUE ;

          			case 	IDC_CLOSE:
         					if (sock)
                    		SendMessage (hwnd, WM_COMMAND, IDCANCEL, 0) ;

               					DestroyWindow (GetParent (hwnd)) ;
               					return TRUE ;
          			}
          			return FALSE ;

     	case 	WM_TIMER:
          			EditPrintf (hwndEdit, TEXT (".")) ;
          			return TRUE ;

     	case 	WM_SOCKET_NOTIFY:
          			wEvent = WSAGETSELECTEVENT (lParam) ;   // ie, LOWORD
          			wError = WSAGETSELECTERROR (lParam) ;   // ie, HIWORD

               				// Process two events specified in WSAAsyncSelect

          			switch (wEvent)
          			{
        // This event occurs as a result of the "connect" call

          			case 	FD_CONNECT:
               					EditPrintf (hwndEdit, TEXT ("\r\n")) ;

               					if (wError)
               					{
       EditPrintf (	hwndEdit, TEXT ("Connect error #%i."), wError) ;
       SendMessage (hwnd, WM_COMMAND, IDCANCEL, 0) ;
      return TRUE ;
           }
        EditPrintf (hwndEdit, TEXT ("Connected to %hs.\r\n"), szIPAddr) ;

         // Try to receive data. The call will generate an error
         // of WSAEWOULDBLOCK and an event of FD_READ

         recv (sock, (char *) &ulTime, 4, MSG_PEEK) ;
         EditPrintf (hwndEdit, TEXT ("Waiting to receive...")) ;
         return TRUE ;

         // This even occurs when the "recv" call can be made
               
			case 	FD_READ:
               					KillTimer (hwnd, ID_TIMER) ;
               					EditPrintf (hwndEdit, TEXT ("\r\n")) ;

               					if (wError)
               					{
        EditPrintf (hwndEdit, TEXT ("FD_READ error #%i."), wError) ;
        SendMessage (hwnd, WM_COMMAND, IDCANCEL, 0) ;
        return TRUE ;
        }
                    					// Get the time and swap the bytes

          iSize = recv (sock, (char *) &ulTime, 4, 0) ;
          ulTime = ntohl (ulTime) ;
          EditPrintf (hwndEdit, 
          TEXT ("Received current time of %u seconds ")
          TEXT ("since Jan. 1 1900.\r\n"), ulTime) ;

          // Change the system time
     
               					ChangeSystemTime (hwndEdit, ulTime) ;
               					SendMessage (hwnd, WM_COMMAND, IDCANCEL, 0) ;
               					return TRUE ;
          			}
          			return FALSE ;
     	}
     	return FALSE ;
}

BOOL CALLBACK ServerDlg (	HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
     	static char * 	szServer ;
     	static WORD   		wServer = IDC_SERVER1 ;
     	char          					szLabel [64] ;

     	switch (message)
     	{
     	case 	WM_INITDIALOG:
          			szServer = (char *) lParam ;
          			CheckRadioButton (hwnd, IDC_SERVER1, IDC_SERVER10, wServer) ;
          			return TRUE ;

     	case 	WM_COMMAND:
          			switch (LOWORD (wParam))
          			{
          			case 	IDC_SERVER1:
          			case 	IDC_SERVER2:
          			case 	IDC_SERVER3:
          			case 	IDC_SERVER4:
          			case 	IDC_SERVER5:
          			case 	IDC_SERVER6:
          			case 	IDC_SERVER7:
          			case 	IDC_SERVER8:
          			case 	IDC_SERVER9:
          			case 	IDC_SERVER10:
               					wServer = LOWORD (wParam) ;
               					return TRUE ;

          			case 	IDOK:
               					GetDlgItemTextA (hwnd, wServer, szLabel, sizeof (szLabel)) ;
               					strtok (szLabel, "(") ;
               					strcpy (szServer, strtok (NULL, ")")) ;
               					EndDialog (hwnd, TRUE) ;
               					return TRUE ;

          			case 	IDCANCEL:
               					EndDialog (hwnd, FALSE) ;
               					return TRUE ;
          			}
          			break ;
    	}
     	return FALSE ;
}

void ChangeSystemTime (HWND hwndEdit, ULONG ulTime)
{
     	FILETIME      				ftNew ;
     	LARGE_INTEGER 		li ;
     	SYSTEMTIME    			stOld, stNew ;

     	GetLocalTime (&stOld) ;
     	stNew.wYear         						= 1900 ;
     	stNew.wMonth        					= 1 ;
     	stNew.wDay          					= 1 ;
     	stNew.wHour         					= 0 ;
     	stNew.wMinute       					= 0 ;
     	stNew.wSecond       					= 0 ;
     	stNew.wMilliseconds 			= 0 ;

     	SystemTimeToFileTime (&stNew, &ftNew) ;
     	li = * (LARGE_INTEGER *) &ftNew ;
     	li.QuadPart += (LONGLONG) 10000000 * ulTime ; 
     	ftNew = * (FILETIME *) &li ;
     	FileTimeToSystemTime (&ftNew, &stNew) ;

     	if (SetSystemTime (&stNew))
     	{
          		GetLocalTime (&stNew) ;
          		FormatUpdatedTime (hwndEdit, &stOld, &stNew) ;
 	}
     	else
          		EditPrintf (hwndEdit, TEXT ("Could NOT set new date and time.")) ;
}

void FormatUpdatedTime (	HWND hwndEdit, SYSTEMTIME * pstOld, SYSTEMTIME * pstNew)
{
     	TCHAR szDateOld [64], szTimeOld [64], szDateNew [64], szTimeNew [64] ;
     	GetDateFormat (LOCALE_USER_DEFAULT, LOCALE_NOUSEROVERRIDE | DATE_SHORTDATE,
                    						pstOld, NULL, szDateOld, sizeof (szDateOld)) ;
     	GetTimeFormat (	LOCALE_USER_DEFAULT, LOCALE_NOUSEROVERRIDE | 
                        TIME_NOTIMEMARKER | TIME_FORCE24HOURFORMAT,
                    	pstOld, NULL, szTimeOld, sizeof (szTimeOld)) ;

     	GetDateFormat (LOCALE_USER_DEFAULT, LOCALE_NOUSEROVERRIDE | DATE_SHORTDATE,
                    	pstNew, NULL, szDateNew, sizeof (szDateNew)) ;
     	GetTimeFormat (	LOCALE_USER_DEFAULT, LOCALE_NOUSEROVERRIDE | 
                        TIME_NOTIMEMARKER | TIME_FORCE24HOURFORMAT,
                    	pstNew, NULL, szTimeNew, sizeof (szTimeNew)) ;

     	EditPrintf (hwndEdit, TEXT ("System date and time successfully changed ")
                 			 TEXT ("from\r\n\t%s, %s.%03i to\r\n\t%s, %s.%03i."), 
                 	szDateOld, szTimeOld, pstOld->wMilliseconds,
                 	szDateNew, szTimeNew, pstNew->wMilliseconds) ;
}

void EditPrintf (HWND hwndEdit, TCHAR * szFormat, ...)
{
     	TCHAR 		szBuffer [1024] ;
     	va_list	pArgList ;

     	va_start (pArgList, szFormat) ;
     	wvsprintf (szBuffer, szFormat, pArgList) ;
     	va_end (pArgList) ;
     	SendMessage (hwndEdit, EM_SETSEL, (WPARAM) -1, (LPARAM) -1) ;
     	SendMessage (hwndEdit, EM_REPLACESEL, FALSE, (LPARAM) szBuffer) ;
     	SendMessage (hwn dEdit, EM_SCROLLCARET, 0, 0) ;
}

 NETTIME.RC ��ժ¼��
//Microsoft Developer Studio generated resource script.
#include "resource.h"
#include "afxres.h"

/////////////////////////////////////////////////////////////////////////////
// Dialog
SERVERS DIALOG DISCARDABLE  20, 20, 274, 202
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "NIST Time Service Servers"
FONT 8, "MS Sans Serif"
BEGIN
    	DEFPUSHBUTTON   		"OK",IDOK,73,181,50,14
    	PUSHBUTTON      			"Cancel",IDCANCEL,150,181,50,14
    	CONTROL         
        		"time-a.timefreq.bldrdoc.gov (132.163.135.130) NIST, Boulder, Colorado",
              		IDC_SERVER1,"Button",BS_AUTORADIOBUTTON,9,7,256,16
    	CONTROL         
  		"time-b.timefreq.bldrdoc.gov (132.163.135.131) NIST, Boulder, Colorado",
            		IDC_SERVER2,"Button",BS_AUTORADIOBUTTON,9,24,256,16
    	CONTROL         
          		"time-c.timefreq.bldrdoc.gov (132.163.135.132) Boulder, Colorado",
                 		IDC_SERVER3,"Button",BS_AUTORADIOBUTTON,9,41,256,16
    	CONTROL         
        		"utcnist.colorado.edu (128.138.140.44) University of Colorado, Boulder",
              		IDC_SERVER4,"Button",BS_AUTORADIOBUTTON,9,58,256,16
    	CONTROL         
                 		"time.nist.gov (192.43.244.18) NCAR, Boulder, Colorado",
             		IDC_SERVER5,"Button",BS_AUTORADIOBUTTON,9,75,256,16
    	CONTROL         
                   		"time-a.nist.gov (129.6.16.35) NIST, Gaithersburg, Maryland",
                    		IDC_SERVER6,"Button",BS_AUTORADIOBUTTON,9,92,256,16
    	CONTROL         
                   		"time-b.nist.gov (129.6.16.36) NIST, Gaithersburg, Maryland",
                    		IDC_SERVER7,"Button",BS_AUTORADIOBUTTON,9,109,256,16
    	CONTROL         
               		"time-nw.nist.gov (131.107.1.10) Microsoft, Redmond, Washington",
                    		IDC_SERVER8,"Button",BS_AUTORADIOBUTTON,9,126,256,16
    	CONTROL         
                 		"utcnist.reston.mci.net (204.70.131.13) MCI, Reston, Virginia",
                    		IDC_SERVER9,"Button",BS_AUTORADIOBUTTON,9,143,256,16

    	CONTROL         
                      		"nist1.data.com (209.0.72.7) Datum, San Jose, California",
                    		IDC_SERVER10,"Button",BS_AUTORADIOBUTTON,9,160,256,16
END
NETTIME DIALOG DISCARDABLE  0, 0, 270, 150 STYLE WS_CHILD FONT 8, "MS Sans Serif"
BEGIN
    	DEFPUSHBUTTON   		"Set Correct Time",IDOK,95,129,80,14
    	PUSHBUTTON      			"Close",IDC_CLOSE,183,129,80,14
    	PUSHBUTTON      			"Select Server...",IDC_SERVER,7,129,80,14
    	EDITTEXT        				IDC_TEXTOUT,7,7,253,110,ES_MULTILINE | ES_AUTOVSCROLL | 
                    							ES_READONLY | WS_VSCROLL | NOT WS_TABSTOP
END

 RESOURCE.H ��ժ¼��
// Microsoft Developer Studio generated include file.
// Used by NetTime.rc

#define 		IDC_TEXTOUT                     					101
#define 		IDC_SERVER1                     					1001
#define 		IDC_SERVER2                     					1002
#define 		IDC_SERVER3                     					1003
#define 		IDC_SERVER4                     					1004
#define 		IDC_SERVER5                     					1005
#define 		IDC_SERVER6                     					1006
#define 		IDC_SERVER7                     					1007
#define 		IDC_SERVER8                     					1008
#define 		IDC_SERVER9                     					1009
#define 		IDC_SERVER10                    					1010
#define 		IDC_SERVER                      					1011
#define 		IDC_CLOSE          								    1012

iError = WSAStartup (wVersion, &WSAData) ;

sock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP) ;

WSAAsyncSelect (sock, hwnd, message, iConditions) ;

struct sockaddr_in 
{
     	short          					sin_family;
     	u_short        				sin_port;
     	struct in_addr 	sin_addr;
     	char           					sin_zero[8];
} ;

htons (IPPORT_TIMESERVER)

recv (sock, (char *) &ulTime, 4, MSG_PEEK) ;

fSuccess = FtpCreateDirectory 		(hFtpSession,	szDirectory) ;
fSuccess = FtpRemoveDirectory 		(hFtpSession,	szDirectory) ;
fSuccess = FtpSetCurrentDirectory 	(hFtpSession,	szDirectory) ;
fSuccess = FtpGetCurrentDirectory 	(hFtpSession,	szDirectory, &dwCharacterCount) ;

fSuccess = FtpDeleteFile (hFtpSession, szFileName) ;
fSuccess = FtpRenameFile (hFtpSession, szOldName, szNewName) ;

 ï¿½ï¿½Ê½23-2  UPDDEMO
UPDDEMO.C
/*---------------------------------------------------------------------------
   	UPDDEMO.C -- Demonstrates Anonymous FTP Access
                						(c) Charles Petzold, 1998
----------------------------------------------------------------------------*/

#include 		<windows.h>
#include 		<wininet.h>
#include 		<process.h>
#include 		"resource.h"

     		// User-defined messages used in WndProc

#define 	WM_USER_CHECKFILES	(WM_USER + 1)
#define 	WM_USER_GETFILES   		(WM_USER + 2)

     		// Information for FTP download

#define 	FTPSERVER 	TEXT 	("ftp.cpetzold.com")
#define 	DIRECTORY 	TEXT 	("cpetzold.com/ProgWin/UpdDemo")
#define 	TEMPLATE  	TEXT 	("UD??????.TXT")

     // Structures used for storing filenames and contents
typedef struct
{
     	TCHAR * szFilename ;
     	char  * szContents ;
}
FILEINFO ;
typedef struct
{
     	int      			iNum ;
     	FILEINFO 		info[1] ;
}
FILELIST ;
     // Structure used for second thread
typedef struct
{
     	BOOL bContinue ;
     	HWND hwnd ;
}
PARAMS ;
     		// Declarations of all functions in program
LRESULT 	CALLBACK 		WndProc (HWND, UINT, WPARAM, LPARAM) ;
BOOL    		CALLBACK 		DlgProc (HWND, UINT, WPARAM, LPARAM) ;
VOID             						FtpThread (PVOID) ;
VOID             						ButtonSwitch (HWND, HWND, TCHAR *) ;
FILELIST *       				GetFileList (VOID) ;
int              						Compare (const FILEINFO *, const FILEINFO *) ;

     		// A couple globals

HINSTANCE hInst ;
TCHAR     			szAppName[] = TEXT ("UpdDemo") ;

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    							PSTR szCmdLine, int iCmdShow)
{
     	HWND         					hwnd ;
     	MSG          					msg ;
     	WNDCLASS     				wndclass ;

     	hInst = hInstance ;
     	wndclass.style         			= 0 ;
     	wndclass.lpfnWndProc   			= WndProc ;
     	wndclass.cbClsExtra    			= 0 ;
     	wndclass.cbWndExtra    			= 0 ;
     	wndclass.hInstance     			= hInstance ;
     	wndclass.hIcon         			= LoadIcon (NULL, IDI_APPLICATION) ;
     	wndclass.hCursor       			= NULL ;
     	wndclass.hbrBackground 		= GetStockObject (WHITE_BRUSH) ;
     	wndclass.lpszMenuName  		= NULL ;
     	wndclass.lpszClassName 		= szAppName ;

     	if (!RegisterClass (&wndclass))
     	{
          		MessageBox (	NULL, TEXT ("This program requires Windows NT!"), 
                      							szAppName, MB_ICONERROR) ;
          		return 0 ;
     }
     
     	hwnd = CreateWindow (	szAppName, TEXT ("Update Demo with Anonymous FTP"),
                       WS_OVERLAPPEDWINDOW | WS_VSCROLL,
                       CW_USEDEFAULT, CW_USEDEFAULT,
                       CW_USEDEFAULT, CW_USEDEFAULT,
                       NULL, NULL, hInstance, NULL) ;

     	ShowWindow (hwnd, iCmdShow) ;
     	UpdateWindow (hwnd) ;

          		// After window is displayed, check if the latest file exists
     	SendMessage (hwnd, WM_USER_CHECKFILES, 0, 0) ;
     	while (GetMessage (&msg, NULL, 0, 0))
     	{
          		TranslateMessage (&msg) ;
          		DispatchMessage (&msg) ;
     	}
     	return msg.wParam ;
}

LRESULT CALLBACK WndProc (	HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
     	static FILELIST *	plist ;
     	static int        				cxClient, cyClient, cxChar, cyChar ;
     	HDC               						hdc ;
     	int               						i ;
     	PAINTSTRUCT       				ps ;
     	SCROLLINFO        				si ;
     	SYSTEMTIME        				st ;
     	TCHAR             						szFilename [MAX_PATH] ;

     	switch (message)
     {
     	case 	WM_CREATE:
          			cxChar = LOWORD (GetDialogBaseUnits ()) ;
          			cyChar = HIWORD (GetDialogBaseUnits ()) ;
          			return 0 ;

     	case 	WM_SIZE:
          			cxClient		= LOWORD (lParam) ;
          			cyClient		= HIWORD (lParam) ;

          			si.cbSize 	= sizeof (SCROLLINFO) ;
          			si.fMask 		= SIF_RANGE | SIF_PAGE ;
          			si.nMin 		= 0 ;
          			si.nMax 		= plist ? plist->iNum - 1 : 0 ;
          			si.nPage 		= cyClient / cyChar ;

          			SetScrollInfo (hwnd, SB_VERT, &si, TRUE) ;
          			return 0 ;

     	case 	WM_VSCROLL:
          			si.cbSize	= sizeof (SCROLLINFO) ;
          			si.fMask 		= SIF_POS | SIF_RANGE | SIF_PAGE ;
          			GetScrollInfo (hwnd, SB_VERT, &si) ;

          			switch (LOWORD (wParam))
          			{
          			case SB_LINEDOWN: si.nPos += 1 ; break ;
          			case SB_LINEUP:   si.nPos -= 1 ; break ;
          			case SB_PAGEDOWN: si.nPos += si.nPage ; break ;
          			case SB_PAGEUP:   si.nPos -= si.nPage ; break ;
          			case SB_THUMBPOSITION: si.nPos = HIWORD (wParam) ; 	break ;
          			default:                	return 0 ;
          			}
          			si.fMask = SIF_POS ;
          			SetScrollInfo (hwnd, SB_VERT, &si, TRUE) ;
          			InvalidateRect (hwnd, NULL, TRUE) ;
          			return 0 ;

     	case 	WM_USER_CHECKFILES:
               			// Get the system date & form filename from year and month

          			GetSystemTime (&st) ;
          			wsprintf (szFilename, TEXT ("UD%04i%02i.TXT"), st.wYear, st.wMonth) ;

               			// Check if the file exists; if so, read all the files

          			if (GetFileAttributes (szFilename) != (DWORD) -1)
          			{
               				SendMessage (hwnd, WM_USER_GETFILES, 0, 0) ;
               				return 0 ;
          			}
               			// Otherwise, get files from Internet.
               			// But first check so we don't try to copy files to a CD-ROM!

          			if (GetDriveType (NULL) == DRIVE_CDROM)
          			{
    MessageBox (hwnd, TEXT ("Cannot run this program from CD-ROM!"),
                szAppName, MB_OK | MB_ICONEXCLAMATION) ;
               				return 0 ;
          			}
               					// Ask user if an Internet connection is desired

          			if (IDYES == MessageBox (hwnd, TEXT ("Update information from Internet?"),
                        szAppName, MB_YESNO | MB_ICONQUESTION))

               					// Invoke dialog box 

      			DialogBox (hInst, szAppName, hwnd, DlgProc) ;

               					// Update display

          			SendMessage (hwnd, WM_USER_GETFILES, 0, 0) ;
          			return 0 ;

     	case 	WM_USER_GETFILES:
          			SetCursor (LoadCursor (NULL, IDC_WAIT)) ;
          			ShowCursor (TRUE) ;

               					// Read in all the disk files

          			plist = GetFileList () ;

          			ShowCursor (FALSE) ;
          			SetCursor (LoadCursor (NULL, IDC_ARROW)) ;

               				// Simulate a WM_SIZE message to alter scroll bar & repaint

          			SendMessage (hwnd, WM_SIZE, 0, MAKELONG (cxClient, cyClient)) ;
          			InvalidateRect (hwnd, NULL, TRUE) ;
          			return 0 ;

     	case 	WM_PAINT:
          			hdc = BeginPaint (hwnd, &ps) ;
          			SetTextAlign (hdc, TA_UPDATECP) ;

          			si.cbSize = sizeof (SCROLLINFO) ;
          			si.fMask  = SIF_POS ;
          			GetScrollInfo (hwnd, SB_VERT, &si) ;

          			if (plist)
          			{
               				for (i = 0 ; i < plist->iNum ; i++)
               				{
                    MoveToEx 	(hdc, cxChar, (i - si.nPos) * cyChar, NULL) ;
                    TextOut  	(hdc, 0, 0, plist->info[i].szFilename, 
                    lstrlen (plist->info[i].szFilename)) ;
                    TextOut  (hdc, 0, 0, TEXT (": "), 2) ;
                    TextOutA (hdc, 0, 0, plist->info[i].szContents, 
                    strlen (plist->info[i].szContents)) ;
               				}
          			}
          			EndPaint (hwnd, &ps) ;
          			return 0 ;

     	case 	WM_DESTROY:
          			PostQuitMessage (0) ;
          			return 0 ;
	}
     	return DefWindowProc (hwnd, message, wParam, lParam) ;
}

BOOL CALLBACK DlgProc (	HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
	static PARAMS params ;
     	switch (message)
     	{
     	case 	WM_INITDIALOG:
          			params.bContinue = TRUE ;
          			params.hwnd = hwnd ;

          			_beginthread (FtpThread, 0, ¶ms) ;
          			return TRUE ;

     	case 	WM_COMMAND:
          			switch (LOWORD (wParam))
          			{
          			case 	IDCANCEL:   // button for user to abort download
               				params.bContinue = FALSE ;
               				return TRUE ;

          			case 	IDOK:      // button to make dialog box go away
               				EndDialog (hwnd, 0) ;
               				return TRUE ;
          			}
  	}
     	return FALSE ;
}

/*---------------------------------------------------------------------------
   	FtpThread: Reads files from FTP server and copies them to local disk
-----------------------------------------------------------------------------*/

void FtpThread (PVOID parg)
{
     	BOOL            						bSuccess ;
     	HINTERNET       				hIntSession, hFtpSession, hFind ;
     	HWND            						hwndStatus, hwndButton ;
     	PARAMS        				* 	pparams ;
     	TCHAR           						szBuffer [64] ;
     	WIN32_FIND_DATA 		finddata ;

     	pparams 		= parg ;
     	hwndStatus	= GetDlgItem (pparams->hwnd, IDC_STATUS) ;
     	hwndButton 	= GetDlgItem (pparams->hwnd, IDCANCEL) ;

          			// Open an internet session
     
     	hIntSession = InternetOpen (szAppName, INTERNET_OPEN_TYPE_PRECONFIG,
                                 	NULL, NULL, INTERNET_FLAG_ASYNC) ;
     	if (hIntSession == NULL)
     	{
        wsprintf (szBuffer, TEXT ("InternetOpen error %i"), GetLastError ()) ;
         		ButtonSwitch (hwndStatus, hwndButton, szBuffer) ;
          		_endthread () ;
     	}

     	SetWindowText (hwndStatus, TEXT ("Internet session opened...")) ;
          			// Check if user has pressed Cancel
     	if (!pparams->bContinue)
     	{
          		InternetCloseHandle (hIntSession) ;
          		ButtonSwitch (hwndStatus, hwndButton, NULL) ;
          		_endthread () ;
     	}

          		// Open an FTP session.
hFtpSession = InternetConnect (hIntSession, FTPSERVER, INTERNET_DEFAULT_FTP_PORT,
                              NULL, NULL, INTERNET_SERVICE_FTP, 0, 0) ;
     	if (hFtpSession == NULL)
     	{
          		InternetCloseHandle (hIntSession) ;
          		wsprintf (szBuffer, TEXT ("InternetConnect error %i"), 
                              						GetLastError ()) ;
   		ButtonSwitch (hwndStatus, hwndButton, szBuffer) ;
   		_endthread () ;
     }

	SetWindowText (hwndStatus, TEXT ("FTP Session opened...")) ;
          			// Check if user has pressed Cancel
	if (!pparams->bContinue)
     	{
          		InternetCloseHandle (hFtpSession) ;
          		InternetCloseHandle (hIntSession) ;
          		ButtonSwitch (hwndStatus, hwndButton, NULL) ;
          		_endthread () ;
     	}

          			// Set the directory
     	bSuccess = FtpSetCurrentDirectory (hFtpSession, DIRECTORY) ;
     	if (!bSuccess)
     	{
          		InternetCloseHandle (hFtpSession) ;
          		InternetCloseHandle (hIntSession) ;
          		wsprintf (	szBuffer, TEXT ("Cannot set directory to %s"),
                              						DIRECTORY) ;
          		ButtonSwitch (hwndStatus, hwndButton, szBuffer) ;
          		_endthread () ;
     	}

     	SetWindowText (hwndStatus, TEXT ("Directory found...")) ;
          		// Check if user has pressed Cancel
     	if (!pparams->bContinue)
     	{
          		InternetCloseHandle (hFtpSession) ;
          		InternetCloseHandle (hIntSession) ;
          		ButtonSwitch (hwndStatus, hwndButton, NULL) ;
          		_endthread () ;
     	}

          			// Get the first file fitting the template
     	hFind = FtpFindFirstFile (hFtpSession, TEMPLATE, &finddata, 0, 0) ;
     	if (hFind == NULL)
     	{
          		InternetCloseHandle (hFtpSession) ;
          		InternetCloseHandle (hIntSession) ;
          		ButtonSwitch (hwndStatus, hwndButton, TEXT ("Cannot find files")) ;
          		_endthread () ;
     	}

	do 
     	{
               			// Check if user has pressed Cancel
		if (!pparams->bContinue)
          		{
               			InternetCloseHandle (hFind) ;
               			InternetCloseHandle (hFtpSession) ;
               			InternetCloseHandle (hIntSession) ;
               			ButtonSwitch (hwndStatus, hwndButton, NULL) ;
               			_endthread () ;
          		}
               			// Copy file from internet to local hard disk, but fail
               			// if the file already exists locally

          		wsprintf (szBuffer, TEXT ("Reading file %s..."), finddata.cFileName) ;
          		SetWindowText (hwndStatus, szBuffer) ;

          		FtpGetFile (	hFtpSession, 
                finddata.cFileName, finddata.cFileName, TRUE, 
                FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0) ;
     	}
     	while (InternetFindNextFile (hFind, &finddata)) ;
     	InternetCloseHandle (hFind) ;
     	InternetCloseHandle (hFtpSession) ;
     	InternetCloseHandle (hIntSession) ;

     	ButtonSwitch (hwndStatus, hwndButton, TEXT ("Internet Download Complete"));
}

/*----------------------------------------------------------------------------
   	ButtonSwitch:  Displays final status message and changes Cancel to OK
  -------------------------------------------------------------------------*/
VOID ButtonSwitch (HWND hwndStatus, HWND hwndButton, TCHAR * szText) 
{
     	if (szText)
          			SetWindowText (hwndStatus, szText) ;
     	else
          			SetWindowText (hwndStatus, TEXT ("Internet Session Cancelled")) ;
     	SetWindowText (hwndButton, TEXT ("OK")) ;
     	SetWindowLong (hwndButton, GWL_ID, IDOK) ;
}

/*---------------------------------------------------------------------------
   	GetFileList: Reads files from disk and saves their names and contents
-----------------------------------------------------------------------------*/

FILELIST * GetFileList (void)
{
     	DWORD           						dwRead ;
     	FILELIST      				* 	plist ;
     	HANDLE          					hFile, hFind ;
    	int             						iSize, iNum  ;
     	WIN32_FIND_DATA 		finddata ;

     	hFind = FindFirstFile (TEMPLATE, &finddata) ;
     	if (hFind == INVALID_HANDLE_VALUE)
          			return NULL ;
     	plist		= NULL ;
     	iNum 		= 0 ;

     	do
     	{
               				// Open the file and get the size
          		hFile = CreateFile (finddata.cFileName, GENERIC_READ, FILE_SHARE_READ,
                        NULL, OPEN_EXISTING, 0, NULL) ;

          		if (hFile == INVALID_HANDLE_VALUE)
               				continue ;
     
          		iSize = GetFileSize (hFile, NULL) ;

          		if (iSize == (DWORD) -1)
      		{
               				CloseHandle (hFile) ;
               				continue ;
       		}
               				// Realloc the FILELIST structure for a new entry 

          		plist = realloc (plist, sizeof (FILELIST) + iNum * sizeof (FILEINFO));

               				// Allocate space and save the filename 

          		plist->info[iNum].szFilename = malloc (lstrlen (finddata.cFileName) +sizeof (TCHAR)) ;
          		lstrcpy (plist->info[iNum].szFilename, finddata.cFileName) ;

               				// Allocate space and save the contents

          		plist->info[iNum].szContents = malloc (iSize + 1) ;
          		ReadFile (hFile, plist->info[iNum].szContents, iSize, &dwRead, NULL);
          		plist->info[iNum].szContents[iSize] = 0 ;

          		CloseHandle (hFile) ;
          		iNum ++ ;
     	}
     	while (FindNextFile (hFind, &finddata)) ;
     	FindClose (hFind) ;
          				// Sort the files by filename
     	qsort (plist->info, iNum, sizeof (FILEINFO), Compare) ;
     	plist->iNum = iNum ;
     	return plist ;
}

/*---------------------------------------------------------------------------
   	Compare function for qsort
----------------------------------------------------------------------------*/

int Compare (const FILEINFO * pinfo1, const FILEINFO * pinfo2)
{
	return lstrcmp (pinfo2->szFilename, pinfo1->szFilename) ;
}

 UPDDEMO.RC ��ժ¼��
//Microsoft Developer Studio generated resource script.
#include "resource.h"
#include "afxres.h"

/////////////////////////////////////////////////////////////////////////////
// Dialog
UPDDEMO DIALOG DISCARDABLE  20, 20, 186, 95
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Internet Download"
FONT 8, "MS Sans Serif"
BEGIN
    	PUSHBUTTON  		Cancel",IDCANCEL,69,74,50,14
    	CTEXT           				"",IDC_STATUS,7,29,172,21
END

 RESOURCE.H ��ժ¼��
// Microsoft Developer Studio generated include file.
// Used by UpdDemo.rc

#define IDC_STATUS     40001