//取得本機IP，在狀態欄中顯示 
char szHostName[MAX_PATH] = {0}; 
::gethostname(szHostName, MAX_PATH); 
hostent *pHost = gethostbyname(szHostName); 
if (pHost != NULL) 
{ 
    CString strIP; 
    in_addr* addr = (in_addr*)*pHost->h_addr_list; 
    strIP.Format("本機IP:%s",inet_ntoa(addr[0])); 
    m_bar.SetText(strIP, 0, 0); 
}

//初始化套接字 
WSADATA wsaData; 
WORD wVersionRequested = MAKEWORD(2,0); 
::WSAStartup(wVersionRequested, &wsaData);

//釋放套接字 
::WSACleanup();