VC之网络通信技术之获取网上邻居.docVIP

一、创建对话框应用程序 二、编辑对话框资源 控件ID及标题 IDC_LIST1 IDC_GETNEIGHBOR????????????????????????????????????获取网上邻居 三、添加变量、函数 ??????? 1、添加变量 ??????? 2、添加消息响应函数 ??????? 3、添加类成员函数 四、添加代码 BOOL CGetNeighborDlg::Enumerate(LPNETRESOURCE lpNetRC_p, int depth){HANDLE hEnum = 0;DWORD dwScope = RESOURCE_GLOBALNET ;DWORD dwType = RESOURCETYPE_ANY ; DWORD dwResult = WNetOpenEnum(??? dwScope,???? // scope of enumeration??? dwType,?? // resource types to list??? 0,??? // enumerate all resources??? lpNetRC_p,?? // pointer to resource structure (NULL at first time)??? hEnum?? // handle to resource) ; if( dwResult != NO_ERROR )?? return FALSE; DWORD dwBuffer = 16384 ;?? // 16K is reasonable sizeDWORD dwEntries = -1 ;??? //-1, enumerate all possible entriesLPNETRESOURCE lpnrLocal = 0; BOOL bRet = TRUE; do{// first allocate buffer for NETRESOURCE structures ...?? lpnrLocal = (LPNETRESOURCE) GlobalAlloc( GPTR, dwBuffer ) ; ?? dwResult = WNetEnumResource(????? hEnum,????? // resource-handle????? dwEntries,????? lpnrLocal,????? dwBuffer?? ) ; ?? if( dwResult == NO_ERROR )?? {??? for(DWORD i = 0 ; idwEntries;i++)??? {???? CString nsname;???? nsname = lpnrLocal[i].lpRemoteName;???? nsname += ;???? nsname +=lpnrLocal[i].lpLocalName;???? nsname += ;???? nsname +=lpnrLocal[i].lpComment;???????? CListBox *listbox=(CListBox*)GetDlgItem(IDC_LIST1);???? if(depth==1) //workgroup???? {????? listbox-AddString(nsname);???? }???? if(depth==2) //user???? {????? listbox-AddString(?? +nsname);????? m_NeighborList.AddTail(nsname);???? }???? m_List.AddTail(nsname+CString(depth)); ???? if( RESOURCEUSAGE_CONTAINER == ????? (lpnrLocal[i].dwUsage RESOURCEUSAGE_CONTAINER) )???? if( !Enumerate( lpnrLocal[i],depth+1) )//递归调用???? {????? //TRACE0( CNetwork::Enumerate(): recursiv call failed\n );????? //throw CNetworkBreak(FALSE);????? // return FALSE;???? } ??? }?? } ?? else ??? if( dwResult != ERROR_NO_MORE_ITEMS ) ???? return FALSE;???} while( dwResult != ERROR_NO_MORE_IT