VC获取主机名与外网IP（CString类型）

      前一章节提到的，在VC下动态获取主机名与外网IP地址，有兴趣的可以看看！

/************************************************************************/ /* 函数说明：获取当前外网IP地址 /* 参 数：无 /* 返 回 值：返回外网IP地址、CString类型字符串 /* By:Koma 2009.08.21 14:12 /************************************************************************/ CString CQDlg::GetIPAddress() { char buf[MAX_PATH] = {0}; char chTempIp[128]; char chIP[64]; CString strPath; strPath = GetExePath() + "//netip.ini"; URLDownloadToFile(0,"http://www.ip138.com/ip2city.asp",strPath,0,NULL); FILE *fp=fopen( strPath, "r" ); if ( fp != NULL ) { fseek(fp, 0, SEEK_SET); fread(buf,1,256,fp); fclose(fp); char* iIndex = strstr(buf,"["); if (iIndex) { sprintf( chTempIp,"%s",iIndex); int nBuflen = strlen(chTempIp); for(int i =0; i<nBuflen; i++) { chIP[i] = chTempIp[i+1]; if(chTempIp[i] == ']') { chIP[i-1] = '/0'; DeleteFile(strPath); continue; } } } } CString strTemp=""; if(chIP != "") { strTemp.Format("%s",chIP); } return strTemp; } /************************************************************************/ /* 函数说明：获取当前主机名 /* 参 数：无 /* 返 回 值：返回主机名、CString类型字符串 /* By:Koma 2009.08.21 14:23 /************************************************************************/ CString CQDlg::GetHostName() { WORD wVersionRequested; WSADATA wsaData; int err; wVersionRequested = MAKEWORD(2,0); err = WSAStartup(wVersionRequested,&wsaData); if(err != 0) { return err; } if(LOBYTE(wsaData.wVersion != 2) || HIBYTE(wsaData.wVersion) != 0) { WSACleanup(); return (char)WSAVERNOTSUPPORTED; } char szHostName[256]; int nRetCode; CString str=""; //调用API来获得主机名 nRetCode = gethostname(szHostName,sizeof(szHostName)); if(nRetCode != 0) { return WSAGetLastError(); } if(szHostName != "") { str.Format("主机名:%s",szHostName); } return str; }